How to Use CULLUS29

Procedure Modules › Creating a Vertical Hexadecimal Dump (CULLUS29) › How to Use CULLUS29

How to Use CULLUS29

To invoke CULLUS29:

First—Define the input or work field that holds the data to be dumped.

Second—Define a subscripted work field of 528 bytes as the receiving field for the data to be dumped.

Third—Divide the subscripted work field into 4 elements of 132 bytes to represent the printed lines of the dump.

Fourth—Define a 1-byte alphanumeric work field to hold the status flag for the dump.

Fifth—Issue a CALL to CULLUS29 in type 7 logic:

Col
2
▼
RPT-nn7sss CALL US29 (dump-field-name length-vn result-v status-v)

Rpt-nn, coded in columns 2 and 3, specifies a 2-digit number in the range 00 through 99 that identifies the CA Culprit report.
Sss, coded in columns 5 through 7, specifies a 3-digit number indicating the sequence number of the type 7 parameter.
Dump-field-name (ARG1) requires the name of the dumped input or work field. The field can be in any format.
Length-vn (ARG2) requires a numeric literal or an 8-byte packed decimal field to specify the length of the dumped record or field.
Result-v (ARG3) requires the name of the subscripted work field receiving the dumped field.
Status-v (ARG4) requires the name of a 1-byte alphanumeric work field that holds a status code for the dump:

Code...	Means...
'F'	Initializes the field.
' '	The routine has not finished dumping the requested area.
'E'	The routine has completed generating the dump. No further lines should be released.

Sixth—Test the value of the status flag work field immediately after the CALL to CULLUS29. If the status equals ' ', release the print lines and branch back to the CALL statement. Continue branching back until the value of the status flag equals 'E'.