Retrouve infos sur un spool

BoTTom |    Changer de couleur
      ****************************************************************
      *                                                              *
      * API:  QUSRSPLA                                               *
      * Format:  SPLA0100                                            *
      *                                                              *
      ****************************************************************
       01 SPLA0100-RCVVAR.
           05 BYTES-RETURNED                 PIC S9(9) COMP-4.
           05 BYTES-AVAILABLE                PIC S9(9) COMP-4.
           05 INTERNAL-JOB-ID                PIC X(16).
           05 INTERNAL-SPOOL-FILE-ID         PIC X(16).
           05 JOB-NAME                       PIC X(10).
           05 USER-NAME                      PIC X(10).
           05 JOB-NUMBER                     PIC X(06).
           05 SPOOL-FILE-NAME                PIC X(10).
           05 SPOOL-FILE-NUMBER              PIC S9(9) COMP-4.
           05 FORM-TYPE                      PIC X(10).
           05 USER-DATA                      PIC X(10).
           05 SPOOL-FILE-STATUS              PIC X(10).
           05 SPOOL-FILE-AVAILABILITY        PIC X(10).
           05 HOLD-SPOOL-FILE                PIC X(10).
           05 SAVE-SPOOL-FILE                PIC X(10).


|    Changer de couleur
           05 TOTAL-PAGES                    PIC S9(9) COMP-4.
           05 PAGE-BEING-WRITTEN             PIC S9(9) COMP-4.
           05 STARTING-PAGE                  PIC S9(9) COMP-4.
           05 ENDING-PAGE                    PIC S9(9) COMP-4.
           05 LAST-PAGE-PRINTED              PIC S9(9) COMP-4.
           05 RESTART-PRINTING               PIC S9(9) COMP-4.
           05 NUMBER-COPIES                  PIC S9(9) COMP-4.
           05 REMAINING-COPIES               PIC S9(9) COMP-4.
           05 LINES-PER-INCH                 PIC S9(9) COMP-4.
           05 CHARACTERS-PER-INCH            PIC S9(9) COMP-4.
           05 OUTPUT-PRIORITY                PIC X(02).
           05 OUTQ-NAME                      PIC X(10).
           05 OUTQ-LIBRARY                   PIC X(10).
           05 DATE-OPENED                    PIC X(07).
           05 TIME-OPENED                    PIC X(06).
           05 DEVICE-FILE-NAME               PIC X(10).
           05 DEVICE-FILE-LIBRARY            PIC X(10).
           05 OPENING-PROGRAM                PIC X(10).
           05 PROGRAM-LIBRARY                PIC X(10).
           05 ACCOUNTING-CODE                PIC X(15).
           05 PRINT-TEXT                     PIC X(30).
           05 RECORD-LENGTH                  PIC S9(9) COMP-4.


|    Changer de couleur
           05 MAXIMUM-RECORDS                PIC S9(9) COMP-4.
           05 DEVICE-TYPE                    PIC X(10).
           05 PRINTER-DEVICE-TYPE            PIC X(10).
           05 DOCUMENT-NAME                  PIC X(12).
           05 FOLDER-NAME                    PIC X(64).
           05 S36-PROCEDURE-NAME             PIC X(08).
           05 PRINT-FIDELITY                 PIC X(10).
           05 REPLACE-UNPRINTABLES           PIC X(01).
           05 REPLACEMENT-CHARACTER          PIC X(01).
           05 PAGE-LENGTH                    PIC S9(9) COMP-4.
           05 PAGE-WIDTH                     PIC S9(9) COMP-4.
           05 NUMBER-SEPARATORS              PIC S9(9) COMP-4.
           05 OVERFLOW-LINE                  PIC S9(9) COMP-4.
           05 DBCS-DATA                      PIC X(10).
           05 DBCS-EXTENSION                 PIC X(10).
           05 DBCS-SOSI                      PIC X(10).
           05 DBCS-ROTATION                  PIC X(10).
           05 DBCS-CHARACTERS-PER-INCH       PIC S9(9) COMP-4.
           05 GRAPHICS-CHARACTER-SET         PIC X(10).
           05 CODE-PAGE                      PIC X(10).
           05 FORM-DEFINITION-NAME           PIC X(10).
           05 FORM-DEFINITION-LIBRARY        PIC X(10).


