CHGASP

CHGASP

 
    100              PGM        PARM(&ASP &THRESHOLD)                                                                   17/04/03
    200              DCL        VAR(&TERMINAL) TYPE(*CHAR) LEN(10)                                                      17/04/03
    300              DCL        VAR(&ASP) TYPE(*CHAR) LEN(4)                                                            17/04/03
    400              DCL        VAR(&THRESHOLD) TYPE(*CHAR) LEN(4)                                                      17/04/03
    500              DCL        VAR(&COUNTER) TYPE(*DEC) LEN(1)                                                         17/04/03
    600                                                                                                                 17/04/03
    700 /* API parameters  */                                                                                           14/04/03
    800                                                                                                                 17/04/03
    900              DCL        VAR(&HANDLE) TYPE(*CHAR) LEN(8)                                                         17/04/03
   1000              DCL        VAR(&ERROR) TYPE(*CHAR) LEN(96)                                                         17/04/03
   1100                                                                                                                 17/04/03
   1200              DCL        VAR(&BYTESPROV) TYPE(*CHAR) LEN(4)                                                      17/04/03
   1300              DCL        VAR(&BYTESAVAIL) TYPE(*CHAR) LEN(4)                                                     17/04/03
   1400              DCL        VAR(&EXCEPID) TYPE(*CHAR) LEN(7)                                                        17/04/03
   1500              DCL        VAR(&RESERVED) TYPE(*CHAR) LEN(1)                                                       17/04/03
   1600              DCL        VAR(&EXCEPDATA) TYPE(*CHAR) LEN(80)                                                     17/04/03
   1700                                                                                                                 01/04/03
   1800              DCL        VAR(&OPKEY) TYPE(*CHAR) LEN(4)                                                          17/04/03
   1900              DCL        VAR(&OPVAR) TYPE(*CHAR) LEN(8)                                                          17/04/03
   2000              DCL        VAR(&OPVARLEN) TYPE(*CHAR) LEN(4)                                                       17/04/03
   2100              DCL        VAR(&FORMAT) TYPE(*CHAR) LEN(8) +                                                       17/04/03
   2200                           VALUE('DMOP0100')                                                                     17/04/03
   2300                                                                                                                 17/04/03
   2400              DCL        VAR(&ASPNO) TYPE(*CHAR) LEN(4)                                                          17/04/03
   2500              DCL        VAR(&ASPTHRESH) TYPE(*CHAR) LEN(4)                                                      17/04/03
   2600                                                                                                                 17/04/03
   2700              RTVJOBA    JOB(&TERMINAL)                                                                          14/04/03
   2800                                                                                                                 01/04/03
   2900 /* Start DASD Management Session - QYASSDMS API  */                                                             17/04/03
   3000                                                                                                                 17/04/03
   3100              CHGVAR     VAR(%BIN(&BYTESPROV 1 4)) VALUE(0)                                                      17/04/03
   3200                                                                                                                 17/04/03
   3300              CHGVAR     VAR(&ERROR) VALUE(&BYTESPROV *CAT +                                                     17/04/03
   3400                           &BYTESAVAIL *CAT &EXCEPID *CAT &RESERVED +                                            17/04/03
   3500                           *CAT &EXCEPDATA)                                                                      17/04/03
   3600                                                                                                                 17/04/03
   3700  STARTSESS:  CALL       PGM(QYASSDMS) PARM(&HANDLE &ERROR)                                                      17/04/03
   3800              MONMSG     MSGID(CPFBA21) EXEC(DO) /* session already +                                            17/04/03
   3900                           active */                                                                             17/04/03
   4000                                                                                                                 17/04/03
   4100              CHGVAR     VAR(&COUNTER) VALUE(&COUNTER + 1)                                                       17/04/03
   4200                                                                                                                 17/04/03
   4300              IF         COND(&COUNTER *EQ 3) THEN(DO)                                                           17/04/03
   4400              SNDBRKMSG  MSG('CHGASP: DASD Management session still +                                            22/04/03
   4500                           in use - job will now end') TOMSGQ(&TERMINAL)                                         22/04/03
   4600                                                                                                                 22/04/03
   5000              GOTO       CMDLBL(END)                                                                             17/04/03
   5100              ENDDO                                                                                              17/04/03
   5200              SNDBRKMSG  MSG('DASD Management session still in use - +                                           17/04/03
   5300                           please wait for 6 mins to allow the +                                                 17/04/03
                                                   
   5400                           previous session to end. Press enter to +                                             17/04/03
   5500                           continue.') TOMSGQ(&TERMINAL)                                                         17/04/03
   5600              DLYJOB     DLY(360)                                                                                17/04/03
   5700              GOTO       CMDLBL(STARTSESS)                                                                       17/04/03
   5800                                                                                                                 17/04/03
   5900              ENDDO                                                                                              17/04/03
   6000                                                                                                                 17/04/03
   6100 /* Start DASD Management Operation - QYASSDMO API  */                                                           17/04/03
   6200                                                                                                                 17/04/03
   6300              CHGVAR     VAR(%BIN(&OPKEY 1 4)) VALUE(1)                                                          17/04/03
   6400              CHGVAR     VAR(%BIN(&aspno 1 4)) VALUE(&ASP)                                                       17/04/03
   6500              CHGVAR     VAR(%BIN(&ASPTHRESH 1 4)) VALUE(&THRESHOLD)                                             17/04/03
   6600              CHGVAR     VAR(&OPVAR) VALUE(&ASPNO *CAT &ASPTHRESH)                                               17/04/03
   6700                                                                                                                 17/04/03
   6800                                                                                                                 17/04/03
   6900              CALL       PGM(QYASSDMO) PARM(&HANDLE &OPKEY &OPVAR +                                              17/04/03
   7000                           &OPVARLEN &FORMAT &ERROR)                                                             17/04/03
   7100                                                                                                                 17/04/03
   7200 /* End DASD Management Operation - QYASEDMO API  */                                                             17/04/03
   7300                                                                                                                 17/04/03
   7400              CALL       PGM(QYASEDMO) PARM(&HANDLE &ERROR)                                                      17/04/03
   7500              MONMSG     MSGID(CPFBA46) /* not active  */                                                        17/04/03
   7600                                                                                                                 17/04/03
   7700 /* End DASD Management Session - QYASEDMS API  */                                                               17/04/03
   7800                                                                                                                 17/04/03
   7900                                                                                                                 17/04/03
   8000              CALL       PGM(QYASEDMS) PARM(&HANDLE &ERROR)                                                      17/04/03
   8100                                                                                                                 17/04/03
   8200              DSPASP                                                                                             26/04/03
   8300              MONMSG     MSGID(CPF0000)                                                                          26/04/03
   8400  END:        ENDPGM                                                                                             17/04/03
                                  * * * *  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