Re: Automate CDM Daily File Rebuild

[rhamberg@xxxxxxxxxxxxxxxxxx]

Wade Staunton
Burlington Chemical Company

     Here is a copy of an RPG program we submit through the IBM job schedular
nightly.
     MEMBER  . . . . . . . . .  CDM$602D

SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
  100      F/TITLE CDM$602D Daily File Rebuild Prompt
 5600      F****************************************************************
 5700      F*            F i l e     S p e c i f i c a t i o n
 5800      F****************************************************************
 5900      FRSYL01  UF  E           K        DISK
 6000      F                                              KINFDS FIDS01
 6200      F*
 7000      E*
 7100      I****************************************************************
 7200      I*            I n p u t    S p e c i f i c a t i o n
 7300      I****************************************************************
 7400      IFIDS01      DS
  7500      I                                     *STATUS  STS01
  7600      I                                    B 397 4000REC01
  9800      I*
  9900      I* Parameter List
 10000      I*
 10100      IW7PLST      DS
 10200      I                                        1 256 W7FLR1
 10300      I*
 10400      I* Selection List
 10500      I*
 10600      IW7SLST      DS
 10700      I                                        1 256 W7FLR2
 10800      I*
 19000      C*
 19001      C           K0001     KLIST
 19002      C                     KFLD           KYSE01
19003      C                     KFLD           KYKE02
19004      C*
19100      C           P0004     PLIST
19200      C                     PARM           W0PGM
19300      C                     PARM           W7PLST
19400      C                     PARM           W7SLST
19401      C*
50900      C* Submit the job to the BPCS submit job
51000      C* CALL 'SYS003B',W0PGM,W7PLST,W7SLST
51001      C                     MOVE 'X'       W7PLST
51002      C                     MOVE 'X'       W7SLST
51100      C                     Z-ADD1         CALLST  10
51101      C                     MOVE *BLANKS   W0PGM  10
51102      C                     MOVEL'CDM602B' W0PGM
51200      C                     CALL 'SYS003B' P0004        93
51400      C           *IN93     CABEQ'1'       $END
51800      C* EXTPGM
53600      C*
53601      C                     MOVE *BLANKS   SKEY8   8
53602      C                     MOVE *BLANKS   SMOD    1
53603      C                     MOVE *BLANKS   KYSE01  1        SYSET
53604      C                     MOVE *BLANKS   KYKE02  8        SYKEY
54100      C                     MOVE 'C'       SMOD
54400      C                     MOVE 'PROGLOCK'SKEY8
54600      C*
5769PW1 V4R2M0  980228                  SEU SOURCE LISTING
SOURCE FILE . . . . . . .  V62BPCSUSR/QRPGSRC
MEMBER  . . . . . . . . .  CDM$602D
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...
54603      C                     MOVEL*BLANK    KYSE01
54604      C                     MOVELSMOD      KYSE01
54605      C                     MOVEL*BLANK    KYKE02
54606      C                     MOVELSKEY8     KYKE02
54607      C           K0001     CHAINRSYL01               9091
54608      C           *IN90     IFEQ *OFF
54609      C           *IN91     ANDEQ*OFF
54611      C                     MOVEL'1'       SYDTAA           RD.SW.RSYL0
54612      C                     UPDATIPR100SY
54613      C                     ENDIF
54614      C*
54700      C           $END      TAG
54800      C                     MOVE *ON       *INLR
54900      C                     RETRN
                                * * * *  E N D  O F  S O U R C E  * * * *


+---
| This is the BPCS Users Mailing List!
| To submit a new message, send your mail to BPCS-L@midrange.com.
| To subscribe to this list send email to BPCS-L-SUB@midrange.com.
| To unsubscribe from this list send email to BPCS-L-UNSUB@midrange.com.
| Questions should be directed to the list owner: dasmussen@aol.com
+---