|    Changer de couleur
           05 SOURCE-DRAWER                  PIC S9(9) COMP-4.
           05 PRINTER-FONT                   PIC X(10).
           05 S36-SPOOL-ID                   PIC X(06).
           05 PAGE-ROTATION                  PIC S9(9) COMP-4.
           05 JUSTIFICATION                  PIC S9(9) COMP-4.
           05 DUPLEX-PRINT                   PIC X(10).
           05 FOLD-RECORDS                   PIC X(10).
           05 CONTROL-CHARACTER              PIC X(10).
           05 ALIGN-FORMS                    PIC X(10).
           05 PRINT-QUALITY                  PIC X(10).
           05 FORM-FEED                      PIC X(10).
           05 VOLUMES                        PIC X(71).
           05 FILE-LABEL-ID                  PIC X(17).
           05 EXCHANGE-TYPE                  PIC X(10).
           05 CHARACTER-CODE                 PIC X(10).
           05 NUMBER-RECORDS                 PIC S9(9) COMP-4.
           05 PAGES-PER-SIDE                 PIC S9(9) COMP-4.
           05 FRONT-OVERLAY-NAME             PIC X(10).
           05 FRONT-OVERLAY-LIB              PIC X(10).
           05 FRONT-OVERLAY-OFFSET-DWN       PIC S9(10)V9(5) COMP-3.
           05 FRONT-OVERLAY-OFFSET-ACR       PIC S9(10)V9(5) COMP-3.
           05 BACK-OVERLAY-NAME              PIC X(10).


|    Changer de couleur
           05 BACK-OVERLAY-LIB               PIC X(10).
           05 BACK-OVERLAY-OFFSET-DWN        PIC S9(10)V9(5) COMP-3.
           05 BACK-OVERLAY-OFFSET-ACR        PIC S9(10)V9(5) COMP-3.
           05 UNIT-OF-MEASURE                PIC X(10).
           05 PAGE-DEFINITION-NAME           PIC X(10).
           05 PAGE-DEFINITION-LIBRARY        PIC X(10).
           05 LINE-SPACING                   PIC X(10).
           05 POINT-SIZE                     PIC S9(10)V9(5) COMP-3.
           05 FRONT-MARGIN-OFFSET-DWN        PIC S9(10)V9(5) COMP-3.
           05 FRONT-MARGIN-OFFSET-ACR        PIC S9(10)V9(5) COMP-3.
           05 BACK-MARGIN-OFFSET-DWN         PIC S9(10)V9(5) COMP-3.
           05 BACK-MARGIN-OFFSET-ACR         PIC S9(10)V9(5) COMP-3.
           05 LENGTH-OF-PAGE                 PIC S9(10)V9(5) COMP-3.
           05 WIDTH-OF-PAGE                  PIC S9(10)V9(5) COMP-3.
           05 PAGE-SIZE-MEASURE-METHOD       PIC X(10).
           05 AFP-RESOURCE                   PIC X(1).
           05 FONT-CHAR-SET-NAME             PIC X(10).
           05 FONT-CHAR-SET-LIBRARY          PIC X(10).
           05 CODE-PAGE-NAME                 PIC X(10).
           05 CODE-PAGE-LIBRARY              PIC X(10).
           05 CODED-FONT-NAME                PIC X(10).
           05 CODED-FONT-LIBRARY             PIC X(10).


|    Changer de couleur
           05 DBCS-CODED-FONT-NAME           PIC X(10).
           05 DBCS-CODED-FONT-LIBRARY        PIC X(10).
           05 USER-DEFINED-FILE              PIC X(10).
      ****************************************************************
     IRCVVAR      DS
     I                                    B   1   40BYTRTN
     I                                    B   5   80BYTVAL
     I                                        9  24 JOBID
     I                                       25  40 SPLFID
     I                                       41  50 JOBNAM
     I                                       51  60 USRNAM
     I                                       61  66 JOBNUM
     I                                       67  76 FILNAM
     I                                    B  77  800FILNUM
     I                                       81  90 FRMTYP
     I                                       91 100 USRDTA
     I                                      101 110 STATUS
     I                                      111 120 FILAVL
     I                                      121 130 HLDF
     I                                      131 140 SAVF
     I                                    B 141 1440TOTPAG
     I                                    B 145 1480PAGWRT


