Re: Backup program problems.

["Jeff Silberberg" <jsilberberg@xxxxxxxxxxxxxx>]

Okay,

        To start with how about changing this :

0026.00              ENDTCP
0027.00              ENDHOSTSVR SERVER(*ALL)
0028.00              DLYJOB     DLY(60)
0029.00  JWALK:      SEAJWK/ENDJWKSVR
0030.00  JWALKLIC:   SEALMS/ENDLMSTCP
0031.00              DLYJOB     DLY(200)
0032.00  COMPLEO:    ENDSBS     SBS(ICASRV) DELAY(120)
0033.00              MONMSG     MSGID(CPF0000)

        to this :

0029.00  JWALK:         SEAJWK/ENDJWKSVR
0030.00  JWALKLIC:   SEALMS/ENDLMSTCP
0031.00                          DLYJOB     DLY(200)
0032.00  COMPLEO:    ENDSBS     SBS(ICASRV) DELAY(100)
0000.00                          DLYJOB(130)   /** Waits the 100 + 30 for
the end to happen **/
0027.00                          ENDHOSTSVR SERVER(*ALL)
0026.00                          ENDTCP OPTION(*IMMED)
0028.00                          DLYJOB     DLY(60) /** To support IBMs
definition of *IMMED **/
0034.00      ENDDO

        and  this:

0010.00     DCL  VAR(&msg) TYPE(*CHAR) LEN(512)    /*MESSAGE TEXT*/
0011.00
0012.00 IF    COND(&flag *EQ '*BEFORE   ') THEN(DO)
0013.00
/*-------------------------------------------------------------------*/
0014.00  INZTAP:     CALL       PGM(INZTAP)
0015.00              MONMSG     MSGID(CPF0000)
0016.00              DLYJOB     DLY(120)

         to:

0010.00     DCL  VAR(&msg) TYPE(*CHAR) LEN(512)    /*MESSAGE TEXT*/
 000.00
 000.00      MONMSG    MSGID(CPF0000)
 000.00       CHGJOB LOG(4 00 *SECLVL) LOGCLPGM(*YES)  /** Get as much help
as possible **/
0011.00
0012.00 IF    COND(&flag *EQ '*BEFORE   ') THEN(DO)
0013.00
/*-------------------------------------------------------------------*/
0014.00  INZTAP:     CALL       PGM(INZTAP)
0016.00                      DLYJOB     DLY(120)

        removing all the individual CPF0000 message monitors.....

        Good Luck,

JMS
================================