Article

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