LEGAL DISCLAIMERAny product or service mentioned in this document does not constitute any kind of recommendation or endorsement by the author. Should you decide to make use of any such product or service mentioned in this document you do so at your own risk. All trademarks mentioned in this document are property of their respective owners. |
HEX VIRT | HEX DATA |
---|---|
BROWSE SYS1.LINKLIB(IEFBR14) Command ===> ...Ú.... 1F0F0000 BF7E0000 |
BROWSE SYS1.LINKLIB(IEFBR14) Command ===> ...Ú.... 1BFF07FE00000000 |
SYS1.LINKLIB(IEFBR14) ------------------- COMMAND ===> 1 5 10 15 20 /\------/\--------/\--------/\--------/\-- 1BFF07FE00000000 |
//IDCAMS EXEC PGM=IDCAMS //DD1 DD DISP=SHR,DSN=SYS1.LINKLIB(IEFBR14) //SYSPRINT DD SYSOUT=* //SYSIN DD * PRINT INFILE(DD1) /* RECORD SEQUENCE NUMBER - 7 000000 1BFF07FE 00000000 *........ * |
//DUMPIT EXEC PGM=FILEAID //SYSPRINT DD SYSOUT=* //SYSLIST DD SYSOUT=* //SYSTOTAL DD SYSOUT=* //DD01 DD DISP=SHR,DSN=SYS1.LINKLIB(IEFBR14) //SYSIN DD * $$DD01 DUMP /* BLOCK 7 DATA 8 CHAR 0354-12-005 DATA 8 ZONE 1F0F0000 NUMR BF7E0000 1...5... |
//STEP EXEC PGM=AMASPZAP //SYSPRINT DD SYSOUT=* //SYSLIB DD DISP=SHR,DSN=SYS1.LINKLIB //SYSIN DD * DUMPT IEFBR14 IEFBR14 **CCHHR- 0162000C06 RECORD LENGTH- 000008 000000 1BFF 07FE 0000 0000 SR BCR |
CRASH_AND_BURN DS 0H ABEND 666,DUMP,REASON=1 |
77 COMP-CODE PIC S9999 COMP. . . . MOVE uuuu TO COMP-CODE. CALL "ILBOABN0" USING COMP-CODE. |
* ABEND-HANDLING * MODULE TO BE ABENDED WITH 01 CEE3ABD PIC X(8) VALUE 'CEE3ABD'. * ABEND WITH USER-CODE 16 01 ABEND-CODE PIC S9(8) USAGE IS BINARY VALUE 16. * CLOSE FILES AND CREATE A CEEDUMP: VALUE 1, ELSE ZERO 01 CLEAN-UP PIC S9(8) USAGE IS BINARY VALUE 1. . . . CALL CEE3ABD USING ABEND-CODE, CLEAN-UP |
LA R2,DATA Beginning of Area LA R3,DATAE Get to the end OPEN (SNAPDCB,(OUTPUT)) Open SNAP DCB SNAP DCB=SNAPDCB, SNAP the storage @ STORAGE=((2),(3)) CLOSE SNAPDCB Close the SNAP DCB . . . DATA DC C'Here''s some data to snap...' DATAE EQU *-1 SNAPDCB DCB DDNAME=SNAPDD,DSORG=PS,LRECL=125,BLKSIZE=1632, @ RECFM=VBA,MACRF=(W) JOB IBMUSERT STEP DUMPIT TIME 202845 DATE 99126 CPUID = D81234569021 PAGE 00000001 PSW AT ENTRY TO SNAP 078D1000 00006F6E ILC 02 INTC 0033 -STORAGE 00006F80 C8859985 7DA240A2 96948540 8481A381 40A39640 * Here's some data to * 00006FA0 A2958197 4B4B4B00 *snap.... * |
Dump of: Segment flags=11100000 - length: 98 +offset 0 1 2 3 4 5 6 7 8 9 a b c d e f +000000 62E0C9D5 D4D9F0F1 00420001 00015010 *Â\INMR01.â....&.* +000010 11000100 07D5D6C4 C5D5C1D4 10120001 *.....NODENAM....* +000020 0007C9C2 D4E4E2C5 D9100100 010007C9 *..IBMUSER......I* +000030 C2D4D4C1 C9D31002 00010007 C9C2D4E4 *BMMAIL......IBMU* +000040 E2C5D910 24000100 0EF1F9F9 F7F0F6F2 *SER.„....1997062* +000050 F1F1F1F4 F9F0F010 2F000100 01011026 *1114900.........* +000060 0000 *.. *