|    Changer de couleur
     I                                    B 149 1520STRPAG
     I                                    B 153 1560ENDPAG
     I                                    B 157 1600LASPAG
     I                                    B 161 1640RESPRT
     I                                    B 165 1680TOTCPY
     I                                    B 169 1720CPYLFT
     I                                    B 173 1760LPI
     I                                    B 177 1800CPI
     I                                      181 182 OUTPRI
     I                                      183 192 OUTQNM
     I                                      193 202 OUTQLB
     I                                      203 209 DATFOP
     I                                      210 215 TIMFOP
     I                                      216 225 DEVFNA
     I                                      226 235 DEVFLB
     I                                      236 245 PGMOPF
     I                                      246 255 PGMOPL
     I                                      256 270 ACCCOD
     I                                      271 300 PRTTXT
     I                                    B 301 3040RCDLEN
     I                                    B 305 3080MAXRCD
     I                                      309 318 DEVCLS


|    Changer de couleur
     I                                      319 328 PRTTYP
     I                                      329 340 DOCNAM
     I                                      341 404 FLDNAM
     I                                      405 412 S36PRC
     I                                      413 422 PRTFID
     I                                      423 423 RPLUN
     I                                      424 424 RPLCHR
     I                                    B 425 4280PAGLEN
     I                                    B 429 4320PAGWID
     I                                    B 433 4360NUMSEP
     I                                    B 437 4400OVRLIN
     I                                      441 450 DBCSDA
     I                                      451 460 DBCSEC
     I                                      461 470 DBCSSO
     I                                      471 480 DBCSCR
     I                                    B 481 4840DBCSCI
     I                                      485 494 GRAPHI
     I                                      495 504 CODPAG
     I                                      505 514 FORNAM
     I                                      515 524 FORLIB
     I                                    B 525 5280SRCDRW
     I                                      529 538 PRTFON


|    Changer de couleur
     I                                      539 544 S36SPL
     I                                    B 545 5480PAGROT
     I                                    B 549 5520JUSTIF
     I                                      553 562 PRTBOT
     I                                      563 572 FLDRCD
     I                                      573 582 CTLCHR
     I                                      583 592 ALGFRM
     I                                      593 602 PRTQUA
     I                                      603 612 FRMFED
     I                                      613 683 VOLUME
     I                                      684 700 FLABID
     I                                      701 710 EXCTYP
     I                                      711 720 CHRCOD
     I                                    B 721 7240TOTRCD
     I                                    B 725 7280PGPSID
     I                                      729 738 FOVNAM
     I                                      739 748 FOVLIB
     I                                    P 749 7565FOVOFD
     I                                    P 757 7645FOVOFA
     I                                      765 774 BOVNAM
     I                                      775 784 BOVLIB
     I                                    P 785 7925BOVOFD


|    Changer de couleur
     I                                    P 793 8005BOVOFA
     I                                      801 810 UOM
     I                                      811 820 PAGNAM
     I                                      821 830 PAGLIB
     I                                      831 840 LINSPC
     I                                    P 841 8485PNTSIZ
     I                                    P 849 8565FMRFOD
     I                                    P 857 8645FMRFOA
     I                                    P 865 8725BMRFOD
     I                                    P 873 8805BMRFOA
     I                                    P 881 8885MPGLEN
     I                                    P 889 8965MPGWID
     I                                      897 906 MEAMTH
     I                                      907 907 AFPRES
     I                                      908 917 FCHSNM
     I                                      918 927 FCHSLB
     I                                      928 937 CDPGNM
     I                                      938 947 CDPGLB
     I                                      948 957 CFNTNM
     I                                      958 967 CFNTLB
     I                                      968 977 DCFTNM
     I                                      978 987 DCFTLB


