save 21 aus CA

[holgerscherer]

Hi Holger,
hättest du einen link zu deinem CL?
Danke

Hier die rudimentäre Version. In manchen Systemumgebungen kann es "Hänger" geben, dann müssen Fehlerprüfungen rein. Aber - man lernt ja auch durch Experimentieren

PGM                                                              
             MONMSG     MSGID(CPF0000)                           
             ENDSBS     SBS(*ALL) OPTION(*IMMED) BCHTIMLMT(180)  
                                                                 
             INZTAP     DEV(TAP01) NEWVOL(SAVE21) CHECK(*NO) +   
                          DENSITY(*CTGTYPE)                      
             SAVSYS     DEV(TAP01) ENDOPT(*LEAVE)                
             SAVLIB     LIB(*NONSYS) DEV(TAP01) ENDOPT(*LEAVE) + 
                          ACCPTH(*YES)                           
             SAVDLO     DLO(*ALL) DEV(TAP01) ENDOPT(*LEAVE)      
             SAV        DEV('/qsys.lib/tap01.devd') OBJ(('/*') + 
                          ('/QDLS' *OMIT) ('/QSYS.LIB' *OMIT))   
             STRSBS     SBSD(QCTL)                               
ENDPGM

Ausführen mit

SBMJOB CMD(CALL PGM(QGPL/SAVEBCH)) JOBQ(QCTL)

-h