35 lines
2.7 KiB
COBOL
35 lines
2.7 KiB
COBOL
00001 01 OJRWE611-DATA-AREA. 08/02/02
|
|
00002 OJRWE611
|
|
00003 05 OJR-PARM-STATE-CODE PIC X(02). LV001
|
|
00004 OJRWE611
|
|
00005 05 OJR-PARM-START-ZIP-CODE PIC X(05). OJRWE611
|
|
00006 OJRWE611
|
|
00007 05 OJR-PARM-END-ZIP-CODE PIC X(05). OJRWE611
|
|
00008 OJRWE611
|
|
00009 05 OJR-PARM-SELECTION-IND PIC X(01) VALUE SPACES. OJRWE611
|
|
00010 88 OJR-PARM-ST-IND-88 VALUE '1'. OJRWE611
|
|
00011 88 OJR-PARM-ZIP-IND-88 VALUE '2'. OJRWE611
|
|
00012 OJRWE611
|
|
00013 05 OJR-EDIT-STATUS-IND PIC X(01). OJRWE611
|
|
00014 88 OJR-EDIT-PASSED-88 VALUE 'Y'. OJRWE611
|
|
00015 88 OJR-EDIT-FAILED-88 VALUE 'N'. OJRWE611
|
|
00016 OJRWE611
|
|
00017 OJRWE611
|
|
00018 05 ABEND-MSG PIC X(60). OJRWE611
|
|
00019 OJRWE611
|
|
00020 05 WRK-PARM-STATE-CODE PIC X(02). OJRWE611
|
|
00021 OJRWE611
|
|
00022 OJRWE611
|
|
00023 05 WRK-PARM-START-ZIP-CODE PIC X(05). OJRWE611
|
|
00024 OJRWE611
|
|
00025 05 WRK-PARM-END-ZIP-CODE PIC X(05). OJRWE611
|
|
00026 OJRWE611
|
|
00027 05 WRK-PARM-SELECTION-IND PIC X(01) VALUE SPACES. OJRWE611
|
|
00028 88 WRK-PARM-ST-IND-88 VALUE '1'. OJRWE611
|
|
00029 88 WRK-PARM-ZIP-IND-88 VALUE '2'. OJRWE611
|
|
00030 OJRWE611
|
|
00031 05 WRK-EDIT-STATUS-IND PIC X(01). OJRWE611
|
|
00032 88 WRK-EDIT-PASSED-88 VALUE 'Y'. OJRWE611
|
|
00033 88 WRK-EDIT-FAILED-88 VALUE 'N'. OJRWE611
|
|
00034 OJRWE611
|