Article

Ken Graap -- code June 2002

Ken Graap
  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  * * * * 
Related Topics: iSeries skills, VIEW ALL TOPICS

There are Comments. Add yours.

 
TIP: Want to include a code block in your comment? Use <pre> or <code> tags around the desired text. Ex: <code>insert code</code>

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy
Sort by: OldestNewest

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: