Copy Source Files Used In RCVNSF/SNDNSF To PC Files For Subsequent External Transportation

To Copy Source Files Used In RCVNSF/SNDNSF To PC Files

For Subsequent External Transportation

CPYTOPCD          FROMFILE(UTILITIES/QCLSRC) TOFLR(MY_FOLDER) +

FROMMBR(MY_MEMBER) 

CL Programs

Copy Source Files Used In RCVNSF/SNDNSF To PC Files For Subsequent External Transportation

Unknown Thursday, 30 May 2013

Reorganize All Files In Selected Library

Reorganize All Files In Selected  Library

PGM      PARM(&LIB)                                                 

DCLF      FILE(MLIST)                                             

DCL        VAR(&LIB) TYPE(*CHAR) LEN(10)              /* LIBRARY TO REORGANIZE */

                                                              

DSPFD   FILE(&LIB/*ALL) TYPE(*MBRLIST) +                     

OUTPUT(*OUTFILE) OUTFILE(UTILITIES/MLIST)              

MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(EOF))               

                                                               

READ:                                             

RCVF                                           

MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(EOF))   

RGZPFM FILE(&MLLIB/&MLFILE)                    

MONMSG MSGID(CPF0000)                          

GOTO CMDLBL(READ)                              

EOF:                                               

ENDPGM                                              

CL Programs

Reorganize All Files In Selected Library

Unknown

Find (Or CREATE) A Source Code For An OBJECT

Find (Or CREATE) A Source Code For An OBJECT

CHKOBJ               OBJ(&OBJLIB/&OBJNAME) OBJTYPE(&OBJTYPE)

DSPOBJD             OBJ(&OBJLIB/&OBJNAME) OBJTYPE(&OBJTYPE) +    

OUTPUT(*OUTFILE) OUTFILE(QTEMP/QADSPOBJ)

OVRDBF               FILE(QADSPOBJ) TOFILE(QTEMP/QADSPOBJ)

RCVF                      

MONMSG           CPF0864 EXEC(RETURN)

IF                            COND(&OPTION *EQ 'E') THEN(STRSEU +         

SRCFILE(&ODSRCL/&ODSRCF) SRCMBR(&ODSRCM) +

OPTION(2))                                

ELSE                       CMD(IF COND(&OPTION *EQ 'D') THEN(STRSEU +  

SRCFILE(&ODSRCL/&ODSRCF) SRCMBR(&ODSRCM) +

OPTION(5)))                               

ELSE                       CMD(SNDPGMMSG MSG('SOURCE IS LOCATED IN +

MEMBER' *BCAT &ODSRCM *BCAT 'IN FILE' +

*BCAT &ODSRCL *TCAT '/' *CAT &ODSRCF + 

*TCAT '.') MSGTYPE(*COMP))

DLTOVR     FILE(QADSPOBJ)

CL Programs

Find (Or CREATE) A Source Code For An OBJECT

Unknown

Connect To A Target System Where You Can Sign On As If You Were Attached Locally

Connect To A Target System Where You Can Sign On As If You Were Attached Locally

STRPASTHR         RMTLOCNAME(PRODUCTION) VRTCTL(*NONE) +

RMTUSER(PRODUCTION) RMTPWD(PASSWORD)

ENDPASTHR 

CL Programs

Connect To A Target System Where You Can Sign On As If You Were Attached Locally

Unknown

To UNLOAD A TAPE

To UNLOAD A TAPE

PGM        PARM(&DEV &VOL1)

DCL        VAR(&DEV  ) TYPE(*CHAR) LEN(  10)

DCL        VAR(&VOL1 ) TYPE(*CHAR) LEN(  10)

DCL        VAR(&MSG  ) TYPE(*CHAR) LEN( 256)

CHKTAP                                DEV(&DEV) VOL(&VOL1) ENDOPT(*UNLOAD)

MONMSG           MSGID(CPF0000)                     

CHGVAR              VAR(&MSG) VALUE('Restores completed. Tape ' +

 *CAT &DEV *CAT ' Unloaded. Thanks')       

SNDMSG             MSG(&MSG) TOUSR(*SYSOPR)

END:      ENDPGM                                                    

CL Programs

To UNLOAD A TAPE

Unknown Wednesday, 29 May 2013

program sets the ATTENTION Key To Call Pre-Defined Program

program sets the ATTENTION Key To Call Pre-Defined Program

PGM

SETATNPGM      PGM(MYLIBRARY/MYPROGRAM)

CALL                      MYPROGRAM

ENDPGM

CL Programs

program sets the ATTENTION Key To Call Pre-Defined Program

Unknown

To Retrieve ALL Libraries in QSYS to OUTFILE and Display Them in CL Program (Command : PRTLIBANL)

To Retrieve ALL Libraries in QSYS to OUTFILE and Display Them in CL Program

(Command : PRTLIBANL)

PGM

                DCLF                      FILE(QTEMP/OBJLST)                            

                DSPOBJD             OBJ(QSYS/*ALL) OBJTYPE(*LIB)  +               

                                                  OUTPUT(*OUTFILE) OUTFILE(QTEMP/OBJLST)      

READ:     RCVF                                                     

MONMSG           MSGID(CPF0864) EXEC(GOTO CMDLBL(END))         

IF                            COND((%SST(&ODOBNM 1 1) *EQ 'Q') *OR +           

                                                 (%SST(&ODOBNM 1 1) *EQ '#')) THEN(GOTO READ)

PRTLIBANL          LIB(&ODOBNM)                                  

MONMSG           MSGID(CPF0000)                                

GOTO                    CMDLBL(READ)                                   

END:      ENDPGM 

CL Programs

To Retrieve ALL Libraries in QSYS to OUTFILE and Display Them in CL Program (Command : PRTLIBANL)

Unknown