|    Changer de couleur
     I                                      988 997 USRFIL
      ****************************************************************
      *                                                              *
      * API:  QUSRSPLA                                               *
      * Format:  SPLA0200                                            *
      *                                                              *
      ****************************************************************
       01 SPLA0200-RCVVAR.
           05 BYTES-RETURNED                 PIC S9(9) COMP-4.
           05 BYTES-AVAILABLE                PIC S9(9) COMP-4.
           05 FORMAT-NAME                    PIC X(8).
           05 INTERNAL-JOB-ID                PIC X(16).
           05 INTERNAL-SPOOL-FILE-ID         PIC X(16).
           05 JOB-NAME                       PIC X(10).
           05 USER-NAME                      PIC X(10).
           05 JOB-NUMBER                     PIC X(06).
           05 SPOOL-FILE-NAME                PIC X(10).
           05 SPOOL-FILE-NUMBER              PIC S9(9) COMP-4.
           05 FORM-TYPE                      PIC X(10).
           05 USER-DATA                      PIC X(10).
           05 SPOOL-FILE-STATUS              PIC X(10).
           05 SPOOL-FILE-AVAILABILITY        PIC X(10).


|    Changer de couleur
           05 HOLD-SPOOL-FILE                PIC X(10).
           05 SAVE-SPOOL-FILE                PIC X(10).
           05 TOTAL-PAGES                    PIC S9(9) COMP-4.
           05 PAGE-BEING-WRITTEN             PIC S9(9) COMP-4.
           05 STARTING-PAGE                  PIC S9(9) COMP-4.
           05 ENDING-PAGE                    PIC S9(9) COMP-4.
           05 LAST-PAGE-PRINTED              PIC S9(9) COMP-4.
           05 RESTART-PRINTING               PIC S9(9) COMP-4.
           05 NUMBER-COPIES                  PIC S9(9) COMP-4.
           05 REMAINING-COPIES               PIC S9(9) COMP-4.
           05 LINES-PER-INCH                 PIC S9(9) COMP-4.
           05 CHARACTERS-PER-INCH            PIC S9(9) COMP-4.
           05 OUTPUT-PRIORITY                PIC X(02).
           05 OUTQ-NAME                      PIC X(10).
           05 OUTQ-LIBRARY                   PIC X(10).
           05 DATE-OPENED                    PIC X(07).
           05 TIME-OPENED                    PIC X(06).
           05 DEVICE-FILE-NAME               PIC X(10).
           05 DEVICE-FILE-LIBRARY            PIC X(10).
           05 OPENING-PROGRAM                PIC X(10).
           05 PROGRAM-LIBRARY                PIC X(10).
           05 ACCOUNTING-CODE                PIC X(15).


|    Changer de couleur
           05 PRINT-TEXT                     PIC X(30).
           05 RECORD-LENGTH                  PIC S9(9) COMP-4.
           05 MAXIMUM-RECORDS                PIC S9(9) COMP-4.
           05 DEVICE-TYPE                    PIC X(10).
           05 PRINTER-DEVICE-TYPE            PIC X(10).
           05 DOCUMENT-NAME                  PIC X(12).
           05 FOLDER-NAME                    PIC X(64).
           05 S36-PROCEDURE-NAME             PIC X(08).
           05 PRINT-FIDELITY                 PIC X(10).
           05 REPLACE-UNPRINTABLES           PIC X(01).
           05 REPLACEMENT-CHARACTER          PIC X(01).
           05 PAGE-LENGTH                    PIC S9(9) COMP-4.
           05 PAGE-WIDTH                     PIC S9(9) COMP-4.
           05 NUMBER-SEPARATORS              PIC S9(9) COMP-4.
           05 OVERFLOW-LINE                  PIC S9(9) COMP-4.
           05 DBCS-DATA                      PIC X(10).
           05 DBCS-EXTENSION                 PIC X(10).
           05 DBCS-SOSI                      PIC X(10).
           05 DBCS-ROTATION                  PIC X(10).
           05 DBCS-CHARACTERS-PER-INCH       PIC S9(9) COMP-4.
           05 GRAPHICS-CHARACTER-SET         PIC X(10).
           05 CODE-PAGE                      PIC X(10).


