5722WDS V5R1M0 010525 SEU SOURCE LISTING 06/24/02 13:42:26 PAGE 1
SOURCE FILE . . . . . . . KENNETH/DEVELOP
MEMBER . . . . . . . . . QMNSAVE
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
100 /********************************************************************/
200 /* */
300 /* 5722SS1 V5R1M0 010525 RTVCLSRC Output 06/24/02 13:17:50 */
400 /* */
500 /* Program name . . . . . . . . . . . . . . : QMNSAVE PN*/
600 /* Library name . . . . . . . . . . . . . . : QSYS PL*/
700 /* Original source file . . . . . . . . . . : S000027342 SN*/
800 /* Library name . . . . . . . . . . . . . . : $BLDSS1 SL*/
900 /* Original source member . . . . . . . . . : S000027342 SM*/
1000 /* Source file change */
1100 /* date/time . . . . . . . . . . . . . . : 12/04/00 06:04:08 SC*/
1200 /* Patch option . . . . . . . . . . . . . . : *NOPATCH PO*/
1300 /* User profile . . . . . . . . . . . . . . : *USER UP*/
1400 /* Text . . . : TX*/
1500 /* Owner . . . . . . . . . . . . . . . . . : QSYS OW*/
1600 /* Patch change ID . . . . . . . . . . . . : PC*/
1700 /* Patch APAR ID . . . . . . . . . . . . . : PA*/
1800 /* User mod flag . . . . . . . . . . . . . : *NO UM*/
1900 /* ED*/
2000 /********************************************************************/
2100 PGM PARM(&DFT &CANCEL)
2200 DCL VAR(&CANCEL) TYPE(*CHAR) LEN(1)
2300 DCL VAR(&CLEAR) TYPE(*CHAR) LEN(8)
2400 DCL VAR(&COMMAND) TYPE(*CHAR) LEN(10)
2500 DCL VAR(&NXTCMD) TYPE(*CHAR) LEN(10)
2600 DCL VAR(&DEV) TYPE(*CHAR) LEN(43)
2700 DCL VAR(&DEVEND) TYPE(*CHAR) LEN(10)
2800 DCL VAR(&ERRFLAG) TYPE(*LGL) VALUE('0')
2900 DCL VAR(&MSGDATA) TYPE(*CHAR) LEN(150)
3000 DCL VAR(&MSGID) TYPE(*CHAR) LEN(7)
3100 DCL VAR(&MSGOFS) TYPE(*DEC) LEN(3)
3200 DCL VAR(&MSGTXT) TYPE(*CHAR) LEN(1)
3300 DCL VAR(&MSGRPL) TYPE(*CHAR) LEN(27)
3400 DCL VAR(&SAVCMD) TYPE(*CHAR) LEN(1009)
3500 DCL VAR(&TMPDEV1) TYPE(*CHAR) LEN(10)
3600 DCL VAR(&TMPDEV2) TYPE(*CHAR) LEN(10)
3700 DCL VAR(&PATH1) TYPE(*CHAR) LEN(28)
3800 DCL VAR(&PATH2) TYPE(*CHAR) LEN(28)
3900 DCL VAR(&PATH3) TYPE(*CHAR) LEN(28)
4000 DCL VAR(&PATH4) TYPE(*CHAR) LEN(28)
4100 DCL VAR(&DEVPATH) TYPE(*CHAR) LEN(112)
4200 DCL VAR(&DEVD) TYPE(*CHAR) LEN(7)
4300 DCL VAR(&QSYSLIB) TYPE(*CHAR) LEN(11)
4400 DCL VAR(&DFT) TYPE(*CHAR) LEN(108)
4500 DCL VAR(&MSGQMD) TYPE(*CHAR) LEN(1)
4600 DCL VAR(&PROMPT) TYPE(*CHAR) LEN(1)
4700 DCL VAR(&CHECK) TYPE(*CHAR) LEN(1)
4800 DCL VAR(&DEV1) TYPE(*CHAR) LEN(10)
4900 DCL VAR(&DEV2) TYPE(*CHAR) LEN(10)
5000 DCL VAR(&DEV3) TYPE(*CHAR) LEN(10)
5100 DCL VAR(&DEV4) TYPE(*CHAR) LEN(10)
5200 DCL VAR(&OPTDEV) TYPE(*CHAR) LEN(1)
5300 DCL VAR(&CPYR) TYPE(*CHAR) LEN(90) VALUE('5722-SS1 (C) COPYRIGHT-
5722WDS V5R1M0 010525 SEU SOURCE LISTING 06/24/02 13:42:26 PAGE 2
SOURCE FILE . . . . . . . KENNETH/DEVELOP
MEMBER . . . . . . . . . QMNSAVE
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
5400 IBM CORP 1980, 2000. LICENSED MATERIAL - PROGRAM PROPERTY OF IBM')
5500 MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(ERROR))
5600 SETUP:
5700 QSYS/CHGVAR VAR(&CANCEL) VALUE(N) 06/24/02
5800 QSYS/CHGVAR VAR(&MSGQMD) VALUE(%SST(&DFT 1 1)) 06/24/02
5900 QSYS/CHGVAR VAR(&PROMPT) VALUE(%SST(&DFT 4 1)) 06/24/02
6000 QSYS/CHGVAR VAR(&CHECK) VALUE(%SST(&DFT 5 1)) 06/24/02
6100 QSYS/CHGVAR VAR(&DEV1) VALUE(%SST(&DFT 6 10)) 06/24/02
6200 QSYS/CHGVAR VAR(&DEV2) VALUE(%SST(&DFT 16 10)) 06/24/02
6300 QSYS/CHGVAR VAR(&DEV3) VALUE(%SST(&DFT 26 10)) 06/24/02
6400 QSYS/CHGVAR VAR(&DEV4) VALUE(%SST(&DFT 36 10)) 06/24/02
6500 QSYS/CHGVAR VAR(&OPTDEV) VALUE(%SST(&DFT 108 1)) 06/24/02
6600 QSYS/CHGVAR VAR(&DEV) VALUE(&DEV1 *BCAT &DEV2 *BCAT + 06/24/02
6700 &DEV3 *BCAT &DEV4) 06/24/02
6800 IF COND(&CHECK *EQ 'N') THEN(QSYS/CHGVAR + 06/24/02
6900 VAR(&CLEAR) VALUE(*ALL)) 06/24/02
7000 ELSE CMD(QSYS/CHGVAR VAR(&CLEAR) VALUE(*NONE)) 06/24/02
7100 SAVSYS:
7200 QSYS/CHGVAR VAR(&COMMAND) VALUE('SAVSYS ') 06/24/02
7300 QSYS/CHGVAR VAR(&NXTCMD) VALUE('SAVLIB ') 06/24/02
7400 IF COND(&PROMPT *EQ 'N') THEN(DO) 06/24/02
7500 QSYS/CHGVAR VAR(&SAVCMD) VALUE('*SYSTEM/SAVSYS DEV(' + 06/24/02
7600 *CAT &DEV *CAT ') CLEAR(' *CAT &CLEAR + 06/24/02
7700 *CAT ') ENDOPT(*LEAVE)') 06/24/02
7800 ENDDO 06/24/02
7900 ELSE CMD(DO) 06/24/02
8000 QSYS/CHGVAR VAR(&SAVCMD) VALUE('? *NLVLIBL/SAVSYS + 06/24/02
8100 ?*DEV(' *CAT &DEV *CAT ') ??CLEAR(' *CAT + 06/24/02
8200 &CLEAR *CAT ') ??ENDOPT(*LEAVE)') 06/24/02
8300 ENDDO 06/24/02
8400 QSYS/CALL PGM(QSYS/QCMDEXC) PARM(&SAVCMD 1009) 06/24/02
8500 MONMSG MSGID(CPF6801) EXEC(GOTO CMDLBL(MON6801)) 06/24/02
8600 MONMSG MSGID(CPF3772) EXEC(GOTO CMDLBL(ISS3708)) 06/24/02
8700 MONMSG MSGID(CPF3767 CPF3768) EXEC(GOTO + 06/24/02
8800 CMDLBL(ISS3710)) 06/24/02
8900 QSYS/RCVMSG MSGTYPE(*LAST) RMV(*NO) MSGDTA(&MSGDATA) + 06/24/02
9000 MSGID(&MSGID) 06/24/02
9100 IF COND(&MSGID *EQ CPC3702) THEN(DO) 06/24/02
9200 QSYS/CHGVAR VAR(&MSGOFS) VALUE(85) 06/24/02
9300 GOTO CMDLBL(SWITCH) 06/24/02
9400 ENDDO 06/24/02
9500 ELSE CMD(GOTO CMDLBL(ERROR)) 06/24/02
9600 SAVLIB:
9700 IF COND((&OPTDEV *EQ 'Y') *AND (&CHECK *EQ + 06/24/02
9800 'N')) THEN(CHGVAR VAR(&CLEAR) VALUE(*AFTER)) 06/24/02
9900 QSYS/CHGVAR VAR(&COMMAND) VALUE('SAVLIB ') 06/24/02
10000 QSYS/CHGVAR VAR(&NXTCMD) VALUE('SAVDLO ') 06/24/02
10100 IF COND(&PROMPT *EQ 'N') THEN(DO) 06/24/02
10200 QSYS/CHGVAR VAR(&SAVCMD) VALUE('*SYSTEM/SAVLIB + 06/24/02
10300 LIB(*NONSYS) CLEAR(' *CAT &CLEAR *CAT ') + 06/24/02
10400 DEV(' *CAT &DEV *CAT ') + 06/24/02
10500 TGTRLS(*CURRENT) ENDOPT(*LEAVE) + 06/24/02
10600 ACCPTH(*YES)') 06/24/02
5722WDS V5R1M0 010525 SEU SOURCE LISTING 06/24/02 13:42:26 PAGE 3
SOURCE FILE . . . . . . . KENNETH/DEVELOP
MEMBER . . . . . . . . . QMNSAVE
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
10700 ENDDO 06/24/02
10800 ELSE CMD(DO) 06/24/02
10900 QSYS/CHGVAR VAR(&SAVCMD) VALUE('? *NLVLIBL/SAVLIB + 06/24/02
11000 ?*LIB(*NONSYS) ??CLEAR(' *CAT &CLEAR *CAT + 06/24/02
11100 ') ?*DEV(' *CAT &DEV *CAT ') + 06/24/02
11200 ?*TGTRLS(*CURRENT) + 06/24/02
11300 ??ENDOPT(*LEAVE) ??ACCPTH(*YES)') 06/24/02
11400 ENDDO 06/24/02
11500 IF COND((&OPTDEV *EQ 'Y') *AND (&PROMPT *EQ + 06/24/02
11600 'Y')) THEN(DO) 06/24/02
11700 QSYS/CHGVAR VAR(&SAVCMD) VALUE(&SAVCMD *BCAT + 06/24/02
11800 'OPTFILE(''*'')') 06/24/02
11900 ENDDO 06/24/02
12000 QSYS/CALL PGM(QSYS/QCMDEXC) PARM(&SAVCMD 1009) 06/24/02
12100 MONMSG MSGID(CPF6801) EXEC(GOTO CMDLBL(MON6801)) 06/24/02
12200 MONMSG MSGID(CPF3777) EXEC(GOTO CMDLBL(ISS3708)) 06/24/02
12300 MONMSG MSGID(CPF3767 CPF3768) EXEC(GOTO + 06/24/02
12400 CMDLBL(ISS3710)) 06/24/02
12500 QSYS/RCVMSG MSGTYPE(*LAST) RMV(*NO) MSGDTA(&MSGDATA) + 06/24/02
12600 MSGID(&MSGID) 06/24/02
12700 IF COND(&MSGID *EQ CPC3707) THEN(DO) 06/24/02
12800 QSYS/CHGVAR VAR(&MSGOFS) VALUE(23) 06/24/02
12900 GOTO CMDLBL(SWITCH) 06/24/02
13000 ENDDO 06/24/02
13100 ELSE CMD(GOTO CMDLBL(ERROR)) 06/24/02
13200 SAVDLO:
13300 QSYS/CHGVAR VAR(&COMMAND) VALUE('SAVDLO') 06/24/02
13400 QSYS/CHGVAR VAR(&NXTCMD) VALUE('SAV ') 06/24/02
13500 IF COND(&PROMPT *EQ 'N') THEN(DO) 06/24/02
13600 QSYS/CHGVAR VAR(&SAVCMD) VALUE('*SYSTEM/SAVDLO + 06/24/02
13700 DLO(*ALL) CLEAR(' *CAT &CLEAR *CAT ') + 06/24/02
13800 DEV(' *CAT &DEV *CAT ') + 06/24/02
13900 TGTRLS(*CURRENT) ENDOPT(*LEAVE)') 06/24/02
14000 ENDDO 06/24/02
14100 ELSE CMD(DO) 06/24/02
14200 QSYS/CHGVAR VAR(&SAVCMD) VALUE('? *NLVLIBL/SAVDLO + 06/24/02
14300 ??DLO(*ALL) ??CLEAR(' *CAT &CLEAR *CAT ') + 06/24/02
14400 ?*TGTRLS(*CURRENT) ?*DEV(' *CAT + 06/24/02
14500 &DEV *CAT ') ??ENDOPT(*LEAVE)') 06/24/02
14600 ENDDO 06/24/02
14700 IF COND((&OPTDEV *EQ 'Y') *AND (&PROMPT *EQ + 06/24/02
14800 'Y')) THEN(DO) 06/24/02
14900 QSYS/CHGVAR VAR(&SAVCMD) VALUE(&SAVCMD *BCAT + 06/24/02
15000 'OPTFILE(''*'')') 06/24/02
15100 ENDDO 06/24/02
15200 QSYS/CALL PGM(QSYS/QCMDEXC) PARM(&SAVCMD 1009) 06/24/02
15300 MONMSG MSGID(CPF6801) EXEC(GOTO CMDLBL(MON6801)) 06/24/02
15400 MONMSG MSGID(CPF902E) EXEC(GOTO CMDLBL(ISS3708)) 06/24/02
15500 MONMSG MSGID(CPF3767 CPF3768) EXEC(GOTO + 06/24/02
15600 CMDLBL(ISS3710)) 06/24/02
15700 QSYS/RCVMSG MSGTYPE(*LAST) RMV(*NO) MSGDTA(&MSGDATA) + 06/24/02
15800 MSGID(&MSGID) 06/24/02
15900 IF COND(&MSGID *EQ CPC9410) THEN(DO) 06/24/02
5722WDS V5R1M0 010525 SEU SOURCE LISTING 06/24/02 13:42:26 PAGE 4
SOURCE FILE . . . . . . . KENNETH/DEVELOP
MEMBER . . . . . . . . . QMNSAVE
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
16000 QSYS/CHGVAR VAR(&MSGOFS) VALUE(128) 06/24/02
16100 GOTO CMDLBL(SWITCH) 06/24/02
16200 ENDDO 06/24/02
16300 ELSE CMD(GOTO CMDLBL(ERROR)) 06/24/02
16400 SAV:
16500 QSYS/CHGVAR VAR(&COMMAND) VALUE('SAV ') 06/24/02
16600 QSYS/CHGVAR VAR(&NXTCMD) VALUE('NOMORE ') 06/24/02
16700 QSYS/CHGVAR VAR(&QSYSLIB) VALUE('''/QSYS.LIB/') 06/24/02
16800 QSYS/CHGVAR VAR(&DEVD) VALUE('.DEVD ''') 06/24/02
16900 QSYS/CHGVAR VAR(&PATH1) VALUE(&QSYSLIB *CAT &DEV1 *TCAT + 06/24/02
17000 &DEVD) 06/24/02
17100 IF COND(&DEV2 *NE ' ') THEN(DO) 06/24/02
17200 QSYS/CHGVAR VAR(&PATH2) VALUE(&QSYSLIB *CAT &DEV2 *TCAT + 06/24/02
17300 &DEVD) 06/24/02
17400 ENDDO 06/24/02
17500 IF COND(&DEV3 *NE ' ') THEN(DO) 06/24/02
17600 QSYS/CHGVAR VAR(&PATH3) VALUE(&QSYSLIB *CAT &DEV3 *TCAT + 06/24/02
17700 &DEVD) 06/24/02
17800 ENDDO 06/24/02
17900 IF COND(&DEV4 *NE ' ') THEN(DO) 06/24/02
18000 QSYS/CHGVAR VAR(&PATH4) VALUE(&QSYSLIB *CAT &DEV4 *TCAT + 06/24/02
18100 &DEVD) 06/24/02
18200 ENDDO 06/24/02
18300 QSYS/CHGVAR VAR(&DEVPATH) VALUE(&PATH1 *BCAT &PATH2 + 06/24/02
18400 *BCAT &PATH3 *BCAT &PATH4) 06/24/02
18500 IF COND(&PROMPT *EQ 'N') THEN(DO) 06/24/02
18600 QSYS/CHGVAR VAR(&SAVCMD) VALUE('*SYSTEM/SAV + 06/24/02
18700 OBJ((''/*'') (''/QSYS.LIB'' *OMIT) + 06/24/02
18800 (''/QDLS'' *OMIT)) CLEAR(' *CAT &CLEAR + 06/24/02
18900 *CAT ') DEV(' *CAT &DEVPATH *CAT ') + 06/24/02
19000 UPDHST(*YES) + 06/24/02
19100 ENDOPT(*UNLOAD) ') 06/24/02
19200 ENDDO 06/24/02
19300 ELSE CMD(DO) 06/24/02
19400 QSYS/CHGVAR VAR(&SAVCMD) VALUE('? *NLVLIBL/SAV + 06/24/02
19500 ??OBJ((''/*'') (''/QSYS.LIB'' *OMIT) + 06/24/02
19600 (''/QDLS'' *OMIT)) ??CLEAR(' *CAT + 06/24/02
19700 &CLEAR *CAT ') ?*DEV(' *CAT &DEVPATH *CAT + 06/24/02
19800 ') ??UPDHST(*YES) + 06/24/02
19900 ??ENDOPT(*UNLOAD) ') 06/24/02
20000 ENDDO 06/24/02
20100 IF COND((&OPTDEV *EQ 'Y') *AND (&PROMPT *EQ + 06/24/02
20200 'Y')) THEN(DO) 06/24/02
20300 QSYS/CHGVAR VAR(&SAVCMD) VALUE(&SAVCMD *BCAT + 06/24/02
20400 'OPTFILE(''*'')') 06/24/02
20500 ENDDO 06/24/02
20600 QSYS/CALL PGM(QSYS/QCMDEXC) PARM(&SAVCMD 1009) 06/24/02
20700 MONMSG MSGID(CPF6801) EXEC(GOTO CMDLBL(MON6801)) 06/24/02
20800 MONMSG MSGID(CPF3767 CPF3768) EXEC(GOTO + 06/24/02
20900 CMDLBL(ISS3710)) 06/24/02
21000 NOMORE:
21100 IF COND(&ERRFLAG *EQ '0') THEN(GOTO CMDLBL(END)) 06/24/02
21200 ERROR:
5722WDS V5R1M0 010525 SEU SOURCE LISTING 06/24/02 13:42:26 PAGE 5
SOURCE FILE . . . . . . . KENNETH/DEVELOP
MEMBER . . . . . . . . . QMNSAVE
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
21300 QSYS/SNDPGMMSG MSGID(CPF2361) MSGF(QCPFMSG) + 06/24/02
21400 TOPGMQ(*PRV) MSGTYPE(*ESCAPE) 06/24/02
21500 GOTO CMDLBL(END) 06/24/02
21600 SWITCH:
21700 QSYS/CHGVAR VAR(&DEVEND) VALUE(%SST(&MSGDATA &MSGOFS 10)) 06/24/02
21800 IF COND(&DEV2 = ' ') THEN(DO) 06/24/02
21900 ENDDO 06/24/02
22000 ELSE CMD(IF COND(&DEV3 = ' ') THEN(DO)) 06/24/02
22100 IF COND(&DEVEND *EQ &DEV2) THEN(DO) 06/24/02
22200 QSYS/CHGVAR VAR(&TMPDEV1) VALUE(&DEV1) 06/24/02
22300 QSYS/CHGVAR VAR(&DEV1) VALUE(&DEV2) 06/24/02
22400 QSYS/CHGVAR VAR(&DEV2) VALUE(&TMPDEV1) 06/24/02
22500 ENDDO 06/24/02
22600 ENDDO 06/24/02
22700 ELSE CMD(IF COND(&DEV4 = ' ') THEN(DO)) 06/24/02
22800 IF COND(&DEVEND *EQ &DEV2) THEN(DO) 06/24/02
22900 QSYS/CHGVAR VAR(&TMPDEV1) VALUE(&DEV1) 06/24/02
23000 QSYS/CHGVAR VAR(&DEV1) VALUE(&DEV2) 06/24/02
23100 QSYS/CHGVAR VAR(&DEV2) VALUE(&DEV3) 06/24/02
23200 QSYS/CHGVAR VAR(&DEV3) VALUE(&TMPDEV1) 06/24/02
23300 ENDDO 06/24/02
23400 ELSE CMD(IF COND(&DEVEND *EQ &DEV3) THEN(DO)) 06/24/02
23500 QSYS/CHGVAR VAR(&TMPDEV1) VALUE(&DEV2) 06/24/02
23600 QSYS/CHGVAR VAR(&DEV2) VALUE(&DEV1) 06/24/02
23700 QSYS/CHGVAR VAR(&DEV1) VALUE(&DEV3) 06/24/02
23800 QSYS/CHGVAR VAR(&DEV3) VALUE(&TMPDEV1) 06/24/02
23900 ENDDO 06/24/02
24000 ENDDO 06/24/02
24100 ELSE CMD(DO) 06/24/02
24200 IF COND(&DEVEND *EQ &DEV2) THEN(DO) 06/24/02
24300 QSYS/CHGVAR VAR(&TMPDEV1) VALUE(&DEV1) 06/24/02
24400 QSYS/CHGVAR VAR(&DEV1) VALUE(&DEV2) 06/24/02
24500 QSYS/CHGVAR VAR(&DEV2) VALUE(&DEV3) 06/24/02
24600 QSYS/CHGVAR VAR(&DEV3) VALUE(&DEV4) 06/24/02
24700 QSYS/CHGVAR VAR(&DEV4) VALUE(&TMPDEV1) 06/24/02
24800 ENDDO 06/24/02
24900 ELSE CMD(IF COND(&DEVEND *EQ &DEV3) THEN(DO)) 06/24/02
25000 QSYS/CHGVAR VAR(&TMPDEV1) VALUE(&DEV1) 06/24/02
25100 QSYS/CHGVAR VAR(&TMPDEV2) VALUE(&DEV2) 06/24/02
25200 QSYS/CHGVAR VAR(&DEV1) VALUE(&DEV3) 06/24/02
25300 QSYS/CHGVAR VAR(&DEV2) VALUE(&DEV4) 06/24/02
25400 QSYS/CHGVAR VAR(&DEV3) VALUE(&TMPDEV1) 06/24/02
25500 QSYS/CHGVAR VAR(&DEV4) VALUE(&TMPDEV2) 06/24/02
25600 ENDDO 06/24/02
25700 ELSE CMD(IF COND(&DEVEND *EQ &DEV4) THEN(DO)) 06/24/02
25800 QSYS/CHGVAR VAR(&TMPDEV1) VALUE(&DEV1) 06/24/02
25900 QSYS/CHGVAR VAR(&DEV1) VALUE(&DEV4) 06/24/02
26000 QSYS/CHGVAR VAR(&DEV4) VALUE(&DEV3) 06/24/02
26100 QSYS/CHGVAR VAR(&DEV3) VALUE(&DEV2) 06/24/02
26200 QSYS/CHGVAR VAR(&DEV2) VALUE(&TMPDEV1) 06/24/02
26300 ENDDO 06/24/02
26400 ENDDO 06/24/02
26500 QSYS/CHGVAR VAR(&DEV) VALUE(&DEV1 *CAT &DEV2 *CAT &DEV3 + 06/24/02
5722WDS V5R1M0 010525 SEU SOURCE LISTING 06/24/02 13:42:26 PAGE 6
SOURCE FILE . . . . . . . KENNETH/DEVELOP
MEMBER . . . . . . . . . QMNSAVE
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
26600 *CAT &DEV4) 06/24/02
26700 GOTO CMDLBL(NXTCMD) 06/24/02
26800 NXTCMD:
26900 IF COND(&COMMAND *EQ 'SAVSYS') THEN(GOTO + 06/24/02
27000 CMDLBL(SAVLIB)) 06/24/02
27100 ELSE CMD(IF COND(&COMMAND *EQ 'SAVLIB') THEN(GOTO + 06/24/02
27200 CMDLBL(SAVDLO))) 06/24/02
27300 ELSE CMD(IF COND(&COMMAND *EQ 'SAVDLO') THEN(GOTO + 06/24/02
27400 CMDLBL(SAV))) 06/24/02
27500 ELSE CMD(IF COND(&COMMAND *EQ 'SAV') THEN(GOTO + 06/24/02
27600 CMDLBL(NOMORE))) 06/24/02
27700 SAMCMD:
27800 IF COND(&COMMAND *EQ 'SAVSYS') THEN(GOTO + 06/24/02
27900 CMDLBL(SAVSYS)) 06/24/02
28000 ELSE CMD(IF COND(&COMMAND *EQ 'SAVLIB') THEN(GOTO + 06/24/02
28100 CMDLBL(SAVLIB))) 06/24/02
28200 ELSE CMD(IF COND(&COMMAND *EQ 'SAVDLO') THEN(GOTO + 06/24/02
28300 CMDLBL(SAVDLO))) 06/24/02
28400 ELSE CMD(IF COND(&COMMAND *EQ 'SAV') THEN(GOTO + 06/24/02
28500 CMDLBL(SAV))) 06/24/02
28600 ISS3708:
28700 QSYS/CHGVAR VAR(&ERRFLAG) VALUE('1') 06/24/02
28800 QSYS/RCVMSG MSGTYPE(*EXCP) RMV(*NO) MSGDTA(&MSGDATA) + 06/24/02
28900 MSGID(&MSGID) 06/24/02
29000 IF COND(&MSGID *EQ CPF3772) THEN(QSYS/CHGVAR + 06/24/02
29100 VAR(&MSGOFS) VALUE(85)) 06/24/02
29200 ELSE CMD(IF COND(&MSGID *EQ CPF3777) + 06/24/02
29300 THEN(QSYS/CHGVAR VAR(&MSGOFS) VALUE(23))) 06/24/02
29400 ELSE CMD(IF COND(&MSGID *EQ CPF902E) + 06/24/02
29500 THEN(QSYS/CHGVAR VAR(&MSGOFS) VALUE(128))) 06/24/02
29600 QSYS/CHGVAR VAR(&MSGRPL) VALUE(&MSGID *CAT &COMMAND + 06/24/02
29700 *CAT &NXTCMD) 06/24/02
29800 QSYS/SNDPGMMSG MSGID(CPA3708) MSGF(*LIBL/QCPFMSG) + 06/24/02
29900 MSGDTA(&MSGRPL) TOPGMQ(*EXT) MSGTYPE(*INQ) 06/24/02
30000 QSYS/RCVMSG PGMQ(*SAME) MSGQ(*PGMQ) MSGTYPE(*RPY) + 06/24/02
30100 WAIT(*MAX) RMV(*YES) MSG(&MSGTXT) 06/24/02
30200 IF COND(%SST(&MSGTXT 1 1) *EQ 'G') THEN(DO) 06/24/02
30300 IF COND(&COMMAND *EQ 'SAV') THEN(GOTO + 06/24/02
30400 CMDLBL(NOMORE)) 06/24/02
30500 ELSE CMD(GOTO CMDLBL(SWITCH)) 06/24/02
30600 ENDDO 06/24/02
30700 ELSE CMD(GOTO CMDLBL(NOMORE)) 06/24/02
30800 ISS3710:
30900 QSYS/RCVMSG MSGTYPE(*EXCP) RMV(*NO) MSGDTA(&MSGDATA) + 06/24/02
31000 MSGID(&MSGID) 06/24/02
31100 QSYS/CHGVAR VAR(&MSGRPL) VALUE(&MSGID *CAT &COMMAND + 06/24/02
31200 *CAT &NXTCMD) 06/24/02
31300 QSYS/SNDPGMMSG MSGID(CPA3710) MSGF(*LIBL/QCPFMSG) + 06/24/02
31400 MSGDTA(&MSGRPL) TOPGMQ(*EXT) MSGTYPE(*INQ) 06/24/02
31500 QSYS/RCVMSG PGMQ(*SAME) MSGQ(*PGMQ) MSGTYPE(*RPY) + 06/24/02
31600 WAIT(*MAX) RMV(*YES) MSG(&MSGTXT) 06/24/02
31700 IF COND(%SST(&MSGTXT 1 1) *EQ 'G') THEN(GOTO + 06/24/02
31800 CMDLBL(NXTCMD)) 06/24/02
5722WDS V5R1M0 010525 SEU SOURCE LISTING 06/24/02 13:42:26 PAGE 7
SOURCE FILE . . . . . . . KENNETH/DEVELOP
MEMBER . . . . . . . . . QMNSAVE
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
31900 ELSE CMD(IF COND(%SST(&MSGTXT 1 1) *EQ 'R') + 06/24/02
32000 THEN(GOTO CMDLBL(SAMCMD))) 06/24/02
32100 ELSE CMD(GOTO CMDLBL(NOMORE)) 06/24/02
32200 MON6801:
32300 QSYS/RCVMSG PGMQ(*SAME) MSGQ(*PGMQ) MSGTYPE(*LAST) + 06/24/02
32400 WAIT(*MAX) RMV(*YES) 06/24/02
32500 QSYS/SNDPGMMSG MSGID(CPA370A) MSGF(*LIBL/QCPFMSG) + 06/24/02
32600 MSGDTA(&MSGID) TOPGMQ(*EXT) MSGTYPE(*INQ) 06/24/02
32700 QSYS/RCVMSG PGMQ(*SAME) MSGQ(*PGMQ) MSGTYPE(*RPY) + 06/24/02
32800 WAIT(*MAX) RMV(*YES) MSG(&MSGTXT) 06/24/02
32900 IF COND(%SST(&MSGTXT 1 1) *EQ 'G') THEN(GOTO + 06/24/02
33000 CMDLBL(NXTCMD)) 06/24/02
33100 ELSE CMD(DO) 06/24/02
33200 CHGVAR VAR(&CANCEL) VALUE(Y) 06/24/02
33300 GOTO CMDLBL(NOMORE) 06/24/02
33400 ENDDO 06/24/02
33500 END:
33600 RETURN 06/24/02
33700 QSYS/CHGVAR VAR(&CPYR) VALUE(&CPYR) 06/24/02
33800 ENDPGM
* * * * E N D O F S O U R C E * * * *