/ ************************************************** ************ / / * Program ID: CRTMBR * / / * PURPOSE: Convert Cobol Copybook 2 DDS (Add A New MEMBER) * / / * DATE: JUL / 04/2004 * / / * Written: jason zhang * / / / * * / / * code Date (YYMD) REASON * / / * ------------------------- --------------------------- * / / * * / / ************** ****************************************************** / PGM PARM & MBR & File & Lib & Err)
DCL & MBR * CHAR 10 DCL & FILE * CHAR 10 DCL & LIB * CHAR 10 DCL & ERR * CHAR 1
DLCOBJ OBJ (& LiB / QDDSRC * File * EXCL * FIRST) Monmsg MSGID (CPF0000) DLTOVR File (QDDSSRC) LVL (* Job) Monmsg MSGID (CPF0000)
CLRPFM File (& LIB / & File) MBR (& MBR) Monmsg Msgid (CPF0000)
CHKOBJ OBJ (& LIB / & FILE) OBJTYPE (* FILE) MBR (& MBR) AUT (* ALL) MONMSG MSGID (CPF9802 CPF9810 CPF9820 CPF9830 CPF9899) EXEC (DO) SNDPGMMSG MSG ( 'Member is in use or other error!') CHGVAR VAR (& ERR) Value ('y') goto cmdlbl (end) Enddo
Monmsg MSGID (CPF9815 CPF9801) Exec (DO)
ADDPFM FILE (& LIB / & FILE) MBR (& MBR) TEXT ( 'Convert from Cobol Copybook') SHARE (* NO) SRCTYPE (PF) MONMSG MSGID (CPF0000) EXEC (DO) SNDPGMMSG MSG ( 'Error occurred when add member!' ('Y') Value ('y') Goto cmdlbl (end) Enddo enddoovrdbf file (qddssrc) Tofile (& lib / & file) Ovrscope (* Job) Alcobj Obj (& lib / & file * file * EXCL & MBR)) MONMSG MSGID (CPF1002 CPF1040 CPF1085) EXEC (DO) SNDPGMMSG MSG ('File IN Use!') CHGVAR VAR (& ERR) Value ('Y') Goto Cmdlbl (End) enddo
End: endpgm
