Hallo,
vielleicht hilft Dir dies weiter:

CPF1052 Received by Batch Program Trying to Do a Save
Incident Summary

Problem Summary:
A batch job receives message CPF1052 when trying to end subsystems and perform a save.

Resolution:
The program running in batch was trying to end all the subsystems and then do a series of SAVLIB commands within the same program. The program attempted to end the subsystems with the ENDSBS *ALL *IMMED command. That resulted in the following message being issued: CPF1052 - ENDSBS *ALL not allowed in current environment . The only time that command is permitted is when running from a workstation that has a *SIGNON workstation entry in the controlling subsystem. If that command had been permitted, the ending of the BATCH subsystem would have ended that batch job and it consequently would not have been able to perform the needed SAVLIB operations anyway.

The first option to resolve this problem is to have the operator call a program from the console (or other workstation that was running under the controlling subsystem with a *SIGNON workstation entry). This program delays until the appropriate time to perform the subsystem endings and then could do the required SAVLIB operations. The second option is to submit a job using the job scheduler to the QCTL job queue that would individually end the appropriate subsystems (QBATCH, QINTER, QSERVER, QUSRWRK, and so on) and then perform the required saves. It is also recommended that you run the ENDTCPSVR *ALL , ENDHOSTSVR *ALL and ENDTCP commands followed by a delay prior to initiating the ending of the subsystems.