|    Changer de couleur
           05 FORM-DEFINITION-NAME           PIC X(10).
           05 FORM-DEFINITION-LIBRARY        PIC X(10).
           05 SOURCE-DRAWER                  PIC S9(9) COMP-4.
           05 PRINTER-FONT                   PIC X(10).
           05 S36-SPOOL-ID                   PIC X(06).
           05 PAGE-ROTATION                  PIC S9(9) COMP-4.
           05 JUSTIFICATION                  PIC S9(9) COMP-4.
           05 DUPLEX-PRINT                   PIC X(10).
           05 FOLD-RECORDS                   PIC X(10).
           05 CONTROL-CHARACTER              PIC X(10).
           05 ALIGN-FORMS                    PIC X(10).
           05 PRINT-QUALITY                  PIC X(10).
           05 FORM-FEED                      PIC X(10).
           05 VOLUMES                        PIC X(71).
           05 FILE-LABEL-ID                  PIC X(17).
           05 EXCHANGE-TYPE                  PIC X(10).
           05 CHARACTER-CODE                 PIC X(10).
           05 NUMBER-RECORDS                 PIC S9(9) COMP-4.
           05 PAGES-PER-SIDE                 PIC S9(9) COMP-4.
           05 FRONT-OVERLAY-NAME             PIC X(10).
           05 FRONT-OVERLAY-LIB              PIC X(10).
           05 FRONT-OVERLAY-OFFSET-DWN       PIC S9(10)V9(5) COMP-3.


|    Changer de couleur
           05 FRONT-OVERLAY-OFFSET-ACR       PIC S9(10)V9(5) COMP-3.
           05 BACK-OVERLAY-NAME              PIC X(10).
           05 BACK-OVERLAY-LIB               PIC X(10).
           05 BACK-OVERLAY-OFFSET-DWN        PIC S9(10)V9(5) COMP-3.
           05 BACK-OVERLAY-OFFSET-ACR        PIC S9(10)V9(5) COMP-3.
           05 UNIT-OF-MEASURE                PIC X(10).
           05 PAGE-DEFINITION-NAME           PIC X(10).
           05 PAGE-DEFINITION-LIBRARY        PIC X(10).
           05 LINE-SPACING                   PIC X(10).
           05 POINT-SIZE                     PIC S9(10)V9(5) COMP-3.
           05 SPOOLED-DATA-RECORD-SZ         PIC S9(9) COMP-4.
           05 SPOOLED-FILE-BUFFER-SZ         PIC S9(9) COMP-4.
           05 SPOOLED-FILE-LEVEL             PIC X(6).
           05 CODED-FONT-ARRAY               PIC X(16).
           05 CHANNEL-MODE                   PIC X(10).
           05 CHANNEL-CODE1                  PIC S9(9) COMP-4.
           05 CHANNEL-CODE2                  PIC S9(9) COMP-4.
           05 CHANNEL-CODE3                  PIC S9(9) COMP-4.
           05 CHANNEL-CODE4                  PIC S9(9) COMP-4.
           05 CHANNEL-CODE5                  PIC S9(9) COMP-4.
           05 CHANNEL-CODE6                  PIC S9(9) COMP-4.
           05 CHANNEL-CODE7                  PIC S9(9) COMP-4.


|    Changer de couleur
           05 CHANNEL-CODE8                  PIC S9(9) COMP-4.
           05 CHANNEL-CODE9                  PIC S9(9) COMP-4.
           05 CHANNEL-CODE10                 PIC S9(9) COMP-4.
           05 CHANNEL-CODE11                 PIC S9(9) COMP-4.
           05 CHANNEL-CODE12                 PIC S9(9) COMP-4.
           05 GRAPHICS-TOKEN                 PIC X(8).
           05 RECORD-FORMAT                  PIC X(10).
           05 RESERVED2                      PIC X(2).
           05 HEIGHT-DRAWER1                 PIC S9(10)V9(5) COMP-3.
           05 WIDTH-DRAWER1                  PIC S9(10)V9(5) COMP-3.
           05 HEIGHT-DRAWER2                 PIC S9(10)V9(5) COMP-3.
           05 WIDTH-DRAWER2                  PIC S9(10)V9(5) COMP-3.
           05 NUMBER-BUFFERS                 PIC S9(9) COMP-4.
           05 MAXIMUM-FORM-WIDTH             PIC S9(9) COMP-4.
           05 ALTERNATE-FORM-WIDTH           PIC S9(9) COMP-4.
           05 ALTERNATE-FORM-LENGTH          PIC S9(9) COMP-4.
           05 ALTERNATE-LPI                  PIC S9(9) COMP-4.
           05 TEXT-FLAGS                     PIC X(2).
           05 FLAG-FILE-OPEN                 PIC X(1).
           05 FLAG-EST-PAGE-COUNT            PIC X(1).
           05 FLAG-STOPPED-PGE-BND           PIC X(1).
           05 FLAG-TRC                       PIC X(1).


