BPXYFDUM DSECT=YES
** BPXYFDUM: FDUM - LFS dump list passed to PFS initialization
FDUM DSECT ,
FDUMBEGIN DS 0D
*
FDUMPHDRINFO DS 0F
FDUMPENTS DS F NUMBER OF ENTRIES
FDUMPID DC C'FDUM' EYE CATCHER
FDUMPHRES1 DS CL8 SPACE RESERVED FOR EXPANSION
*
FDUM#LENH EQU *-FDUMBEGIN
*
FDUMPDATA DSECT ,
DS 0F ONE SET FOR EACH AREA TO DUMP
FDUMPSTOKEN DS CL8 STOKEN FOR DUMP
FDUMPRES1 DS CL8 RESERVED
FDUMPSTART DS F FIRST BYTE TO DUMP
FDUMPEND DS F LAST BYTE TO DUMP
*
FDUM#LENENT EQU *-FDUMPDATA
*
* To access the FDUM header (dumpptr must be a copy of pfsi_dumpptr):
* L RegOne,dumpptr RegOne->pfsi_dumpents from BPXYPFSI
* USING FDUM,RegOne Addressability to FDUM
*
* To access the first FDUMPDATA:
* LR RegTwo,RegOne RegTwo->FDUM
* LA RegTwo,FDUM#LENH(RegTwo) RegTwo->FDUMPDATA
* USING FDUMPDATA,RegTwo Addressability to FDUMPDATA fields
*
* To access the next FDUMPDATA:
* LA RegTwo,FDUM#LENENT(RegTwo) RegTwo-> next FDUMPDATA
*
** BPXYFDUM End