Procedure Modules › Creating a Vertical Hexadecimal Dump (CULLUS29) › Helpful Hints

Helpful Hints

• The receiving field for the dump is a 528-byte subscripted work field. Although each type 5 line requires 132 characters, only 100 bytes of the dump prints.
• Reset the status flag (ARG4) to 'F' to reinvoke CULLUS29 after a previous dump in the same CA Culprit program has been completed.
• Always test the value of the status flag (ARG4) when control returns from CULLUS29 to the CA Culprit code.

Example

This example uses CULLUS29 to create a dump of the first 50 bytes of a record.

The following code:

• Defines IN-FLD as the input field where the dump will start
• Defines work fields to receive:
  • The length of the input record to be dumped
  • The status code for the dump
  • The formatted dump lines
• Calls CULLUS29 from type 7 logic
• Tests the value of FLAG to determine if the dump is completed
• Repeats processing until CULLUS29 sets the value of FLAG to 'E', which indicates that the dump is completed

   INPUT 200 F 200
   REC IN-FLD 1 200
   130 FLAG      ' '
   130 LENGTH   50
   130 OUTO.528 ' ' 
   133 CULLUS29
   135100010 OUTO.1   SZ=132
   13520001  OUTO.133 SZ=132
   13530001  OUTO.265 SZ=132
   13540001  OUTO.397 SZ=132
   137600 MOVE 'F' TO FLAG
   137620 CALL  US29 (IN-FLD LENGTH OUTO.1 FLAG)
   137    IF FLAG NE ' '         DROP
   137    RELS (1 2 3 4)
   137625 B 620
  

REPORT NO. 13                      CULLUS29             mm/dd/yy PAGE  1
               CHAR   047ITERRY     JANENS E       SESE-SEKO           E
               ZONE   FFFCECDDE44444DCDCDE4C4444444ECEC6ECDD44444444444C
               NUMR   04793599800000115552050000000252502526000000000005
                     01...5...10....5...20....5...30....5...40....5...50