|    Changer de couleur
           05 FLAG-DEFINED-CHARACTERS        PIC X(1).
           05 FLAG-CPI                       PIC X(1).
           05 FLAG-TRANSPARENCY              PIC X(1).
           05 FLAG-DOUBLE-WIDE-CHAR          PIC X(1).
           05 FLAG-CHARACTER-ROT             PIC X(1).
           05 FLAG-CODE-PAGE                 PIC X(1).
           05 FLAG-FFT-EMPHASIS              PIC X(1).
           05 FLAG-SCS3812                   PIC X(1).
           05 FLAG-SET-LINE-DENSITY          PIC X(1).
           05 FLAG-GRAPHIC-ERROR-ACT         PIC X(1).
           05 FLAG-COMMAND5219               PIC X(1).
           05 FLAG-COMMAND3812               PIC X(1).
           05 FLAG-FIELD-OUTLINE             PIC X(1).
           05 FLAG-FINAL-FORM-TEXT           PIC X(1).
           05 FLAG-BAR-CODE                  PIC X(1).
           05 FLAG-COLOR                     PIC X(1).
           05 FLAG-DRAWER-CHANGE             PIC X(1).
           05 FLAG-CHAR-ID                   PIC X(1).
           05 FLAG-LPI                       PIC X(1).
           05 FLAG-FONT                      PIC X(1).
           05 FLAG-HIGHLIGHT                 PIC X(1).
           05 FLAG-PAGE-ROTATE               PIC X(1).


|    Changer de couleur
           05 FLAG-SUBSCRIPT                 PIC X(1).
           05 FLAG-SUPERSCRIPT               PIC X(1).
           05 FLAG-DDS                       PIC X(1).
           05 FLAG-FORM-FEED                 PIC X(1).
           05 FLAG-SCS-DATA                  PIC X(1).
           05 FLAG-USER-GEN-DATA             PIC X(1).
           05 FLAG-GRAPHICS                  PIC X(1).
           05 FLAG-UNRECOGNIZED-DATA         PIC X(1).
           05 FLAG-ASCII-TRANSPARENCY        PIC X(1).
           05 FLAG-IPDS-TRANSPARENT          PIC X(1).
           05 FLAG-OFFICE-VISION             PIC X(1).
           05 FLAG-LPI-NOT-SUPPORTED         PIC X(1).
           05 FLAG-CPA3353                   PIC X(1).
           05 FLAG-SET-EXCEPTION             PIC X(1).
           05 FLAG-CARRIAGE-CONTROL-CHAR     PIC X(1).
           05 FLAG-PAGE-POSITION             PIC X(1).
           05 FLAG-INVALID-CHAR              PIC X(1).
           05 FLAG-LENGTHS                   PIC X(1).
           05 FLAG-5A                        PIC X(1).
           05 FLAG-RESERVED10                PIC X(1).
           05 NUMBER-FONT-ENTRIES            PIC S9(9) COMP-4.
           05 NUMBER-LIBRARY-ENTRIES         PIC S9(9) COMP-4.


|    Changer de couleur
           05 FONT-ENTRIES                   PIC X(1153).
           05 LIBRARY-ENTRIES                PIC X(631).
           05 RESERVED3                      PIC X(296).
           05 FRONT-MARGIN-OFFSET-DWN        PIC S9(10)V9(5) COMP-3.
           05 FRONT-MARGIN-OFFSET-ACR        PIC S9(10)V9(5) COMP-3.
           05 BACK-MARGIN-OFFSET-DWN         PIC S9(10)V9(5) COMP-3.
           05 BACK-MARGIN-OFFSET-ACR         PIC S9(10)V9(5) COMP-3.
           05 LENGTH-OF-PAGE                 PIC S9(10)V9(5) COMP-3.
           05 WIDTH-OF-PAGE                  PIC S9(10)V9(5) COMP-3.
           05 PAGE-SIZE-MEASURE-METHOD       PIC X(10).
           05 AFP-RESOURCE                   PIC X(1).
           05 FONT-CHAR-SET-NAME             PIC X(10).
           05 FONT-CHAR-SET-LIBRARY          PIC X(10).
           05 CODE-PAGE-NAME                 PIC X(10).
           05 CODE-PAGE-LIBRARY              PIC X(10).
           05 CODED-FONT-NAME                PIC X(10).
           05 CODED-FONT-LIBRARY             PIC X(10).
           05 DBCS-CODED-FONT-NAME           PIC X(10).
           05 DBCS-CODED-FONT-LIBRARY        PIC X(10).
           05 USER-DEFINED-FILE              PIC X(10).
      ****************************************************************
     IRCVVAR      DS


