*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