š********************************************************************************************** š* WRKUSRCR01: Work with user created objects š* Copyright (C) 2000 Martin Rowe š* š* This program is free software; you can redistribute it and/or modify š* it under the terms of the GNU General Public License as published by š* the Free Software Foundation; either version 2 of the License, or š* (at your option) any later version. š* š* This program is distributed in the hope that it will be useful, š* but WITHOUT ANY WARRANTY; without even the implied warranty of š* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the š* GNU General Public License for more details. š* š* You should have received a copy of the GNU General Public License š* along with this program; if not, write to the Free Software Foundation, š* Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA š********************************************************************************************** FWRKUSRCLIF E K DISK š* SCREEN FWRKUSRCFCF E WORKSTN F RRN KSFILE SFL š***************************************************************** š***************************************************************** C *ENTRY PLIST C PARM USER 10 C PARM LIBRY 10 C PARM FROMDT 60 š***************************************************************** C KEYONE KLIST C KFLD USER C KFLD PRVOBJ š* C KEYTWO KLIST C KFLD USER C KFLD ODOBNM š***************************************************************** C MOVE FROMDT DATE C EXSR YMDCVT C MOVE DATE FRMYMD 60 š* Load screen C USER SETLLWRKUSRCL C EXSR PAGUP š* B001 C *IN03 DOWEQ*OFF š* C RRN COMP 0 36 C WRITEFOOTER C EXFMTSFLCTL1 š* Process response B002 C SELEC š* Exit request S002 C *IN03 WHEQ *ON C GOTO ENDPGM š* Toggle text/attributes S002 C *IN11 WHEQ *ON C *IN70 COMP *OFF 70 C KEYONE SETLLWRKUSRCL C SETOF 35 C EXSR PAGUP š* Roll up S002 C *IN27 WHEQ *ON C EXSR PAGUP š* Roll down S002 C *IN28 WHEQ *ON C EXSR PAGDWN š* Process subfile S002 C OTHER C READCSFL 81 š* Record selected B003 C *IN81 DOWEQ*OFF B004 C SELEC S004 C #SEL WHEQ '5' C MOVE ' ' #SEL C UPDATSFL C EXSR DSPOBJ E004 C ENDSL C READCSFL 81 E003 C ENDDO š* E002 C ENDSL E001 C ENDDO š* C ENDPGM TAG š* ====== === C SETON LR C RETRN š***************************************************************** š* PAGUP: LOAD SCREEN * š***************************************************************** C PAGUP BEGSR š* Initialise B001 C *IN35 IFEQ *OFF C Z-ADD0 RRN 40 C SETOF 36 š* Clear subfile C WRITESFLCTL1 B002 C DO 10 C USER READEWRKUSRCL 82 š* Load subfile B003 C *IN82 IFEQ *OFF C ADD 1 RRN C MOVE ODCDAT DATE C EXSR MDYCVT C MOVE DATE CRTDAT C EXSR YMDCVT C MOVE DATE CRTYMD 60 B004 C CRTYMD IFGE FRMYMD C SETON 50 X004 C ELSE C SETOF 50 E004 C ENDIF C MOVE ODCTIM CRTTIM C MOVE ODOBAT OBATTR C MOVE ODOBTP OBTYPE C MOVE ODOBTX OBTEXT C WRITESFL B004 C RRN IFEQ 1 C MOVE ODOBNM PRVOBJ 10 E004 C ENDIF X003 C ELSE C SETON 35 C LEAVE E003 C ENDIF E002 C ENDDO C N35 KEYTWO SETGTWRKUSRCL 35 E001 C ENDIF C ENDSR š***************************************************************** š***************************************************************** š* PAGDWN: DISPLAY PREVIOUS PAGE * š***************************************************************** C PAGDWN BEGSR C SETOF 35 C KEYONE SETLLWRKUSRCL C MOVE PRVOBJ ODOBNM B001 C DO 11 C USER REDPEWRKUSRCL 82 B002 C *IN82 IFEQ *ON C KEYTWO SETLLWRKUSRCL C LEAVE E002 C ENDIF E001 C ENDDO C EXSR PAGUP C ENDSR š***************************************************************** š***************************************************************** š* DSPOBJ: DISPLAY OBJECT DETAILS * š***************************************************************** C DSPOBJ BEGSR C MOVE ODCDAT DATE C EXSR MDYCVT C MOVE DATE CRTDAT C MOVE ODCTIM CRTTIM C MOVE ODSRCD DATE C EXSR YMDCVT C MOVE DATE SRCDAT C MOVE ODSRCT SRCTIM C MOVE ODLDAT DATE C EXSR MDYCVT C MOVE DATE CHGDAT C MOVE ODLTIM CHGTIM C MOVE ODUDAT DATE C EXSR MDYCVT C MOVE DATE DATUSD B001 C ODOBFR IFEQ '1' C MOVE 'YES' FREED X001 C ELSE C MOVE 'NO ' FREED E001 C ENDIF B001 C ODUUPD IFEQ 'Y' C MOVE 'YES' USGDTA X001 C ELSE C MOVE 'NO ' USGDTA E001 C ENDIF C EXFMTDSPOBJD C *IN03 CABEQ*ON ENDPGM C ENDSR š***************************************************************** š***************************************************************** š* MDYCVT: CONVERT MMDDYY DATE TO DDMMYY FORMAT * š***************************************************************** C MDYCVT BEGSR C MOVELDATE MONTH 2 C MOVE DATE DAYEAR 4 C MOVELDAYEAR DAY 2 C MOVELMONTH DAYEAR C MOVELDAY DATE 6 C MOVE DAYEAR DATE C ENDSR š***************************************************************** š***************************************************************** š* YMDCVT: CONVERT YYMMDD DATE TO DDMMYY FORMAT * š***************************************************************** C YMDCVT BEGSR C MOVELDATE YEAR 2 C MOVE DATE MNTHDY 4 C MOVE MNTHDY DAY C MOVELDAY DATE C MOVE YEAR DATE C ENDSR š***************************************************************** ::PARSER::WRKUSRCR01RPG QRPGSRC Work with user created objects - Display š********************************************************************************************** š* WRKUSRCR02: Work with user created objects š* Copyright (C) 2000 Martin Rowe š* š* This program is free software; you can redistribute it and/or modify š* it under the terms of the GNU General Public License as published by š* the Free Software Foundation; either version 2 of the License, or š* (at your option) any later version. š* š* This program is distributed in the hope that it will be useful, š* but WITHOUT ANY WARRANTY; without even the implied warranty of š* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the š* GNU General Public License for more details. š* š* You should have received a copy of the GNU General Public License š* along with this program; if not, write to the Free Software Foundation, š* Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA š********************************************************************************************** FWRKUSRCLIF E K DISK ‚* EXCEPTION REPORT FQSYSPRT O F 132 OF PRINTER KINFDS PRT#DS ‚***************************************************************** ‚** DATA STRUCTURES ** ‚* ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ ‚* TIME & DATE I DS I 1 120TIMDAT I 1 60ERTIME I 7 120ERDATE ‚* ‚* Define the offset 367 as a 2 digit binary field to get ‚* the current line number IPRT#DS DS I B 367 3680CURLIN ‚***************************************************************** C *ENTRY PLIST C PARM USER 10 C PARM FROMDT 60 ‚***************************************************************** C MOVE FROMDT DATE C EXSR YMDCVT C MOVE DATE FRMYMD 60 ‚* PRINT FIRST PAGE HEADINGS C TIME TIMDAT C EXCPTHEADS C EXCPTHEADS2 ‚* READ THROUGH ALL PROGRAMS REQUESTED C USER CHAINWRKUSRCL 48 B001 C *IN48 DOWEQ*OFF C MOVE ODCDAT DATE C EXSR MDYCVT C MOVE DATE CRTDAT 60 C EXSR YMDCVT C MOVE DATE CRTYMD 60 B002 C CRTYMD IFGE FRMYMD B003 C CURLIN IFGE 60 C TIME TIMDAT C EXCPTHEADS C EXCPTHEADS2 E003 C ENDIF C MOVE ODCTIM CRTTIM 60 C EXCPTDETAIL E002 C ENDIF ‚* READ NEXT USER RECORD C USER READEWRKUSRCL 48 E001 C ENDDO ‚* PRINT END OF REPORT B001 C CURLIN IFGE 60 C TIME TIMDAT C EXCPTHEADS C EXCPTHEADS2 E001 C ENDIF C EXCPTENDREP ‚* C SETON LR C RETRN ‚***************************************************************** ‚* MDYCVT: CONVERT MMDDYY DATE TO DDMMYY FORMAT * ‚***************************************************************** C MDYCVT BEGSR C MOVELDATE MONTH 2 C MOVE DATE DAYEAR 4 C MOVELDAYEAR DAY 2 C MOVELMONTH DAYEAR C MOVELDAY DATE 6 C MOVE DAYEAR DATE C ENDSR ‚***************************************************************** ‚***************************************************************** ‚* YMDCVT: CONVERT YYMMDD DATE TO DDMMYY FORMAT * ‚***************************************************************** C YMDCVT BEGSR C MOVELDATE YEAR 2 C MOVE DATE MNTHDY 4 C MOVE MNTHDY DAY C MOVELDAY DATE C MOVE YEAR DATE C ENDSR ‚***************************************************************** ‚***************************************************************** OQSYSPRT E 1 2 HEADS O 24 'WORK WITH USER CREATED' O 40 'OBJECTS - USER:' O USER 51 O 58 'FROM:' O FROMDTY 67 O 80 'RUN DATE:' O ERDATEY 89 O 100 'RUN TIME:' O ERTIME 109 ' : : ' O 120 'PAGE:' O PAGE Z 125 O E 2 HEADS2 O 21 'OBJECT LIBRARY' O 42 'DATE TIME' O 74 'TYPE DESCRIPTION' O E 1 DETAIL O ODOBNM 12 O ODLBNM 24 O CRTDATY 34 O CRTTIM 46 ' : : ' O ODOBTP 59 O ODOBTX 113 O E 2 ENDREP O 50 '**** END OF REPORT ****' ::PARSER::WRKUSRCR02RPG QRPGSRC Work with user created objects - Print š********************************************************************************************** š* WRKUSRCF: Work with user created objects š* Copyright (C) 2000 Martin Rowe š* š* This program is free software; you can redistribute it and/or modify š* it under the terms of the GNU General Public License as published by š* the Free Software Foundation; either version 2 of the License, or š* (at your option) any later version. š* š* This program is distributed in the hope that it will be useful, š* but WITHOUT ANY WARRANTY; without even the implied warranty of š* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the š* GNU General Public License for more details. š* š* You should have received a copy of the GNU General Public License š* along with this program; if not, write to the Free Software Foundation, š* Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA š********************************************************************************************** A*%%TS SD 19940715 103609 MROWE REL-V2R3M0 5738-PW1 A***************************************************************** A* * A* This file must be created with RSTDSP(*YES). * A* * A***************************************************************** A*%%EC A DSPSIZ(24 80 *DS3 27 132 *DS4) A REF(*LIBL/DSPOBJDP) A MSGLOC(24) A PRINT A CA03(03 'End') A R SFL SFL A*%%TS SD 19940715 103609 MROWE REL-V2R3M0 5738-PW1 A ODOBOW 10A H A ODSRCF 10A H A ODSRCL 10A H A ODSRCM 10A H A ODSRCD 6A H A ODSRCT 6A H A ODCPFL 6A H A ODCRTS 8A H A ODCPVR 6A H A ODCVRM 6A H A ODUDAT 6A H A ODUUPD 1A H A ODLDAT 6A H A ODLTIM 6A H A ODUCNT 5S 0H A ODOBSZ 10S 0H A ODOBFR 1A H A OBTYPE 8A H A OBTEXT 50A H A OBATTR 10A H A ODCDAT 6A H A ODCTIM 6A H A #SEL 1A B 4 1DSPATR(HI) A DSPATR(UL) A VALUES('5' ' ') A ODOBNM 10A O 4 3 A 50 DSPATR(HI) A 70 ODOBTP 8A O 4 15 A 50 DSPATR(HI) A N70 ODOBTX 50A O 4 15 A 50 DSPATR(HI) A 70 ODOBAT 10A O 4 25 A 50 DSPATR(HI) A 70 CRTDAT 6Y 0O 4 38EDTCDE(Y) A 50 DSPATR(HI) A 70 CRTTIM 6Y 0O 4 48EDTWRD(' : : ') A 50 DSPATR(HI) A R SFLCTL1 SFLCTL(SFL) A*%%TS SD 19940715 103609 MROWE REL-V2R3M0 5738-PW1 A SFLSIZ(0010) A SFLPAG(0010) A WINDOW(*DFT 15 65 *NOMSGLIN) A CF11(11 'Toggle text') A ROLLUP(27 'ROLLUP') A ROLLDOWN(28 'ROLLDOWN') A KEEP A OVERLAY A 36 SFLDSP A SFLDSPCTL A N36 SFLCLR A 35 SFLEND(*MORE) A WDWBORDER((*DSPATR RI) (*CHAR ' - A ')) A 1 1'Display objects created by user:' A USER 10A O 1 34DSPATR(HI) A 1 45'in library' A LIBRY 10A O 1 56DSPATR(HI) A 2 1'5' A DSPATR(HI) A DSPATR(UL) A 3 3'Object' A 70 3 15'Type Attribute Creation dat- A e & time' A N70 3 15'Description' A 2 3'= More details' A 2 21'Objects created on/after' A FROMDT 6Y 0O 2 46EDTCDE(Y) A DSPATR(HI) A 2 55'highlighted' * A R FOOTER WINDOW(SFLCTL1) A OVERLAY A 15 1'F3=Exit' A 70 15 11'F11=Text' A N70 15 11'F11=Type/Attributes' A* A R DSPOBJD A*%%TS SD 19931116 093936 MROWE REL-V2R2M0 5738-PW1 A WINDOW(*DFT 15 65 *NOMSGLIN) A OVERLAY A WDWBORDER((*DSPATR RI) (*CHAR ' - A ')) A 1 2'Object:' A ODOBNM R O 1 10REFFLD(QLIDOBJD/ODOBNM *LIBL/DSPOBJ- A DP) A 1 26'Type:' A OBTYPE R O 1 32REFFLD(QLIDOBJD/ODOBTP *LIBL/DSPOBJ- A DP) A 1 46'Owner:' A ODOBOW R O 1 53REFFLD(QLIDOBJD/ODOBOW *LIBL/DSPOBJ- A DP) A 2 2'Text . . :' A OBTEXT R O 2 13REFFLD(QLIDOBJD/ODOBTX *LIBL/DSPOBJ- A DP) A 4 1'Source information:' A 4 21'File:' A ODSRCL R O 4 27REFFLD(QLIDOBJD/ODSRCL *LIBL/DSPOBJ- A DP) A 4 40'Library:' A ODSRCF R O 4 49REFFLD(QLIDOBJD/ODSRCF *LIBL/DSPOBJ- A DP) A 5 4'Member:' A ODSRCM R O 5 12REFFLD(QLIDOBJD/ODSRCM *LIBL/DSPOBJ- A DP) A 5 25'Change date/time:' A SRCDAT 6Y 0O 5 43EDTCDE(Y) A SRCTIM 6Y 0O 5 53EDTWRD(' : : ') A 6 4'Attribute:' A OBATTR R O 6 15REFFLD(QLIDOBJD/ODOBAT *LIBL/DSPOBJ- A DP) A 8 1'Creation information:' A 8 23'Creation date/time:' A CRTDAT 6Y 0O 8 43EDTCDE(Y) A CRTTIM 6Y 0O 8 53EDTWRD(' : : ') A 9 3'System created on:' A ODCRTS R O 9 22REFFLD(QLIDOBJD/ODCRTS *LIBL/DSPOBJ- A DP) A ODCPVR R O 9 31REFFLD(QLIDOBJD/ODCPVR *LIBL/DSPOBJ- A DP) A 9 39'Compiler:' A ODCMNM R O 9 49REFFLD(QLIDOBJD/ODCMNM *LIBL/DSPOBJ- A DP) A ODCVRM R O 9 57REFFLD(QLIDOBJD/ODCVRM *LIBL/DSPOBJ- A DP) A 11 1'Change/Usage information:' A 11 27'Change date/time:' A CHGDAT 6Y 0O 11 45EDTCDE(Y) A CHGTIM 6Y 0O 11 55EDTWRD(' : : ') A 12 4'Date last used:' A DATUSD 6Y 0O 12 20EDTCDE(Y) A 12 30'Usage data collected:' A USGDTA 3 O 12 52 A 13 4'Days used count:' A ODUCNT R O 13 21REFFLD(QLIDOBJD/ODUCNT *LIBL/DSPOBJ- A DP) A EDTCDE(4) A 15 1'Storage information:' A 15 22'Size:' A ODOBSZ R O 15 28REFFLD(QLIDOBJD/ODOBSZ *LIBL/DSPOBJ- A DP) A EDTCDE(4) A 15 40'Freed:' A FREED 3A O 15 47 * A R DUMMY ASSUME A 1 2' ' ::PARSER::WRKUSRC# DSPF QDDSSRC Work with user created objects š********************************************************************************************** š* WRKUSRCF: Work with user created objects š* Copyright (C) 2000 Martin Rowe š* š* This program is free software; you can redistribute it and/or modify š* it under the terms of the GNU General Public License as published by š* the Free Software Foundation; either version 2 of the License, or š* (at your option) any later version. š* š* This program is distributed in the hope that it will be useful, š* but WITHOUT ANY WARRANTY; without even the implied warranty of š* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the š* GNU General Public License for more details. š* š* You should have received a copy of the GNU General Public License š* along with this program; if not, write to the Free Software Foundation, š* Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA š********************************************************************************************** ** A R QLIDOBJD PFILE(DSPOBJDP) A TEXT('DSPOBJD OUTFILE') A K ODCRTU A K ODOBNM ::PARSER::WRKUSRCL LF QDDSSRC DSPOBJD outfile logical by Created by User /*š**************************************************************************€*/ /*šWRKUSRCRT: Work with user created objects €*/ /*šCopyright (C) 2000 Martin Rowe €*/ /*š €*/ /*šThis program is free software; you can redistribute it and/or modify €*/ /*šit under the terms of the GNU General Public License as published by €*/ /*šthe Free Software Foundation; either version 2 of the License, or €*/ /*š(at your option) any later version. €*/ /*š €*/ /*šThis program is distributed in the hope that it will be useful, €*/ /*šbut WITHOUT ANY WARRANTY; without even the implied warranty of €*/ /*šMERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the €*/ /*šGNU General Public License for more details. €*/ /*š €*/ /*šYou should have received a copy of the GNU General Public License €*/ /*šalong with this program; if not, write to the Free Software €*/ /*šFoundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA€*/ /*š**************************************************************************€*/ PGM PARM(&USER &LIBRARY &OUTFMT &FROMDATE) DCL VAR(&USER) TYPE(*CHAR) LEN(10) DCL VAR(&LIBRARY) TYPE(*CHAR) LEN(10) DCL VAR(&RTNLIB) TYPE(*CHAR) LEN(10) DCL VAR(&OUTFMT) TYPE(*CHAR) LEN(6) DCL VAR(&FROMDATE) TYPE(*DEC) LEN(6 0) /*‚*****************************************************************€*/ /*‚ GLOBAL MESSAGE MONITOR DECLARES €*/ /*‚*****************************************************************€*/ DCL VAR(&##MSGFLIB) TYPE(*CHAR) LEN(10) /*‚+ ‚ Message file library€*/ DCL VAR(&##MSGF) TYPE(*CHAR) LEN(10) /*‚Message + ‚ file€*/ DCL VAR(&##MSGID) TYPE(*CHAR) LEN(7) /*‚Message + ‚ id€*/ DCL VAR(&##MSGDTA) TYPE(*CHAR) LEN(128) /*‚+ ‚ Message data€*/ /*‚*****************************************************************€*/ /*‚ GLOBAL MESSAGE MONITOR €*/ /*‚*****************************************************************€*/ MONMSG MSGID(CPF0000 RPG0000 QRG0000 RSF0000 + MCH0000) EXEC(GOTO CMDLBL(##ERROR)) GOTO CMDLBL(##NOERROR) ##ERROR: RCLRSC MONMSG MSGID(CPF0000 MCH0000) RCVMSG MSGTYPE(*EXCP) MSGDTA(&##MSGDTA) + MSGID(&##MSGID) MSGF(&##MSGF) + MSGFLIB(&##MSGFLIB) MONMSG MSGID(CPF0000 MCH0000) SNDPGMMSG MSGID(&##MSGID) MSGF(&##MSGFLIB/&##MSGF) + MSGDTA(&##MSGDTA) TOPGMQ(*PRV) + MSGTYPE(*ESCAPE) MONMSG MSGID(CPF0000 MCH0000) RETURN ##NOERROR: /*‚*****************************************************************€*/ /*‚ START OF MAINLINE CODE €*/ /*‚*****************************************************************€*/ OVRPRTF FILE(QSYSPRT) USRDTA(&USER) + SPLFNAME(WRKUSRCRT) RTVOBJD OBJ(DSPOBJDP) OBJTYPE(*FILE) RTNLIB(&RTNLIB) CRTDUPOBJ OBJ(DSPOBJDP) FROMLIB(&RTNLIB) + OBJTYPE(*FILE) TOLIB(QTEMP) MONMSG MSGID(CPF0000) CRTDUPOBJ OBJ(WRKUSRCL) FROMLIB(&RTNLIB) + OBJTYPE(*FILE) TOLIB(QTEMP) MONMSG MSGID(CPF0000) DSPOBJD OBJ(&LIBRARY/*ALL) OBJTYPE(*ALL) + OUTPUT(*OUTFILE) OUTFILE(QTEMP/DSPOBJDP) IF COND(&OUTFMT *EQ '*') THEN(CALL + PGM(WRKUSRCR01) PARM(&USER &LIBRARY &FROMDATE)) IF COND(&OUTFMT *EQ '*PRINT') THEN(CALL + PGM(WRKUSRCR02) PARM(&USER &FROMDATE)) ENDPGM RETURN ::PARSER::WRKUSRCRT CLP QCLSRC Work with user created objects /*š**************************************************************************€*/ /*šWRKUSRCRT: Work with user created objects €*/ /*šCopyright (C) 2000 Martin Rowe €*/ /*š €*/ /*šThis program is free software; you can redistribute it and/or modify €*/ /*šit under the terms of the GNU General Public License as published by €*/ /*šthe Free Software Foundation; either version 2 of the License, or €*/ /*š(at your option) any later version. €*/ /*š €*/ /*šThis program is distributed in the hope that it will be useful, €*/ /*šbut WITHOUT ANY WARRANTY; without even the implied warranty of €*/ /*šMERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the €*/ /*šGNU General Public License for more details. €*/ /*š €*/ /*šYou should have received a copy of the GNU General Public License €*/ /*šalong with this program; if not, write to the Free Software €*/ /*šFoundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA€*/ /*š**************************************************************************€*/ CMD PROMPT('Work with user created objects') PARM KWD(USER) TYPE(*SNAME) LEN(10) MIN(1) + PROMPT('User') PARM KWD(LIBRARY) TYPE(*SNAME) LEN(10) MIN(1) + PROMPT('Library to check') PARM KWD(OUTFMT) TYPE(*CHAR) LEN(6) RSTD(*YES) + DFT(*) SPCVAL((*) (*PRINT)) + PROMPT('Output format') PARM KWD(FROMDATE) TYPE(*DEC) LEN(6 0) + DFT(010178) PROMPT('From date DD/MM/YY') ::PARSER::WRKUSRCRT CMD QCMDSRC Work with user created objects /*š**************************************************************************€*/ /*šMAKEUSRCRT: Make all required WRKUSRCRT utility objects €*/ /*šCopyright (C) 2000 Martin Rowe €*/ /*š €*/ /*šThis program is free software; you can redistribute it and/or modify €*/ /*šit under the terms of the GNU General Public License as published by €*/ /*šthe Free Software Foundation; either version 2 of the License, or €*/ /*š(at your option) any later version. €*/ /*š €*/ /*šThis program is distributed in the hope that it will be useful, €*/ /*šbut WITHOUT ANY WARRANTY; without even the implied warranty of €*/ /*šMERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the €*/ /*šGNU General Public License for more details. €*/ /*š €*/ /*šYou should have received a copy of the GNU General Public License €*/ /*šalong with this program; if not, write to the Free Software €*/ /*šFoundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA€*/ /*š**************************************************************************€*/ PGM DCL VAR(&LIBRARY) TYPE(*CHAR) LEN(10) VALUE('DBG400') DCL VAR(&SRCLIB) TYPE(*CHAR) LEN(10) VALUE('DBG400') DCL VAR(&TYPE) TYPE(*CHAR) LEN(1) RTVJOBA TYPE(&TYPE) IF COND(&TYPE *EQ '1') THEN(DO) SBMJOB CMD(CALL PGM(MAKEUSRCRT)) GOTO CMDLBL(ENDPGM) ENDDO ADDLIBLE LIB(&LIBRARY) POSITION(*AFTER QTEMP) MONMSG MSGID(CPF0000) /*šDelete prior versions of objects, if there from an earlier MAKEUSRCRT€*/ /*šLogicals€*/ DLTF FILE(&LIBRARY/WRKUSRCL) MONMSG MSGID(CPF2105) /*šPhysicals€*/ DLTF FILE(&LIBRARY/DSPOBJDP) MONMSG MSGID(CPF2105) /*šDisplay files€*/ DLTF FILE(&LIBRARY/WRKUSRCF) MONMSG MSGID(CPF2105) /*šReports€*/ /*šPrograms€*/ DLTPGM PGM(&LIBRARY/WRKUSRCRT) MONMSG MSGID(CPF2105) DLTPGM PGM(&LIBRARY/WRKUSRCR01) MONMSG MSGID(CPF2105) DLTPGM PGM(&LIBRARY/WRKUSRCR02) MONMSG MSGID(CPF2105) /*šData Areas€*/ /*šCommands€*/ DLTCMD CMD(&LIBRARY/WRKUSRCRT) MONMSG MSGID(CPF2105) /*šNow create all required objects€*/ /*šCOMMANDS€*/ CRTCMD CMD(&LIBRARY/WRKUSRCRT) + PGM(&LIBRARY/WRKUSRCRT) + SRCFILE(&SRCLIB/QCMDSRC) /*šCL PROGRAMS€*/ CRTCLPGM PGM(&LIBRARY/WRKUSRCRT) + SRCFILE(&SRCLIB/QCLSRC) /*šDSPOBJD *OUTFILE€*/ DSPOBJD OBJ(&LIBRARY/*ALL) OBJTYPE(*ALL) + OUTPUT(*OUTFILE) OUTFILE(&LIBRARY/DSPOBJDP) /*šLogicals€*/ CRTLF FILE(&LIBRARY/WRKUSRCL) + SRCFILE(&SRCLIB/QDDSSRC) /*šDISPLAYS€*/ CRTDSPF FILE(&LIBRARY/WRKUSRCF) + SRCFILE(&SRCLIB/QDDSSRC) RSTDSP(*YES) /*šRPG400 PROGRAMS€*/ CRTRPGPGM PGM(&LIBRARY/WRKUSRCR01) + SRCFILE(&SRCLIB/QRPGSRC) CRTRPGPGM PGM(&LIBRARY/WRKUSRCR02) + SRCFILE(&SRCLIB/QRPGSRC) /*šData areas€*/ /*šMessage descriptions€*/ ENDPGM: RETURN ENDPGM ::PARSER::MAKEUSRCRTCLP QCLSRC Create all required WRKUSRCRT utility objects