When you run the program shown in Figure 5, a formatted dump is produced as shown in Figure 6.
TestDump: proc options(main);
declare
Sysin input file,
Sysprint stream print file;
open file(Sysprint);
open file(Sysin);
put skip list('AbCdEfGhIjKlMnOpQrStUvWxYz');
call IssueDump;
IssueDump: proc;
call plidump( ' ', 'Testing PLIDUMP');
end IssueDump;
end TestDump;The call to PLIDUMP in the IssueDump procedure does not specify any PLIDUMP options (they appear as the first of the two character strings), so the defaults are used. Also note that the PL/I default files SYSIN and SYSPRINT have been explicitly opened so that the formatted dump displays the contents of their portions of the I/O buffer.
1 * * * PLIDUMP * * * Date = 910623 Time = 142249090 Page 0001 2 User identifier: Testing PLIDUMP 3 * * * Calling trace * * * IBM0092I The PL/I PLIDUMP Service was called with Traceback (T) option At offset +00000024 in procedure with entry ISSUEDUMP From offset +0000010B in procedure with entry TESTDUMP * * * End of calling trace * * * * * * File Information * * * Attributes of file SYSIN 4 STREAM INPUT EXTERNAL 5 ENVIRONMENT( CONSECUTIVE RECSIZE(80) LINESIZE(0) ) 6 I/O Built-in functions: COUNT(0) ENDFILE(0) 7 I/O Buffer: 000D9008 00000000 00000000 00000000 00000000 '................' 000D9018 00000000 00000000 00000000 00000000 '................' 000D9028 00000000 00000000 00000000 00000000 '................' 000D9038 00000000 00000000 00000000 00000000 '................' 000D9048 00000000 00000000 00000000 00000000 '................' 000D9058 0000 '..' Attributes of file SYSPRINT STREAM OUTPUT PRINT EXTERNAL ENVIRONMENT( CONSECUTIVE RECSIZE(124) LINESIZE(120) PAGESIZE(60) ) I/O Built-in functions: PAGENO(1) COUNT(1) LINENO(1) 8 I/O Buffer: 000D8008 20416243 64456647 68496A4B 6C4D6E4F ' AbCdEfGhIjKlMnO' 000D8018 70517253 74557657 78597A20 0D0A0000 'pQrStUvWxYz ....' 000D8028 00000000 00000000 00000000 00000000 '................' 000D8038 00000000 00000000 00000000 00000000 '................' 000D8048 00000000 00000000 00000000 00000000 '................' 000D8058 00000000 00000000 00000000 00000000 '................' 000D8068 00000000 00000000 00000000 00000000 '................' 000D8078 00000000 00000000 00000000 '............' * * * End of File Information * * * * * * End of Dump * * * * * *
The trace information is provided by default as the T option and can be suppressed by specifying the NT option for PLIDUMP.