Procedure Modules › Moving Fields to an Input Buffer Area (CULLUS43) › Helpful Hint

Helpful Hint

To avoid overwriting input data when moving fields to the input buffer, the receiving field should be a dummy area whenever possible.

Example

This example shows the CA Culprit parameters required to move data from a work field to a table in the dummy input buffer.

The following code:

• Defines the field to be moved (NAME) as an input field on a REC parameter
• Defines a dummy input buffer area to receive the data
• Defines a repeating group (TABLE) and the element (CHAR) as the receiving field in the dummy input buffer area
• Issues a CALL to CULLUS43, which uses a numeric literal (25) to specify the length of the data to move
• Prints the first and eleventh characters of the name

   INPUT 200 F 200
   REC NAME          5  25
   INPUT 25 F 25 MB=D
   REC TABLE 1      GROUP DD 1.25
   REC CHAR  1   1  ELMNT DD 
   093CULLUS43
   0951*005 NAME
   0951*010 CHAR.1
   0951*020 CHAR.11
   097025 CALL US43 (NAME CHAR.1 25)
  

REPORT NO. 09             CULLUS43      mm/dd/yy PAGE     1
       TERRY     JANENS                 T        J
       JOE       NGUYA                  J        N
       MARK      TIME                   M        T
       ROGER     WILCO                  R        W
       ALBERT    BREEZE                 A        B
       CAROLYN   CROW                   C        C
       BURT      LANCHESTER             B        L
       RENE      MAKER                  R        M