|    Changer de couleur
     I                                    B   1   40BYTRTN
     I                                    B   5   80BYTVAL
     I                                        9  16 FMTNAM
     I                                       17  32 JOBID
     I                                       33  48 SPLFID
     I                                       49  58 JOBNAM
     I                                       59  68 USRNAM
     I                                       69  74 JOBNUM
     I                                       75  84 FILNAM
     I                                    B  85  880FILNUM
     I                                       89  98 FRMTYP
     I                                       99 108 USRDTA
     I                                      109 118 STATUS
     I                                      119 128 FILAVL
     I                                      129 138 HLDF
     I                                      139 148 SAVF
     I                                    B 149 1520TOTPAG
     I                                    B 153 1560PAGWRT
     I                                    B 157 1600STRPAG
     I                                    B 161 1640ENDPAG
     I                                    B 165 1680LASPAG
     I                                    B 169 1720RESPRT


|    Changer de couleur
     I                                    B 173 1760TOTCPY
     I                                    B 177 1800CPYLFT
     I                                    B 181 1840LPI
     I                                    B 185 1880CPI
     I                                      189 190 OUTPRI
     I                                      191 200 OUTQNM
     I                                      201 210 OUTQLB
     I                                      211 217 DATFOP
     I                                      218 223 TIMFOP
     I                                      224 233 DEVFNA
     I                                      234 243 DEVFLB
     I                                      244 253 PGMOPF
     I                                      254 263 PGMOPL
     I                                      264 278 ACCCOD
     I                                      279 308 PRTTXT
     I                                    B 309 3120RCDLEN
     I                                    B 313 3160MAXRCD
     I                                      317 326 DEVCLS
     I                                      327 336 PRTTYP
     I                                      337 348 DOCNAM
     I                                      349 412 FLDNAM
     I                                      413 420 S36PRC


|    Changer de couleur
     I                                      421 430 PRTFID
     I                                      431 431 RPLUN
     I                                      432 432 RPLCHR
     I                                    B 433 4360PAGLEN
     I                                    B 437 4400PAGWID
     I                                    B 441 4440NUMSEP
     I                                    B 445 4480OVRLIN
     I                                      449 458 DBCSDA
     I                                      459 468 DBCSEC
     I                                      469 478 DBCSSO
     I                                      479 488 DBCSCR
     I                                    B 489 4920DBCSCI
     I                                      493 502 GRAPHI
     I                                      503 512 CODPAG
     I                                      513 522 FORNAM
     I                                      523 532 FORLIB
     I                                    B 533 5360SRCDRW
     I                                      537 546 PRTFON
     I                                      547 552 S36SPL
     I                                    B 553 5560PAGROT
     I                                    B 557 5600JUSTIF
     I                                      561 570 PRTBOT


|    Changer de couleur
     I                                      571 580 FLDRCD
     I                                      581 590 CTLCHR
     I                                      591 600 ALGFRM
     I                                      601 610 PRTQUA
     I                                      611 620 FRMFED
     I                                      621 691 VOLUME
     I                                      692 708 FLABID
     I                                      709 718 EXCTYP
     I                                      719 728 CHRCOD
     I                                    B 729 7320TOTRCD
     I                                    B 733 7360PGPSID
     I                                      737 746 FOVNAM
     I                                      747 756 FOVLIB
     I                                    P 757 7645FOVOFD
     I                                    P 765 7725FOVOFA
     I                                      773 782 BOVNAM
     I                                      783 792 BOVLIB
     I                                    P 793 8005BOVOFD
     I                                    P 801 8085BOVOFA
     I                                      809 818 UOM
     I                                      819 828 PAGNAM
     I                                      829 838 PAGLIB


