00001 ***** 08/24/98 00002 * DTSIL022 00003 * DTSIL022 FIELD ASSIGNMENT NUMBER FROM SCREEN LV003 00004 * EDIT/FORMAT MODULE LINKAGE. DTSIL022 00005 * DTSIL022 00006 ***** DTSIL022 00007 SKIP1 DTSIL022 00008 10 L022-RESULT-IND PIC X(01). DTSIL022 00009 88 L022-NO-ENTRY VALUE '0'. DTSIL022 00010 88 L022-VALID VALUE '1'. DTSIL022 00011 88 L022-NOT-VALID VALUE '2'. DTSIL022 00012 SKIP1 DTSIL022 00013 10 L022-S-ASSIGN-NO-AREA. DTSIL022 00014 15 L022-S-ASSIGN-YR-AREA. DTSIL022 00015 20 L022-S-ASSIGN-YR-L PIC S9(04) COMP. DTSIL022 00016 20 L022-S-ASSIGN-YR-A PIC X(01). DTSIL022 00017 20 L022-S-ASSIGN-YR PIC X(02). DTSIL022 00018 15 L022-S-ASSIGN-SEQ-AREA. DTSIL022 00019 20 L022-S-ASSIGN-SEQ-L PIC S9(04) COMP. DTSIL022 00020 20 L022-S-ASSIGN-SEQ-A PIC X(01). DTSIL022 00021 20 L022-S-ASSIGN-SEQ PIC X(05). DTSIL022 00022 SKIP1 DTSIL022 00023 10 L022-ASSIGN-NO PIC S9(09) COMP-3. DTSIL022 00024 SKIP1 DTSIL022 00025 10 FILLER PIC X(11). DTSIL022