| 
**************************************************************** * * * Data Structure For API: QEZLSGNU * * Format: SGNU0100 * * Language: Cobol * * * **************************************************************** 01 SGNU0100-INPUT. 05 USER-SPACE-SPECIFIED PIC X(10). 05 USER-SPACE-LIBRARY-SPECIFIED PIC X(10). 05 FORMAT-SPECIFIED PIC X(8). 05 USER-NAME-SPECIFIED PIC X(10). 05 DISPLAY-STATION-NAME-SPEICIFED PIC X(10). 05 DISCONNECT-JOBS-INDICATOR-SPEC PIC X(10). 05 SIGNED-OFF-OUTPUT-INDICTR-SPEC PIC X(10). 01 SGNU0100-LIST. 05 DISPLAY-STATION-NAME PIC X(10). 05 USER-NAME PIC X(10). 05 JOB-NUMBER PIC X(6). 05 ACTIVITY PIC X(10). 05 ACTIVITY-NAME PIC X(10). 05 DISCONNECT-JOB-ALLOWED-INDICTR PIC X(1). |
|
05 RESERVED-SPACE PIC X(17). I**************************************************************** I* * I* DATA STRUCTURE FOR API: QEZLSGNU * I* FORMAT: SGNU0100 * I* LANGUAGE: RPG * I* * I**************************************************************** IINPUT DS I 1 20 QUSRSP I 1 10 USRSPC I 11 20 USRSPL I 21 28 FORMAT I 29 38 USRNAM I 39 48 DSPSTN I 49 58 DSCJOB I 59 68 SGNOFF ILIST DS I 1 10 DSPNAM I 11 20 USERNA I 21 26 JOBNBR I 27 36 ACTVTY |
|
I 37 46 ACTNAM I 47 47 ALWDSC I 48 64 RESERV **************************************************************** * * * Data Structure For API: QEZLSGNU * * Format: SGNU0200 * * Language: Cobol * * * **************************************************************** 01 SGNU0200-INPUT. 05 USER-SPACE-SPECIFIED PIC X(10). 05 USER-SPACE-LIBRARY-SPECIFIED PIC X(10). 05 FORMAT-SPECIFIED PIC X(8). 05 USER-NAME-SPECIFIED PIC X(10). 05 DISPLAY-STATION-NAME-SPEICIFED PIC X(10). 05 DISCONNECT-JOBS-INDICATOR-SPEC PIC X(10). 05 SIGNED-OFF-OUTPUT-INDICTR-SPEC PIC X(10). 01 SGNU0200-LIST. 05 DISPLAY-STATION-NAME PIC X(10). 05 USER-NAME PIC X(10). 05 JOB-NUMBER PIC X(6). |
|
05 ACTIVITY PIC X(10). 05 ACTIVITY-NAME PIC X(10). 05 DISCONNECT-JOB-ALLOWED-INDICTR PIC X(1). 05 RESERVED-SPACE PIC X(17). 05 DISPLAY-STATION-DESCRIPTION PIC X(50). 05 USER-DESCRIPTION PIC X(50). I**************************************************************** I* * I* DATA STRUCTURE FOR API: QEZLSGNU * I* FORMAT: SGNU0200 * I* LANGUAGE: RPG * I* * I**************************************************************** IINPUT DS I 1 20 QUSRSP I 1 10 USRSPC I 11 20 USRSPL I 21 28 FORMAT I 29 38 USRNAM I 39 48 DSPSTN I 49 58 DSCJOB I 59 68 SGNOFF |
|
ILIST DS I 1 10 DSPNAM I 11 20 USERNA I 21 26 JOBNBR I 27 36 ACTVTY I 37 46 ACTNAM I 47 47 ALWDSC I 48 64 RESERV I 65 114 DSPDSC I 115 164 USRDSC |