|    Changer de couleur
     I                                      839 848 LINSPC
     I                                    P 849 8565PNTSIZ
     I                                    B 857 8600MAXSIZ
     I                                    B 861 8640BUFSIZ
     I                                      865 870 SPLLVL
     I                                      871 886 CODFNT
     I                                      887 896 CHLMOD
     I                                      897 944 CHLCOD
     I                                      945 952 GPHTKN
     I                                      953 962 RECFMT
     I                                      963 964 RSVRD1
     I                                    P 965 9725HGTDW1
     I                                    P 973 9805WIDDW1
     I                                    P 981 9885HGTDW2
     I                                    P 989 9965WIDDW2
     I                                    B 99710000NBRBUF
     I                                    B100110040MAXFMW
     I                                    B100510080ALTFMW
     I                                    B100910120ALTFML
     I                                    B101310160ALTLPI
     I                                     10171018 TXTFLG
     I                                     10191019 FILOPN


|    Changer de couleur
     I                                     10201020 PGEEST
     I                                     10211021 PGEBND
     I                                     10221022 TRCCHR
     I                                     10231023 DEFCHR
     I                                     10241024 CHRCPI
     I                                     10251025 TRANSP
     I                                     10261026 DBLWID
     I                                     10271027 CHRROT
     I                                     10281028 CODPGE
     I                                     10291029 FFTEMP
     I                                     10301030 SCS381
     I                                     10311031 SETLDN
     I                                     10321032 GPHERA
     I                                     10331033 CMD521
     I                                     10341034 CMD381
     I                                     10351035 OUTLIN
     I                                     10361036 FORMTX
     I                                     10371037 BARCOD
     I                                     10381038 COLOR
     I                                     10391039 DWRCHG
     I                                     10401040 CHARID
     I                                     10411041 FLGLPI


|    Changer de couleur
     I                                     10421042 FLGFNT
     I                                     10431043 HIGHLI
     I                                     10441044 PGEROT
     I                                     10451045 SUBSCR
     I                                     10461046 SUPSCR
     I                                     10471047 FLGDDS
     I                                     10481048 FORMFD
     I                                     10491049 SCSDTA
     I                                     10501050 USRGEN
     I                                     10511051 GRPHIC
     I                                     10521052 UNRDTA
     I                                     10531053 ASCIIT
     I                                     10541054 IPDSTR
     I                                     10551055 OFFVIS
     I                                     10561056 LPINOS
     I                                     10571057 CPAMSG
     I                                     10581058 SETEXC
     I                                     10591059 CARRCC
     I                                     10601060 PAGPOS
     I                                     10611061 INVCHR
     I                                     10621062 LNGTHS
     I                                     10631063 PRES5A


|    Changer de couleur
     I                                     10641064 RSVRD2
     I                                    B106510680NBRFNT
     I                                    B106910720NBRLIB
     I                                     10731328 FNTAR1
     I                                     13291584 FNTAR2
     I                                     15851840 FNTAR3
     I                                     18412096 FNTAR4
     I                                     20972225 FNTAR5
     I                                     22262475 LIBAR1
     I                                     24762725 LIBAR2
     I                                     27262856 LIBAR3
     I                                     28573112 RSVRD3
     I                                     31133153 RSVRD4
     I                                    P315331605FMRFOD
     I                                    P316131685FMRFOA
     I                                    P316931765BMRFOD
     I                                    P317731845BMRFOA
     I                                    P318531925MPGLEN
     I                                    P319332005MPGWID
     I                                     32013210 MEAMTH
     I                                     32113211 AFPRES
     I                                     32123221 FCHSNM


|    Changer de couleur
     I                                     32223231 FCHSLB
     I                                     32323241 CDPGNM
     I                                     32423251 CDPGLB
     I                                     32523261 CFNTNM
     I                                     32623271 CFNTLB
     I                                     32723281 DCFTNM
     I                                     32823291 DCFTLB
     I                                     32923301 USRFIL




©AF400