*COMDECK  HITWORK 
00001  01  HIT-ARG-LIST.                                                04/29/78
00002      03  HIT-SW                  PICTURE X.                       HITWORK 
00003      03  HIT-NAME                PICTURE X(32).                      LV001
00004      03  HIT-ENTRY-TYPE          PICTURE XX.                      HITWORK 
00005      03  HIT-RETURN-CODE         PICTURE X.                       HITWORK 
       01  OVFLOW-HIT-KEY  PICTURE 999. 
00006  01  HIT-OVFLOW-RECORD.                                              CL**2
00008      03  OVFLOW-HIT-ENTRIES.                                         CL**2
00009          05  OVFLOW-HIT OCCURS 86 TIMES.                             CL**2
00010              07  OVFLOW-HIT-ENTRY-ID      PICTURE 99.                CL**2
00011              07  OVFLOW-HIT-ENTRY-NAME  PICTURE X(32).               CL**2
00012              07  OVFLOW-HIT-ENTRY-TIMES PICTURE 999 .              HITWORK
00013      03  FILLER       PICTURE X(24).                                 CL**2
00014  01  HIT-SUBSCRIPTS.                                                 CL**2
           03  HIT-SUB                PICTURE 9(4) COMP-1.
           03  DSUB1                  PICTURE 9(4) COMP-1.
           03  DSUB2                  PICTURE 9(4) COMP-1.
           03  DSUB3                  PICTURE 9(4) COMP-1.
00019      03  SCAN-HIT-COUNT PICTURE 99999.                               CL**2
