Ken Graap -- code June 2002

Ken Graap -- code June 2002

  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  * * * * 

Dig deeper on iSeries skills

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

SearchEnterpriseLinux

SearchDataCenter

Close