 | |||
|
|
||
| |||
| |||
| |
|
Home > AS/400 News > CHGASP |
| |
|
|
|
|
| AS/400 News: |
|
||
|
|||
|
|||
|
|||
|
|||
|
|||
|
|
|||||||||||||||||||||||||
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 * * * *
|
|
|
|
|||||||||||||||||||||||
| ||||||||||||||||||||||||||
|
|
 |  |  | |  | |  | |  | |  | |  | |  | |  | |  | |
|
|
About Us | Contact Us | For Advertisers | For Business Partners | Site Index | RSS |
|
|
||
|
|||||||
