*COPY RECPAG                                                            00001000
         PUSH  PRINT                                                    00001200
         AIF   ('&SYSPARM' NE 'SUP').REC01                              00001400
         PRINT OFF,NOGEN                                                00001600
.REC01   ANOP                                                           00001800
RECPAG   DSECT                                                          00004000
         SPACE 1                                                        00005000
***                 RECPAG  -  ERROR RECORDING PAGE RECORD              00006000
*                                                                       00007000
*          0   +-----------------------+-----------+-----+-----+        00008000
*              |        RECCCPD        |  RECNXT   | R*1 | R*2 |        00009000
*          8   +-----------------------+-----------+-----+-----+        00010000
*              |                                               |        00011000
*              =                    RECDATA                    =        00012000
*              |                                               |        00013000
*        1000  +-----------------------------------------------+        00014000
*                                                                       00015000
***                 RECPAG  -  ERROR RECORDING PAGE RECORD              00016000
         SPACE                                                          00018000
RECCCPD  DS    4X             CCPD OF THE RECORD                        00019000
RECNXT   DS    2X             DISPLACEMENT TO NEXT ERROR RECORD         00020000
RECFLAG1 DS    1X         R*1 RECORD USAGE FLAGS                        00021000
RECFLAG2 DS    1X         R*2 RECORD FORMAT FLAG                        00022000
RECDATA  DS    4088C          DATA AREA                                 00023000
         SPACE                                                          00024000
RECPAGSZ EQU   *-RECPAG       SIZE OF PAGE                              00025000
         SPACE                                                          00026000
*        BITS DEFINED IN RECFLAG1:                                      00028000
RECPAGIU EQU   X'80'          PAGE CONTAINS VALID DATA                  00030000
RECPAGFR EQU   X'40'          PAGE IS CLEARED                           00031000
RECPAGFL EQU   X'20'          PAGE IS FULL OF ERROR RECORDS             00032000
RECPAGER EQU   X'10'          NEXT PAGE IS UNREADABLE(IO ERROR)         00033000
RECPAGFA EQU   X'08'          FRAME RECORDS EXIST ON THIS PAGE          00033100
         SPACE                                                          00034000
*        BITS DEFINED IN RECFLAG2:                                      00036000
RECPAGFM EQU   X'80'          SET IN PAGE ONE OF A RECORDING CYLINDER   00038000
*                             WHEN CYLINDER BEING FORMATTED AND WILL    00039000
*                             BE RESET ONLY WHEN ALL PAGES ARE CLEARED  00040000
RECPAGDN EQU   X'00'          CYLINDER FORMATTED                        00041000
         EJECT                                                          00042000
         POP   PRINT                                                    00043000
         SPACE                                                          00044000