*COMDECK  GEN20BAL
00001  01  GEN32-ARG-LIST.                                              07/13/78
00002      03  GEN32-SAVE-SEARCH.                                       GEN20BAL
00003          05  SAVE32-DATA-ENTRY-TYPE     PICTURE XX.                  LV002
00004          05  SAVE32-DATA-ENTRY-CATEGORY PICTURE XXX.                 CL**2
00005          05  SAVE32-DATA-ENTRY-LINE     PICTURE XXXX.                CL**2
00006          05  SAVE32-DATA-ENTRY-NAME     PICTURE X(32).               CL**2
00007          05  SAVE32-DATA-ENTRY-FUNCTION PICTURE X.                   CL**2
00008  01  GEN20-ARG-LIST.                                                 CL**2
00009     03  GEN20-ALIAS-FILE        PICTURE X(32).                    GEN20BAL
00010      03  GEN20-SAVE-SEARCH.                                          CL**2
00011          05  SAVE-DATA-ENTRY-TYPE          PICTURE XX.            GEN20BAL
00012          05  SAVE-DATA-ENTRY-CATEGORY      PICTURE XXX.           GEN20BAL
00013          05 SAVE-DATA-ENTRY-LINE PICTURE XXXX.                       CL**2
00014          05  SAVE-DATA-ENTRY-NAME          PICTURE X(32).         GEN20BAL
00015          05  SAVE-DATA-ENTRY-FUNCTION      PICTURE X.             GEN20BAL
00016      03  SAVE-CAT-WORK-AREAS.                                        CL**2
00017          10  SAVE-ATTR-FILE-RECSIZE    PICTURE X(5).                 CL**2
00018          10  SAVE-ATTR-FILE-BLKSIZE    PICTURE X(5).                 CL**2
00019          10  SAVE-ATTR-FILE-RECFM PICTURE X(4).                      CL**2
00020          10  SAVE-ATTR-FILE-DSORG PICTURE XXX.                       CL**2
00021          10  SAVE-ATTR-FILE-LABEL PICTURE XXX.                       CL**2
00022  01  SET-SAVE-ENVIRONMENT.                                           CL**2
00023      03  SET-DEVICE              PICTURE X(7).                       CL**2
00024      03  SET-TRECS               PICTURE X(7).                       CL**2
00025      03  SET-TRACK               PICTURE X(5).                       CL**2
00026      03  SET-LENGTH              PICTURE X(5).                       CL**2
00027      03  SET-BLOCK               PICTURE X(5).                       CL**2
00028      03  SET-DISK                PICTURE XX.                         CL**2
00029      03  SET-LOAD                PICTURE XX.                         CL**2
00030      03  SET-FILE                PICTURE X.                          CL**2
00031      03  SET-START               PICTURE X(5).                       CL**2
00032      03  SET-VTOC                PICTURE X(5).                       CL**2
00033 *                                                                    CL**2
00034 *    HOLD AREA FOR COBOL CARD IMAGES                                 CL**2
00035 *                                                                    CL**2
00036  01  HOLD-CARD-IMAGE.                                                CL**2
00037      03  CBL-SEQNO               PICTURE 9(6).                       CL**2
00038      03  COMMENT-AREA            PICTURE X(66).                      CL**2
00039      03  CBL-IDEN                PICTURE X(8).                       CL**2
00040 *                                                                    CL**2
00041 *    HOLD AREA FOR BAL CARD IMAGES                                   CL**2
00042 *                                                                    CL**2
00043  01  HOLD-COMMENT-IMAGE  REDEFINES  HOLD-CARD-IMAGE.                 CL**2
00044      03  ASTERISK-SAVE           PICTURE X.                          CL**2
00045      03 COMMENT-SAVE             PICTURE X(71).                      CL**2
00046      03  FILLER                  PICTURE X(8).                       CL**2
00047  01  HOLD-BAL-IMAGE  REDEFINES  HOLD-CARD-IMAGE.                     CL**2
00048      03  SYMBOL-NAME             PICTURE X(8).                       CL**2
00049      03  FILLER                  PICTURE X.                          CL**2
00050      03  OPERATION-CODE          PICTURE X(5).                       CL**2
00051      03  FILLER                  PICTURE X.                          CL**2
00052      03  OPERAND-COMMENT         PICTURE X(56).                      CL**2
00053      03  SINGLE-OPERAND REDEFINES OPERAND-COMMENT                    CL**2
00054                                      PICTURE X OCCURS 56 TIMES.      CL**2
00055      03  CONTINUE-SYMBOL         PICTURE X.                          CL**2
00056      03  BAL-IDEN                PICTURE X(8).                       CL**2
