ibm:vm370-lib:copy:recpag.copy_src
Table of Contents
RECPAG Source
References
- Fixes Applied : 0
- This Source Date : Friday, December 8, 1978
- Last Fix ID : [Unmodified]
Source Listing
- RECPAG.COPY.txt
- *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
ibm/vm370-lib/copy/recpag.copy_src.txt · Last modified: 2023/08/06 13:36 by Site Administrator