H 1 Y/ 1
I******************************************************
I* D E F I N E D A T A - S T R U C T U R E *
I******************************************************
I* FOR API PGM PARAMETER
IJOB100 DS
I 51 60 JOBSTS
I*
I DS
I B 1 40LENRCV
I*
IERROR DS
I I 116 B 1 40ERRTNB
I I 0 B 5 80ERAVAB
I 9 15 ERID
I 16 16 ERRSRV
I 17 100 EREXDT
I*
IDSJOBI DS
I 1 10 DSJOB
I 11 20 DSUSR
I 21 26 DSJOB#
C******************************************************
C* DEFINITION MODULE ( PLIST FIELD KLIST ) *
C******************************************************
C* ;
C* DEFINE ENTRY ;
C* ;
C *ENTRY PLIST ;
C PARM PIJOB 10 ;
C PARM PIUSR 10 ;
C PARM PIJOB# 6 ;
C PARM POSTS 10 ;JOB STS
C******************************************************
C* M A I N - R O U T I N E ;
C******************************************************
C MOVE PIJOB DSJOB ;
C MOVE PIUSR DSUSR ;
C MOVE PIJOB# DSJOB# ;
C MOVE *BLANK POSTS ;
C* ;
C CALL 'QUSRJOBI'
C PARM JOB100 :
C PARM 60 LENRCV :
C PARM 'JOBI0100'FORMAT 8 :
C PARM DSJOBI :
C PARM *BLANK INT 16 :
C PARM ERROR :
C* ;
B001 C ERAVAB IFNE 0 ;
001 C MOVEL'*ERR' POSTS ;
+001 C ELSE ;
001 C MOVELJOBSTS POSTS ;
E001 C END ;
C* :
C RETRN ; |