*COMDECK PNCHCOM
       01  PUNCH-CARD                      PICTURE X(72). 
       01  UPD-TRANS REDEFINES PUNCH-CARD.
           03  UPD-LINE-NO                 PICTURE 9(4).
           03  FILLER                      PICTURE X. 
           03  UPD-BODY                    PICTURE X(67). 
       01  UPD-COMMENT-REC REDEFINES PUNCH-CARD.
           03  FILLER                      PICTURE X(5).
           03  UPD-AST                     PICTURE X. 
           03  UPD-COMMENT                 PICTURE X(66). 
       01  UPD-FIELD-REC REDEFINES PUNCH-CARD.
           03  FILLER                      PICTURE X(5).
           03  UPD-FIELD-NAME              PICTURE X(4).
           03  UPD-FIELD-VALUE             PICTURE X(63). 
