# Appendix C: Skeleton Code Listing for Initial Load

000100 IDENTIFICATION DIVISION. 00000100

000200 PROGRAM-ID. INITLOAD. 00000200

000300 AUTHOR. KEN NESBIT - BDM. 00000300

000400 DATE-WRITTEN. MAY 12, 1998. 00000400

000500 DATE-COMPILED. 00000500

000600\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*00000600

000700\*\*\*\*\* SKELETON PROGRAM TO DOWNLOAD STATE CASE REGISTRY.
00000700

000800\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*00000800

000900\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*00000900

001000\* THE PURPOSE OF THIS PROGRAM IS FOR THE INITIAL DOWNLOAD OF SCR
\*00001000

001100\* AND FORMAT THE DATA FOR INPUT TO THE FEDERAL CASE REGISTRY.
\*00001100

001200\* THIS SKELETON PROGRAM IS SET UP TO DO THE REQUIRED EDITS TO
\*00001200

001300\* ENSURE THE DATA PASSES THE GENERAL EDITS SET UP ON THE FEDERAL
\*00001300

001400\* APPLICATION. \*00001400

001500\* \*00001500

001600\* THE GENERAL APPROACH TO THIS PROGRAM IS TO READ THROUGH THE
\*00001600

001700\* CHILD SUPPORT SYSTEM AND EXTRACT THE REQUIRED ELEMENTS FOR
\*00001700

001800\* THE CASE AND THE PARTICIPANTS ON THE CASE. THIS PROGRAM WILL
\*00001800

001900\* FORMAT THE DATA AND ENSURE THAT THE CRITICAL ELEMENTS FOR THE
\*00001900

002000\* LOAD TO THE FCR ARE PRESENT AND FORMAT THE HEADER AND TRAILER
\*00002000

002100\* RECORDS. \*00002100

002200\* \*00002200

002300\* THERE ARE SEVERAL PLACES IN THIS PROGRAM WHERE CODE WILL NEED
\*00002300

002400\* TO BE CHANGED OR INSERTED FOR YOUR PARTICULAR APPLICATION.
\*00002400

002500\* THESE AREAS THAT NEED ATTENTION WILL BE MARKED WITH COMMENTS
\*00002500

002600\* ABOUT WHAT CHANGES/ADDITIONS NEED TO BE MADE. FOR THE
PURPOSES\*00002600

002700\* OF THIS SKELETON PROGRAM, THE INPUT FILE IS JUST A PLACE
HOLDER\*00002700

002800\* INSTEAD OF A DATABASE. YOUR DATABASE NAVIGATION LOGIC NEEDS
TO\*00002800

002900\* BE INSERTED AND THE DATA MAPPED TO THE WORKING STORAGE
ELEMENTS\*00002900

003000\* IN PARAGRAPH 1100-MAP-DATA-TO-INPUT-REC. \*00003000

003100\* \*00003100

003200\* FILES: - SCR-INPUT-FILE - THIS IS YOUR STATE CASE REGISTRY.
\*00003200

003300\* \*00003300

003400\* - FCR-OUTPUT-FILE - THIS IS THE OUTPUT FROM THIS \*00003400

003500\* PROGRAM AND IS THE FILE WHICH WILL \*00003500

003600\* BE PICKED UP BY CONNECT:DIRECT TO \*00003600

003700\* BE TRANSMITTED TO THE FEDERAL CASE \*00003700

003800\* REGISTRY AT SSA. \*00003800

003900\* \*00003900

004000\* - FCR-BATCHNUM-FILE- THIS IS THE BATCH CONTROL NUMBER
\*00004000

004100\* FILE. THE PURPOSE OF THE BATCH \*00004100

004200\* CONTROL NUMBER IS SO YOU HAVE AN \*00004200

004300\* IDENTIFIER IN THE EVENT YOU NEED TO\*00004300

004400\* CORRESPOND WITH THE RECEIVING PARTY\*00004400

004500\* ABOUT THE TRANSMISSION. THE \*00004500

004600\* STARTING POINT OF THIS BATCH NUMBER\*00004600

004700\* IS UP TO THE USER TO DECIDE. THIS \*00004700

004800\* PROGRAM WILL READ THE BATCH NUMBER,\*00004800

004900\* INCREMENT IT BY 1, THEN REWRITE THE\*00004900

005000\* RECORD BACK TO THE FILE. \*00005000

005100\* \*00005100

005200\* - FCR-AUDIT-FILE - THIS IS THE AUDIT FILE. IT'S PUR- \*00005200

005300\* POSE IS TO KEEP TRACK OF WHAT HAS \*00005300

005400\* BEEN SENT TO THE FEDERAL CASE \*00005400

005500\* REGISTRY. THIS PROGRAM WILL WRITE \*00005500

005600\* THE RECORD OUT WITH THE DATE IT WAS\*00005600

005700\* EXTRACTED. WHEN THE RESPONSE FILE \*00005700

005800\* IS RETURNED FROM THE FCR, THIS FILE\*00005800

005900\* SHOULD BE OPENED INPUT/OUTPUT AND \*00005900

006000\* THE KEY SHOULD BE BUILT TO UPDATE \*00006000

006100\* EACH RECORD TO INDICATE IF IT WAS \*00006100

006200\* SUCCESSFULLY LOADED TO THE FCR. \*00006200

006300\* \*00006300

006400\* \*00006400

006410\* \*00006410

006420\* EDITS \*00006420

006430\* \-\-\-\-- \*00006430

006440\* CASE RECORDS: \*00006440

006450\* - CASE ID - REQUIRED FIELD MUST BE PRESENT \*00006450

006460\* - CASE TYPE - REQUIRED FIELD MUST BE PRESENT \*00006460

006470\* VALID VALUES ARE: \*00006470

006480\* F - IV-D \*00006480

006490\* N - NON IV-D \*00006490

006491\* - ORDER \*00006491

006492\* INDICATOR REQUIRED FIELD MUST BE PRESENT \*00006492

006493\* VALID VALUES: \*00006493

006494\* Y - THERE IS AN ORDER \*00006494

006496\* N - THERE IS NOT AN ORDER \*00006496

006498\* \*00006498

006499\* PARTICIPANT RECORDS: \*00006499

006500\* \*00006500

006501\* - CASE ID - REQUIRED FIELD MUST BE PRESENT \*00006501

006503\* \*00006503

006504\* - LOCATE REQUEST TYPE - OPTIONAL FIELD TO INITIATE A LOCATE
\*00006504

006505\* REQUEST WITH THE SUBMISSION. IF \*00006505

006506\* PRESENT MUST BE \"CS\" REQUEST FOR IV-D\*00006506

006507\* PURPOSES. \*00006507

006508\* \*00006508

006509\* - BUNDLE FPLS LOCATE \*00006509

006510\* RESULTS - OPTIONAL FIELD TO BE USED IN \*00006510

006511\* CONJUNCTION WITH LOCATE REQUEST. \*00006511

006512\* VALID VALUES: \*00006512

006513\* N - NO DO NOT HOLD RESULTS FOR RETURN\*00006513

006514\* AT ONE TIME (DEFAULT) \*00006514

006515\* Y - YES HOLD ALL RESULTS AND SEND \*00006515

006516\* ALL RESULTS AT ONE TIME \*00006516

006517\* \*00006517

006518\* - PARTICIPANT TYPE - REQUIRED FIELD MUST BE PRESENT \*00006518

006519\* VALID VALUES: \*00006519

006520\* CH - CHILD \*00006520

006521\* CP - CUSTODIAL PARTY \*00006521

006522\* NP - NON-CUSTODIAL PARENT \*00006522

006523\* PF - PUTATIVE FATHER (IV-D ONLY) \*00006523

006524\* \*00006524

006525\* - FAMILY VIOLENCE - OPTIONAL FIELD IF PRESENT MUST BE:
\*00006525

006526\* FV - FAMILY VIOLENCE SUSPECTED \*00006526

006527\* \*00006527

006528\* - MEMBER ID - REQUIRED FIELD MUST BE PRESENT \*00006528

006529\* \*00006529

006530\* - SEX CODE - OPTIONAL FIELD IF PRESENT MUST BE: \*00006530

006531\* M - MALE \*00006531

006532\* F - FEMALE \*00006532

006533\* \*00006533

006534\* - DATE OF BIRTH - CONDITIONALLY REQUIRED \*00006534

006535\* FORMAT: CCYYMMDD \*00006535

006536\* MUST BE PRESENT IF SSN AND IRS-U-SSN \*00006536

006537\* ARE NOT. \*00006537

006538\* \*00006538

006539\* - SSN - CONDITIONALLY REQUIRED \*00006539

006540\* MUST BE NUMERIC AND GREATER THAN ZERO\*00006540

006541\* MUST BE PRESENT IF DATE OF BIRTH AND \*00006541

006542\* IRS-U-SSN ARE NOT. \*00006542

006543\* \*00006543

006544\* - FIRST NAME - REQUIRED FIELD MUST BE PRESENT \*00006544

006545\* \*00006545

006546\* - LAST NAME - REQUIRED FIELD MUST BE PRESENT \*00006546

006547\* \*00006547

006548\* - IRS-U-SSN - CONDITIONALLY REQUIRED \*00006548

006549\* MUST BE NUMERIC AND GREATER THAN ZERO\*00006549

006550\* MUST BE PRESENT IF DATE OF BIRTH AND \*00006550

006551\* SSN ARE NOT. \*00006551

006552\* \*00006552

006553\* - LOCATE SOURCE 1 THRU \*00006553

006554\* LOCATE SOURCE 8 - OPTIONAL FIELD, IF PRESENT MUST
HAVE\*00006554

006555\* ONE OF FOLLOWING VALUES: \*00006555

006556\* ALL - SEARCH ALL AVAILABLE LOCATE \*00006556

006557\* SOURCES EXCEPT 1099. \*00006557

006558\* A01 - DEPARTMENT OF DEFENSE AND \*00006558

006559\* OFFICE OF PERSONNEL MANAGEMENT\*00006559

006560\* A02 - FBI - FOR THEIR EMPLOYEES \*00006560

006561\* C01 - IRS - NON 1099 \*00006561

006562\* E01 - SOCIAL SECURITY ADMINISTRATION\*00006562

006563\* F01 - DEPARTMENT OF VETERANS AFFAIRS\*00006563

006564\* \*00006564

006565\* - GENERAL - ALL ALPHA & ALPHA/NUMERIC FIELDS \*00006565

006566\* SHOULD BE LEFT JUSTIFIED WITH NO \*00006566

006567\* LEADING SPACES. \*00006567

006568\* \*00006568

006582\* \*00006582

006590\* IF YOU HAVE ANY PROBLEMS OR QUESTIONS ABOUT MODIFYING THIS
CODE\*00006590

006600\* YOU CAN CONTACT KEN NESBIT AT (703) 352-3855 OR E-MAIL TO
\*00006600

006700\* KNESBIT@BDM.COM \*00006700

006800\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*00006800

006900 ENVIRONMENT DIVISION. 00006900

007000 CONFIGURATION SECTION. 00007000

007100 SOURCE-COMPUTER. IBM. 00007100

007200 OBJECT-COMPUTER. IBM. 00007200

007300 SPECIAL-NAMES. 00007300

007400 C01 IS TOP-OF-PAGE. 00007400

007500 00007500

007600 INPUT-OUTPUT SECTION. 00007600

007700 FILE-CONTROL. 00007700

007800 SELECT SCR-INPUT-FILE ASSIGN TO UT-S-FCRINPUT. 00007800

007900 SELECT FCR-OUTPUT-FILE ASSIGN TO UT-S-FCROUT. 00007900

008000 SELECT FCR-BATCHNUM-FILE ASSIGN TO UT-S-FCRBATCH. 00008000

008100 SELECT FCR-AUDIT-FILE ASSIGN TO DA-I-FCRAUDIT 00008100

008110 ORGANIZATION IS INDEXED 00008110

008120 RECORD KEY IS AUDIT-KEY 00008120

008130 ACCESS IS SEQUENTIAL 00008130

008140 FILE STATUS IS AUDIT-FILE-STATUS. 00008140

008200 SELECT PRINTER ASSIGN TO UT-S-PRINTER. 00008200

008300 00008300

008400 DATA DIVISION. 00008400

008500 FILE SECTION. 00008500

008600 00008600

008700\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00008700

008800\* THE SCR-INPUT-FILE IS YOUR STATE CASE REGISTRY. THIS FILE \*
00008800

008900\* FORMAT IS A DUPLICATE OF THE OUTPUT FILE AND IS IN THIS \*
00008900

009000\* PROGRAM PRIMARILY AS A PLACE HOLDER AND FOR TESTING. THIS \*
00009000

009100\* FILE SHOULD BE REPLACED WITH YOUR CSE SYSTEM OR YOUR STATE \*
00009100

009200\* CASE REGISTRY IF IT IS NOT THE SAME AS YOUR CSE. IT CAN ALSO\*
00009200

009300\* BE REPLACED WITH ANY OTHER FILE FORMAT THAT MAY BE REQUIRED \*
00009300

009400\* FROM A DIFFERENT EXTRACT TOOL. \* 00009400

009500\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00009500

009600 00009600

009700 FD SCR-INPUT-FILE 00009700

009800 RECORDING MODE IS F 00009800

009900 LABEL RECORDS ARE STANDARD 00009900

010000 BLOCK CONTAINS 0 RECORDS 00010000

010100 DATA RECORD IS SCR-INPUT-RECORD. 00010100

010200 01 SCR-INPUT-RECORD PIC X(640). 00010200

010300 00010300

010400 FD FCR-OUTPUT-FILE 00010400

010500 RECORDING MODE IS F 00010500

010600 LABEL RECORDS ARE STANDARD 00010600

010700 BLOCK CONTAINS 0 RECORDS 00010700

010800 DATA RECORD IS FCR-OUTPUT-RECORD. 00010800

010900 01 FCR-OUTPUT-RECORD PIC X(640). 00010900

011000 00011000

011100 FD FCR-BATCHNUM-FILE 00011100

011200 RECORDING MODE IS F 00011200

011300 LABEL RECORDS ARE STANDARD 00011300

011400 BLOCK CONTAINS 0 RECORDS 00011400

011500 DATA RECORD IS FCR-BATCHNUM-RECORD. 00011500

011600 01 FCR-BATCHNUM-RECORD PIC X(6). 00011600

011700 00011700

011800 FD FCR-AUDIT-FILE 00011800

012000 LABEL RECORDS ARE STANDARD. 00012000

012300 01 FCR-AUDIT-RECORD. 00012300

012310 03 AUDIT-KEY. 00012310

012320 05 AUDIT-TRANS-TYPE PIC X(2). 00012320

012330 05 AUDIT-ACTION-CODE PIC X(1). 00012330

012340 05 AUDIT-TRANS-KEY-1 PIC X(15). 00012340

012350 05 AUDIT-TRANS-KEY-2 PIC X(15). 00012350

012360 03 AUDIT-DATA PIC X(23). 00012360

012400 00012400

012500 FD PRINTER 00012500

012600 RECORDING MODE IS F 00012600

012700 LABEL RECORDS ARE OMITTED 00012700

012800 BLOCK CONTAINS 0 RECORDS 00012800

012900 DATA RECORD IS PRINT-REC. 00012900

013000 01 PRINT-REC PIC X(132). 00013000

013100 00013100

013200 00013200

013300 WORKING-STORAGE SECTION. 00013300

013400 00013400

013401 01 AUDIT-FILE-STATUS PIC X(2) VALUE SPACES. 00013401

013410 00013410

013500 01 WS-FCR-AUDIT-RECORD. 00013500

013600 03 FCR-AUDIT-TRANS-TYPE PIC X(2). 00013600

013610 03 FCR-AUDIT-TRANS-ACTION-CD PIC X(1). 00013610

013700 03 FCR-AUDIT-TRANS-KEY-1 PIC X(15). 00013700

013800 03 FCR-AUDIT-TRANS-KEY-2 PIC X(15). 00013800

013900 03 FCR-AUDIT-BATCH-NUMBER PIC X(6). 00013900

014000 03 FCR-AUDIT-DATE-TRANSMITTED. 00014000

014100 05 FCR-DATE-TRANS-CC PIC X(2). 00014100

014200 05 FCR-DATE-TRANS-YY PIC X(2). 00014200

014300 05 FCR-DATE-TRANS-MM PIC X(2). 00014300

014400 05 FCR-DATE-TRANS-DD PIC X(2). 00014400

014500 03 FCR-AUDIT-DATE-RESPONSE. 00014500

014600 05 FCR-DATE-RESP-CC PIC X(2). 00014600

014700 05 FCR-DATE-RESP-YY PIC X(2). 00014700

014800 05 FCR-DATE-RESP-MM PIC X(2). 00014800

014900 05 FCR-DATE-RESP-DD PIC X(2). 00014900

015000 03 FCR-AUDIT-RESPONSE-CODE PIC X. 00015000

015100 00015100

015200 01 WS-SCR-INPUT-CASE-RECORD. 00015200

015300 05 SCR-CASE-IN-RECORD-ID PIC X(2). 00015300

015400 05 SCR-CASE-IN-ACTION-TYPE-CODE PIC X. 00015400

015500 05 SCR-CASE-IN-CASE-ID PIC X(15). 00015500

015600 05 SCR-CASE-IN-CASE-TYPE PIC X. 00015600

015700 05 SCR-CASE-IN-ORDER-INDICATOR PIC X. 00015700

015800 05 SCR-CASE-IN-FIPS-COUNTY-CODE PIC X(3). 00015800

015900 05 FILLER PIC X(2). 00015900

016000 05 SCR-CASE-IN-USER-FIELD PIC X(15). 00016000

016100 05 SCR-CASE-IN-PREVIOUS-CASE-ID PIC X(15). 00016100

016200 05 FILLER PIC X(585). 00016200

016300 00016300

016400 01 WS-SCR-INPUT-PART-RECORD. 00016400

016500 05 SCR-IN-RECORD-ID PIC X(2). 00016500

016600 05 SCR-IN-ACTION-TYPE-CODE PIC X. 00016600

016700 05 SCR-IN-CASE-ID PIC X(15). 00016700

016800 05 RESERVED-FOR-FCR-PROCESSING PIC X(2). 00016800

016900 05 SCR-IN-USER-FIELD PIC X(15). 00016900

017000 05 SCR-IN-FIPS-COUNTY-CODE PIC X(3). 00017000

017100 05 FILLER PIC X(2). 00017100

017200 05 SCR-IN-LOCATE-REQ-TYPE PIC X(2). 00017200

017300 05 SCR-IN-BUNDLE-RESULTS PIC X(1). 00017300

017400 05 SCR-IN-PARTICIPANT-TYPE PIC X(2). 00017400

017500 05 SCR-IN-FAMILY-VIOLENCE PIC X(2). 00017500

017600 05 SCR-IN-MEMBER-ID PIC X(15). 00017600

017700 05 SCR-IN-SEX-CODE PIC X(1). 00017700

017800 05 SCR-IN-DATE-OF-BIRTH PIC X(8). 00017800

017900 05 SCR-IN-SSN PIC X(9). 00017900

018000 05 SCR-IN-PREVIOUS-SSN PIC X(9). 00018000

018100 05 SCR-IN-FIRST-NAME PIC X(16). 00018100

018200 05 SCR-IN-MIDDLE-NAME PIC X(16). 00018200

018300 05 SCR-IN-LAST-NAME PIC X(30). 00018300

018400 05 SCR-IN-CITY-OF-BIRTH PIC X(16). 00018400

018500 05 SCR-IN-STATE-CNTY-BIRTH PIC X(4). 00018500

018600 05 SCR-IN-FATHERS-FIRST-NAME PIC X(16). 00018600

018700 05 SCR-IN-FATHERS-MID-NAME PIC X(1). 00018700

018800 05 SCR-IN-FATHERS-LAST-NAME PIC X(16). 00018800

018900 05 SCR-IN-MOTHERS-FIRST-NAME PIC X(16). 00018900

019000 05 SCR-IN-MOTHERS-MID-NAME PIC X(1). 00019000

019100 05 SCR-IN-MOTHERS-LAST-NAME PIC X(16). 00019100

019200 05 SCR-IN-IRS-U-SSN PIC X(9). 00019200

019300 05 SCR-IN-ADDITIONAL-SSN1 PIC X(9). 00019300

019400 05 SCR-IN-ADDITIONAL-SSN2 PIC X(9). 00019400

019500 05 SCR-IN-ADDITIONAL-FNAM1 PIC X(16). 00019500

019600 05 SCR-IN-ADDITIONAL-MNAM1 PIC X(16). 00019600

019700 05 SCR-IN-ADDITIONAL-LNAM1 PIC X(30). 00019700

019800 05 SCR-IN-ADDITIONAL-FNAM2 PIC X(16). 00019800

019900 05 SCR-IN-ADDITIONAL-MNAM2 PIC X(16). 00019900

020000 05 SCR-IN-ADDITIONAL-LNAM2 PIC X(30). 00020000

020100 05 SCR-IN-ADDITIONAL-FNAM3 PIC X(16). 00020100

020200 05 SCR-IN-ADDITIONAL-MNAM3 PIC X(16). 00020200

020300 05 SCR-IN-ADDITIONAL-LNAM3 PIC X(30). 00020300

020400 05 SCR-IN-ADDITIONAL-FNAM4 PIC X(16). 00020400

020500 05 SCR-IN-ADDITIONAL-MNAM4 PIC X(16). 00020500

020600 05 SCR-IN-ADDITIONAL-LNAM4 PIC X(30). 00020600

020700 05 SCR-IN-NEW-MEMBER-ID PIC X(15). 00020700

020800 05 SCR-IN-IRS-1099 PIC X(1). 00020800

020900 05 SCR-IN-LOCATE-SOURCE1 PIC X(3). 00020900

021000 05 SCR-IN-LOCATE-SOURCE2 PIC X(3). 00021000

021100 05 SCR-IN-LOCATE-SOURCE3 PIC X(3). 00021100

021200 05 SCR-IN-LOCATE-SOURCE4 PIC X(3). 00021200

021300 05 SCR-IN-LOCATE-SOURCE5 PIC X(3). 00021300

021400 05 SCR-IN-LOCATE-SOURCE6 PIC X(3). 00021400

021500 05 SCR-IN-LOCATE-SOURCE7 PIC X(3). 00021500

021600 05 SCR-IN-LOCATE-SOURCE8 PIC X(3). 00021600

021700 05 FILLER PIC X(88). 00021700

021800 00021800

021900 00021900

022000 00022000

022100 01 WS-FCR-OUTPUT-CASE-RECORD. 00022100

022200 05 FCR-CASE-OUT-RECORD-ID PIC X(2). 00022200

022300 05 FCR-CASE-OUT-ACTION-TYPE-CODE PIC X. 00022300

022400 05 FCR-CASE-OUT-CASE-ID PIC X(15). 00022400

022500 05 FCR-CASE-OUT-CASE-TYPE PIC X. 00022500

022600 05 FCR-CASE-OUT-ORDER-INDICATOR PIC X. 00022600

022700 05 FCR-CASE-OUT-FIPS-COUNTY-CODE PIC X(3). 00022700

022800 05 FILLER PIC X(2). 00022800

022900 05 FCR-CASE-OUT-USER-FIELD PIC X(15). 00022900

023000 05 FCR-CASE-OUT-PREVIOUS-CASE-ID PIC X(15). 00023000

023100 05 FILLER PIC X(585). 00023100

023200 00023200

023300 01 WS-FCR-OUTPUT-PART-RECORD. 00023300

023400 05 FCR-OUT-RECORD-ID PIC X(2). 00023400

023500 05 FCR-OUT-ACTION-TYPE-CODE PIC X. 00023500

023600 05 FCR-OUT-CASE-ID PIC X(15). 00023600

023700 05 RESERVED-FOR-FCR-PROCESSING PIC X(2). 00023700

023800 05 FCR-OUT-USER-FIELD PIC X(15). 00023800

023900 05 FCR-OUT-FIPS-COUNTY-CODE PIC X(3). 00023900

024000 05 FILLER PIC X(2). 00024000

024100 05 FCR-OUT-LOCATE-REQ-TYPE PIC X(2). 00024100

024200 05 FCR-OUT-BUNDLE-RESULTS PIC X(1). 00024200

024300 05 FCR-OUT-PARTICIPANT-TYPE PIC X(2). 00024300

024400 05 FCR-OUT-FAMILY-VIOLENCE PIC X(2). 00024400

024500 05 FCR-OUT-MEMBER-ID PIC X(15). 00024500

024600 05 FCR-OUT-SEX-CODE PIC X(1). 00024600

024700 05 FCR-OUT-DATE-OF-BIRTH PIC X(8). 00024700

024800 05 FCR-OUT-SSN PIC X(9). 00024800

024900 05 FCR-OUT-PREVIOUS-SSN PIC X(9). 00024900

025000 05 FCR-OUT-FIRST-NAME PIC X(16). 00025000

025100 05 FCR-OUT-MIDDLE-NAME PIC X(16). 00025100

025200 05 FCR-OUT-LAST-NAME PIC X(30). 00025200

025300 05 FCR-OUT-CITY-OF-BIRTH PIC X(16). 00025300

025400 05 FCR-OUT-STATE-CNTY-BIRTH PIC X(4). 00025400

025500 05 FCR-OUT-FATHERS-FIRST-NAME PIC X(16). 00025500

025600 05 FCR-OUT-FATHERS-MID-NAME PIC X(1). 00025600

025700 05 FCR-OUT-FATHERS-LAST-NAME PIC X(16). 00025700

025800 05 FCR-OUT-MOTHERS-FIRST-NAME PIC X(16). 00025800

025900 05 FCR-OUT-MOTHERS-MID-NAME PIC X(1). 00025900

026000 05 FCR-OUT-MOTHERS-LAST-NAME PIC X(16). 00026000

026100 05 FCR-OUT-IRS-U-SSN PIC X(9). 00026100

026200 05 FCR-OUT-ADDITIONAL-SSN1 PIC X(9). 00026200

026300 05 FCR-OUT-ADDITIONAL-SSN2 PIC X(9). 00026300

026400 05 FCR-OUT-ADDITIONAL-FNAM1 PIC X(16). 00026400

026500 05 FCR-OUT-ADDITIONAL-MNAM1 PIC X(16). 00026500

026600 05 FCR-OUT-ADDITIONAL-LNAM1 PIC X(30). 00026600

026700 05 FCR-OUT-ADDITIONAL-FNAM2 PIC X(16). 00026700

026800 05 FCR-OUT-ADDITIONAL-MNAM2 PIC X(16). 00026800

026900 05 FCR-OUT-ADDITIONAL-LNAM2 PIC X(30). 00026900

027000 05 FCR-OUT-ADDITIONAL-FNAM3 PIC X(16). 00027000

027100 05 FCR-OUT-ADDITIONAL-MNAM3 PIC X(16). 00027100

027200 05 FCR-OUT-ADDITIONAL-LNAM3 PIC X(30). 00027200

027300 05 FCR-OUT-ADDITIONAL-FNAM4 PIC X(16). 00027300

027400 05 FCR-OUT-ADDITIONAL-MNAM4 PIC X(16). 00027400

027500 05 FCR-OUT-ADDITIONAL-LNAM4 PIC X(30). 00027500

027600 05 FCR-OUT-NEW-MEMBER-ID PIC X(15). 00027600

027700 05 FCR-OUT-IRS-1099 PIC X(1). 00027700

027800 05 FCR-OUT-LOCATE-SOURCE1 PIC X(3). 00027800

027900 05 FCR-OUT-LOCATE-SOURCE2 PIC X(3). 00027900

028000 05 FCR-OUT-LOCATE-SOURCE3 PIC X(3). 00028000

028100 05 FCR-OUT-LOCATE-SOURCE4 PIC X(3). 00028100

028200 05 FCR-OUT-LOCATE-SOURCE5 PIC X(3). 00028200

028300 05 FCR-OUT-LOCATE-SOURCE6 PIC X(3). 00028300

028400 05 FCR-OUT-LOCATE-SOURCE7 PIC X(3). 00028400

028500 05 FCR-OUT-LOCATE-SOURCE8 PIC X(3). 00028500

028600 05 FILLER PIC X(88). 00028600

028700 00028700

028800 00028800

028900 01 WS-FCR-TRANSMITTER-RECORD. 00028900

029000 05 FCR-OUT-TRANS-REC-ID PIC X(2). 00029000

029100 05 FCR-OUT-TRANS-STATE-CODE PIC X(2). 00029100

029200 05 FCR-OUT-TRANS-VRS-CNTL-NUM PIC X(5). 00029200

029300 05 FCR-OUT-TRANS-DATE-STAMP. 00029300

029400 10 FCR-OUT-TRANS-DATE-STAMP-CC PIC X(2). 00029400

029500 10 FCR-OUT-TRANS-DATE-STAMP-YY PIC X(2). 00029500

029600 10 FCR-OUT-TRANS-DATE-STAMP-MM PIC X(2). 00029600

029700 10 FCR-OUT-TRANS-DATE-STAMP-DD PIC X(2). 00029700

029800 05 FCR-OUT-TRANS-BATCH-NUMBER PIC 9(6). 00029800

029900 05 FILLER PIC X(617). 00029900

030000 00030000

030100 01 WS-FCR-TOTAL-RECORD. 00030100

030200 05 FCR-OUT-TOTAL-REC-ID PIC X(2). 00030200

030300 05 FCR-OUT-TOTAL-RECORD-COUNT PIC 9(8). 00030300

030400 05 FILLER PIC X(630). 00030400

030500 00030500

030600\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00030600

030700\* THE FOLLOWING WORKING-STORAGE MEMBER, \* 00030700

030800\* WS-LITERALS-AND-CNTRS, IS WHERE ALL THE LITERALS ARE\* 00030800

030900\* PICKED UP. THE FOLLOWING VALUES NEED TO BE ASSIGNED\* 00030900

031000\* TO THE ELEMENTS SHOWN BELOW: \* 00031000

031100\* \* 00031100

031200\* WS-STATE-FIPS: THIS NEEDS TO BE SET TO YOUR 2 \* 00031200

031300\* CHARACTER STATE FIPS CODE. \* 00031300

031400\* \* 00031400

031500\* \"00\" - UNITED STATES \"31\" - NEBRASKA \* 00031500

031600\* \"01\" - ALABAMA \"32\" - NEVADA \* 00031600

031700\* \"02\" - ALASKA \"33\" - NEW HAMPSHIRE \* 00031700

031800\* \"04\" - ARIZONA \"34\" - NEW JERSEY \* 00031800

031900\* \"05\" - ARKANSAS \"35\" - NEW MEXICO \* 00031900

032000\* \"06\" - CALIFORNIA \"36\" - NEW YORK \* 00032000

032100\* \"08\" - COLORADO \"37\" - NORTH CAROLINA \* 00032100

032200\* \"09\" - CONNECTICUT \"38\" - NORTH DAKOTA \* 00032200

032300\* \"10\" - DELAWARE \"39\" - OHIO \* 00032300

032400\* \"11\" - DISTRICT OF COLUMBIA \"40\" - OKLAHOMA \* 00032400

032500\* \"12\" - FLORIDA \"41\" - OREGON \* 00032500

032600\* \"13\" - GEORGIA \"42\" - PENNSYLVANIA \* 00032600

032700\* \"15\" - HAWAII \"72\" - PUERTO RICO \* 00032700

032800\* \"16\" - IDAHO \"44\" - RHODE ISLAND \* 00032800

032900\* \"17\" - ILLINOIS \"45\" - SOUTH CAROLINA \* 00032900

033000\* \"18\" - INDIANA \"46\" - SOUTH DAKOTA \* 00033000

033100\* \"19\" - IOWA \"47\" - TENNESSEE \* 00033100

033200\* \"20\" - KANSAS \"48\" - TEXAS \* 00033200

033300\* \"21\" - KENTUCKY \"49\" - UTAH \* 00033300

033400\* \"22\" - LOUISIANA \"50\" - VERMONT \* 00033400

033500\* \"24\" - MARYLAND \"51\" - VIRGINIA \* 00033500

033600\* \"25\" - MASSACHUSETTS \"78\" - VIRGIN ISLANDS \* 00033600

033700\* \"26\" - MICHIGAN \"53\" - WASHINGTON \* 00033700

033800\* \"27\" - MINNESOTA \"54\" - WEST VIRGINIA \* 00033800

033900\* \"28\" - MISSISSIPPI \"55\" - WISCONSIN \* 00033900

034000\* \"29\" - MISSOURI \"56\" - WYOMING \* 00034000

034100\* \"30\" - MONTANA \"23\" -- MAINE \* 00034100

034200\* \"66\" -- GUAM \* 00034200

034300\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00034300

034400 00034400

034500 01 WS-LITERALS-AND-CNTRS. 00034500

034600 05 WS-STATE-FIPS PIC X(2) VALUE \"51\". 00034600

034700\*\*\*\* SET VALUE OF WS-STATE-FIPS FROM TABLE ABOVE. 00034700

034800 05 WS-FCR-HEADER-TRANS PIC X(2) VALUE \"FA\". 00034800

034900 05 WS-FCR-CASE-TRANS PIC X(2) VALUE \"FC\". 00034900

035000 05 WS-FCR-PERSON-TRANS PIC X(2) VALUE \"FP\". 00035000

035100 05 WS-FCR-QUERY-TRANS PIC X(2) VALUE \"FR\". 00035100

035200 05 WS-FCR-TRAILER-TRANS PIC X(2) VALUE \"FZ\". 00035200

035300 05 WS-CASE-TRANS-TYPE PIC X(2) VALUE \"FC\". 00035300

035400 05 WS-PERSON-TRANS-TYPE PIC X(2) VALUE \"FP\". 00035400

035500 05 WS-QUERY-TRANS-TYPE PIC X(2) VALUE \"FR\". 00035500

035600 05 WS-ADD-ACTN-TYPE-CD PIC X(1) VALUE \"A\". 00035600

035700 05 WS-CHANGE-ACTN-TYPE-CD PIC X(2) VALUE \"C\". 00035700

035800 05 WS-DELETE-ACTN-TYPE-CD PIC X(2) VALUE \"D\". 00035800

035900 05 WS-LOCATE-ACTN-TYPE-CD PIC X(2) VALUE \"L\". 00035900

036000 05 WS-TERM-ACTN-TYPE-CD PIC X(2) VALUE \"T\". 00036000

036100 05 WS-QUERY-ACTN-TYPE-CD PIC X(2) VALUE \"F\". 00036100

036110 05 WS-CASE-ADD PIC X(2) VALUE \"CA\". 00036110

036120 05 WS-CASE-CHANGE PIC X(2) VALUE \"CC\". 00036120

036130 05 WS-CASE-DELETE PIC X(2) VALUE \"CD\". 00036130

036140 05 WS-MEMBER-ADD PIC X(2) VALUE \"PA\". 00036140

036150 05 WS-MEMBER-CHANGE PIC X(2) VALUE \"PC\". 00036150

036160 05 WS-MEMBER-DELETE PIC X(2) VALUE \"PD\". 00036160

036200 05 WS-VERSION-CNTL-NUM PIC X(5) VALUE \"01.00\". 00036200

036310 05 WS-BATCH-NUMBER PIC 9(6) VALUE 0. 00036310

036400 05 WS-BATCH-DATE PIC X(8) VALUE SPACES. 00036400

036500 05 WS-TEST-CNTR PIC 9(4) VALUE 0. 00036500

036510 05 WS-RECORD-COUNT PIC 9(11) VALUE 2. 00036510

036600 05 ERROR-LINE-COUNT PIC 9(2) VALUE 65. 00036600

036700 05 ERROR-PAGE-COUNT PIC 9(4) VALUE 0. 00036700

036800 05 WS-ISSUE-LOCATE-SW PIC X VALUE \"N\". 00036800

036900 88 WS-ISSUE-LOCATE VALUE \"Y\". 00036900

037000 88 WS-NO-LOCATE-REQ VALUE \"N\". 00037000

037100 05 WS-PROCESSES-CASES PIC X VALUE \"Y\". 00037100

037110 88 WS-MORE-CASES VALUE \"Y\". 00037110

037120 88 WS-NO-MORE-CASES VALUE \"N\". 00037120

037130 05 WS-PROCESSES-MEMBERS PIC X VALUE \"Y\". 00037130

037140 88 WS-MORE-MEMBERS VALUE \"Y\". 00037140

037150 88 WS-NO-MORE-MEMBERS VALUE \"N\". 00037150

037200 05 WS-PASSED-EDIT-SW PIC X VALUE \"Y\". 00037200

037300 88 RECORD-PASSED-EDITS VALUE \"Y\". 00037300

037400 88 RECORD-DIDNT-PASS-EDITS VALUE \"N\". 00037400

037500 05 WS-INVALID-DATE-SW PIC X VALUE \"N\". 00037500

037600 88 INVALID-DATE VALUE \"Y\". 00037600

037700 88 VALID-DATE VALUE \"N\". 00037700

037800 05 WS-WARNING-ONLY-SW PIC X VALUE \"N\". 00037800

037900 88 WARNING-ONLY VALUE \"Y\". 00037900

038000 88 NOT-WARNING-ONLY VALUE \"N\". 00038000

038010 05 EDIT-CASE-TYPE PIC X VALUE SPACES. 00038010

038020 88 VALID-CASE-TYPE VALUES \"F\", \"N\". 00038020

038030 05 EDIT-ORDER-IND PIC X VALUE SPACES. 00038030

038040 88 VALID-ORDER-IND VALUE \"Y\", \"N\", \" \". 00038040

038050 05 EDIT-BUNDLE-IND PIC X VALUE \"N\". 00038050

038060 88 VALID-BUNDLE-IND VALUE \"Y\", \"N\", \" \". 00038060

038070 05 EDIT-PARTICIPANT-TYPE PIC X(2) VALUE SPACES. 00038070

038080 88 VALID-PARTICIPANT-TYPE VALUES \"CH\", \"CP\", 00038080

038090 \"NP\", \"PF\". 00038090

038091 05 EDIT-FAMILY-VIOLENCE PIC X(2) VALUE SPACES. 00038091

038092 88 VALID-FAMILY-VIOLENCE-IND VALUE \"FV\", \" \". 00038092

038093 05 EDIT-SEX-CODE PIC X VALUE SPACES. 00038093

038094 88 VALID-SEX-CODE VALUES \"F\", \"M\". 00038094

038095 05 EDIT-LOCATE-CODE PIC X(3) VALUE SPACES. 00038095

038096 88 VALID-LOCATE-CODE VALUES \" \", \"ALL\", \"A01\", 00038096

038097 \"A02\", \"C01\", \"E01\", 00038097

038098 \"F01\". 00038098

038100 05 WS-CHECK-STATE PIC X(2). 00038100

038200 88 VALID-STATE VALUES \"AK\", \"AL\", \"AR\", \"AZ\", 00038200

038300 \"CA\", \"CO\", \"CT\", \"DC\", 00038300

038400 \"DE\", \"FL\", \"GA\", \"HI\", 00038400

038500 \"IA\", \"ID\", \"IL\", \"IN\", 00038500

038600 \"KS\", \"KY\", \"LA\", \"MA\", 00038600

038700 \"MD\", \"ME\", \"MI\", \"MN\", 00038700

038800 \"MO\", \"MS\", \"MT\", \"NC\", 00038800

038900 \"ND\", \"NE\", \"NH\", \"NJ\", 00038900

039000 \"NV\", \"NY\", \"OH\", \"OK\", 00039000

039100 \"PA\", \"PR\", \"SC\", \"SD\", 00039100

039200 \"TN\", \"TX\", \"UT\", \"VA\", 00039200

039300 \"VI\", \"VT\", \"WA\", \"WI\", 00039300

039400 \"WV\", \"WY\", \"NM\", \"RI\", 00039400

039500 \"OR\". 00039500

039600 00039600

039700 01 WS-ERROR-LITERALS. 00039700

039800 05 ERR-CASE-ID-MISSING PIC X(45) VALUE 00039800

039900 \"REJECTED - CASE ID IS MISSING \". 00039900

039910 05 ERR-CASE-TYPE-MISSING PIC X(45) VALUE 00039910

039920 \"REJECTED - CASE TYPE IS MISSING \". 00039920

040000 05 ERR-INVALID-CASE-TYPE PIC X(45) VALUE 00040000

040100 \"REJECTED - CASE TYPE IS INVALID \". 00040100

040400 05 ERR-CHANGE-CASE-SAME PIC X(45) VALUE 00040400

040500 \"REJECTED - CASE ID & NEW CASE ID ARE THE SAME\". 00040500

040600 05 ERR-ORDER-IND-MISSING PIC X(45) VALUE 00040600

040700 \"REJECTED - ORDER INDICATOR IS MISSING \". 00040700

040800 05 ERR-ORDER-IND-INVALID PIC X(45) VALUE 00040800

040900 \"REJECTED - ORDER INDICATOR IS INVALID \". 00040900

040910 05 ERR-BUNDLE-IND-INVALID PIC X(45) VALUE 00040910

040920 \"WARNING - BUNDLE INDICATOR IS INVALID \". 00040920

041000 05 ERR-MEMBER-ID PIC X(45) VALUE 00041000

041100 \"REJECTED - MEMBER-ID IS MISSING \". 00041100

041200 05 ERR-PARTICIPANT-SSN-1 PIC X(45) VALUE 00041200

041300 \"WARNING - PARTICIPANT SSN IS NOT NUMERIC \". 00041300

041400 05 ERR-PARTICIPANT-SSN-2 PIC X(45) VALUE 00041400

041500 \"WARNING - PARTICIPANT SSN/IRS-U INFO MISSING\". 00041500

041600 05 ERR-PARTICIPANT-DOB PIC X(45) VALUE 00041600

041700 \"WARNING - PARTICIPANT DATE OF BIRTH MISSING \". 00041700

041710 05 ERR-PART-TYPE-INVALID PIC X(45) VALUE 00041710

041720 \"REJECTED - PARTICIPANT TYPE IS INVALID \". 00041720

041800 05 ERR-PARTICIPANT-FNAME PIC X(45) VALUE 00041800

041900 \"WARNING - PARTICIPANT FIRST NAME IS MISSING \". 00041900

042000 05 ERR-PARTICIPANT-LNAME PIC X(45) VALUE 00042000

042100 \"WARNING - PARTICIPANT LAST NAME IS MISSING \". 00042100

042200 05 ERR-PARTICIPANT-IRSU PIC X(45) VALUE 00042200

042300 \"WARNING - ISR-U SSN IS MISSING \". 00042300

042400 05 ERR-LOC-TYPE-MISSING PIC X(45) VALUE 00042400

042500 \"WARNING - LOCATE REQUEST TYPE IS MISSING \". 00042500

042600 05 ERR-LOC-TYPE-INVALID PIC X(45) VALUE 00042600

042700 \"WARNING - LOCATE REQUEST TYPE IS INVALID \". 00042700

042710 05 ERR-FV-IND-INVALID PIC X(45) VALUE 00042710

042720 \"WARNING - FAMILY VIOLENCE INDICATOR INVALID \". 00042720

042730 05 ERR-SEX-CODE-INVALID PIC X(45) VALUE 00042730

042740 \"WARNING - SEX CODE IS INVALID \". 00042740

042750 05 ERR-LOCATE-CD-INVALID PIC X(45) VALUE 00042750

042760 \"WARNING - LOCATE CODE IS INVALID \". 00042760

042800 00042800

042810 01 PRINT-ERROR PIC X(132) VALUE SPACES. 00042810

042900 00042900

043600 01 PRINT-CASE-ERROR-MESSAGE. 00043600

043700 05 ERR-MSG-CASE-LIT PIC X(12) VALUE \" CASE: \". 00043700

043800 05 ERR-MSG-CASE PIC X(15) VALUE SPACES. 00043800

043900 05 FILLER PIC X(5) VALUE SPACES. 00043900

044000 05 ERR-MSG-LITERAL-CASE PIC X(45) VALUE SPACES. 00044000

044100 05 FILLER PIC X(55) VALUE SPACES. 00044100

044110 00044110

044120 01 PRINT-PART-ERROR-MESSAGE. 00044120

044130 05 ERR-MSG-PART-LIT PIC X(12) VALUE \" MEMBER-ID: \". 00044130

044140 05 ERR-MSG-PART PIC X(15) VALUE SPACES. 00044140

044150 05 ERR-CODE-VALUE PIC X(5) VALUE SPACES. 00044150

044160 05 ERR-MSG-LITERAL-PART PIC X(45) VALUE SPACES. 00044160

044170 05 FILLER PIC X(55) VALUE SPACES. 00044170

044200 00044200

044300 01 ERROR-REPORT-HEADER. 00044300

044400 05 FILLER PIC X(54) VALUE SPACES. 00044400

044500 05 FILLER PIC X(25) VALUE 00044500

044600 \"SCR DOWNLOAD ERROR REPORT\". 00044600

044700 05 FILLER PIC X(44) VALUE SPACES. 00044700

044800 05 FILLER PIC X(6) VALUE \"PAGE: \". 00044800

044900 05 ERROR-REPORT-PAGE PIC ZZZ9. 00044900

045000 00045000

045100 01 FORMAT-SSN. 00045100

045200 05 SSN-F1-FIRST-THREE PIC X(3) VALUE SPACES. 00045200

045300 05 SSN-F1-FOUR-FIVE PIC X(2) VALUE SPACES. 00045300

045400 05 SSN-F1-LAST-FOUR PIC X(4) VALUE SPACES. 00045400

045500 00045500

045600 01 FORMATTED-SSN. 00045600

045700 05 SSN-F2-FIRST-THREE PIC X(3) VALUE SPACES. 00045700

045800 05 DASH-1 PIC X VALUE \"-\". 00045800

045900 05 SSN-F2-FOUR-FIVE PIC X(2) VALUE SPACES. 00045900

046000 05 DASH-2 PIC X VALUE \"-\". 00046000

046100 05 SSN-F2-LAST-FOUR PIC X(4) VALUE SPACES. 00046100

046200 00046200

046300 01 WS-EDIT-DATE. 00046300

046400 05 WS-EDIT-CC PIC X(2) VALUE SPACES. 00046400

046500 05 WS-EDIT-YY PIC X(2) VALUE SPACES. 00046500

046600 05 WS-EDIT-MM PIC X(2) VALUE SPACES. 00046600

046700 05 WS-EDIT-DD PIC X(2) VALUE SPACES. 00046700

046800 00046800

046900 01 FORMAT-DATE. 00046900

047000 05 FORMAT-YY PIC X(2) VALUE SPACES. 00047000

047100 05 FORMAT-MM PIC X(2) VALUE SPACES. 00047100

047200 05 FORMAT-DD PIC X(2) VALUE SPACES. 00047200

047300 00047300

047400 01 FORMAT-DATE2. 00047400

047500 05 FORMAT2-CC PIC X(2) VALUE SPACES. 00047500

047600 05 FORMAT2-YY PIC X(2) VALUE SPACES. 00047600

047700 05 FORMAT2-MM PIC X(2) VALUE SPACES. 00047700

047800 05 FORMAT2-DD PIC X(2) VALUE SPACES. 00047800

047900 00047900

048000 01 FORMATTED-DATE. 00048000

048100 05 FORMATTED-MM PIC X(2) VALUE SPACES. 00048100

048200 05 FILLER PIC X VALUE \"/\". 00048200

048300 05 FORMATTED-DD PIC X(2) VALUE SPACES. 00048300

048400 05 FILLER PIC X VALUE \"/\". 00048400

048500 05 FORMATTED-CC PIC X(2) VALUE SPACES. 00048500

048600 05 FORMATTED-YY PIC X(2) VALUE SPACES. 00048600

048700 00048700

048800 01 TOTAL-LINE-MESSAGE. 00048800

048900 05 FILLER PIC X(16) VALUE 00048900

049000 \" BATCH NUMBER: \". 00049000

049100 05 TOTAL-LINE-BATCH-NUM PIC 9(6) VALUE ZEROES. 00049100

049200 05 FILLER PIC X(12) VALUE 00049200

049300 \" FOR DATE: \". 00049300

049400 05 TOTAL-LINE-DATE PIC X(12) VALUE SPACES. 00049400

049500 05 FILLER PIC X(13) VALUE 00049500

049600 \" GENERATED \". 00049600

049700 05 TOTAL-LINE-TRAN-COUNT PIC ZZZZZZZZZZ9. 00049700

049800 05 FILLER PIC X(9) VALUE 00049800

049900 \" RECORDS\". 00049900

050000 05 FILLER PIC X(55) VALUE SPACES. 00050000

050100 00050100

050200 PROCEDURE DIVISION. 00050200

050300 00050300

050400 0000-MAINLINE. 00050400

050500 PERFORM 0050-CHECK-PROGRAM-CHANGES THRU 0050-EXIT. 00050500

050600 PERFORM 0100-INITIALIZE-AND-OPEN THRU 0100-EXIT. 00050600

050700 PERFORM 1000-PROCESS-CASES THRU 1000-EXIT 00050700

050800 UNTIL WS-NO-MORE-CASES. 00050800

050900 PERFORM 0200-WRITE-TOTAL-AND-CLOSE THRU 0200-EXIT. 00050900

051000 STOP RUN. 00051000

051100 0000-EXIT. EXIT. 00051100

051200 00051200

051300\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00051300

051400\* 0050-CHECK-PROGRAM-CHANGES. \* 00051400

051500\* THIS PARAGRAPH CHECKS THE WS-STATE-FIPS WORKING-STORAGE \*
00051500

051600\* VARIABLE TO MAKE SURE IT WAS CHANGED TO A VALID VALUE. \*
00051600

051700\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00051700

051800 0050-CHECK-PROGRAM-CHANGES. 00051800

051900 IF WS-STATE-FIPS = \"\*\*\" 00051900

052000 DISPLAY \" \*\*\* THE WORKING-STORAGE VARIABLE \" 00052000

052100 \"WS-STATE-FIPS HAS NOT BEEN SET TO A VALID VALUE \*\*\" 00052100

052200 DISPLAY \" \*\*\* A PROGRAMMER NEEDS TO LOOK AT\" 00052200

052300 \" THE CODE AND MODIFY IT TO FIX THIS PROBLEM. \*\*\" 00052300

052400 STOP RUN 00052400

052500 END-IF. 00052500

052600 0050-EXIT. EXIT. 00052600

052700 00052700

052800\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00052800

052900\* 0100-INITIALIZE-AND-OPEN. \* 00052900

053000\* THIS PARAGRAPH OPENS THE REQUIRED FILES AND SETS ALL THE \*
00053000

053100\* DEFAULT VALUES FOR VARIABLES IN WORKING STORAGE. \* 00053100

053200\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00053200

053300 00053300

053400 0100-INITIALIZE-AND-OPEN. 00053400

053500 OPEN INPUT SCR-INPUT-FILE 00053500

053600 I-O FCR-BATCHNUM-FILE 00053600

053700 OUTPUT FCR-OUTPUT-FILE 00053700

053810 PRINTER. 00053810

053820 OPEN OUTPUT FCR-AUDIT-FILE. 00053820

053821 IF AUDIT-FILE-STATUS \> \"00\" 00053821

053830 DISPLAY \" OPEN AUDIT-FILE: \" AUDIT-FILE-STATUS. 00053830

053900 PERFORM 0150-SET-BATCH-CONTROL-NUM THRU 0150-EXIT. 00053900

054000 PERFORM 0175-WRITE-TRANSMITTER-REC THRU 0175-EXIT. 00054000

054100 0100-EXIT. EXIT. 00054100

054200 00054200

054300\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00054300

054400\* 0150-SET-BATCH-CONTROL-NUM. \* 00054400

054500\* THIS PARAGRAPH READS THE FCR-BATCHNUM-FILE, WHICH ONLY HAS\*
00054500

054600\* ONE RECORD - A SIX DIGIT NUMBER USED TO IDENTIFY THE \*
00054600

054700\* TRANSMISSION, IN THE EVENT THERE ARE TROUBLES WITH THE \*
00054700

054800\* TRANSMISSION OR NEEDS TO BE IDENTIFIED FOR OTHER REASONS. \*
00054800

054900\* PROGRAM OPENS THIS FILE AS I/O READS THE SINGLE RECORD \*
00054900

055000\* AND INCREMENTS THE NUMBER BY 1, USES THAT NUMBER AS THE \*
00055000

055100\* TRANSMISSION CONTROL NUMBER AND REWRITES THE RECORD. \*
00055100

055200\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00055200

055300 00055300

055400 0150-SET-BATCH-CONTROL-NUM. 00055400

055500 READ FCR-BATCHNUM-FILE 00055500

055600 AT END MOVE ZERO TO FCR-BATCHNUM-RECORD. 00055600

055700 MOVE FCR-BATCHNUM-RECORD TO WS-BATCH-NUMBER. 00055700

055800 ADD 1 TO WS-BATCH-NUMBER. 00055800

055900 MOVE WS-BATCH-NUMBER TO FCR-BATCHNUM-RECORD. 00055900

056010 REWRITE FCR-BATCHNUM-RECORD. 00056010

056100 0150-EXIT. EXIT. 00056100

056200 00056200

056300\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00056300

056400\* 0175-WRITE-TRANSMITTER-REC. \* 00056400

056500\* EACH TRANSMISSION REQUIRES A TRANSMITTER HEADER RECORD. \*
00056500

056600\* THIS PARAGRAPH MOVES IN THE IDENTIFYING INFORMATION FOR THE\*
00056600

056700\* TRANSMISSION AND WRITES OUT THE HEADER RECORD. \* 00056700

056800\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00056800

056900 00056900

057000 0175-WRITE-TRANSMITTER-REC. 00057000

057100 ACCEPT FORMAT-DATE FROM DATE. 00057100

057200 MOVE FORMAT-YY TO FORMAT2-YY. 00057200

057300 MOVE FORMAT-MM TO FORMAT2-MM. 00057300

057400 MOVE FORMAT-DD TO FORMAT2-DD. 00057400

057500 IF FORMAT2-YY \< \"80\" 00057500

057600 MOVE \"20\" TO FORMAT2-CC 00057600

057700 ELSE 00057700

057800 MOVE \"19\" TO FORMAT2-CC 00057800

057900 END-IF. 00057900

057910 MOVE SPACES TO WS-FCR-TRANSMITTER-RECORD. 00057910

058000 MOVE FORMAT-DATE2 TO WS-BATCH-DATE. 00058000

058100 MOVE WS-FCR-HEADER-TRANS TO FCR-OUT-TRANS-REC-ID. 00058100

058200 MOVE WS-STATE-FIPS TO FCR-OUT-TRANS-STATE-CODE. 00058200

058600 MOVE WS-VERSION-CNTL-NUM TO FCR-OUT-TRANS-VRS-CNTL-NUM. 00058600

058700 MOVE WS-BATCH-DATE TO FCR-OUT-TRANS-DATE-STAMP. 00058700

058800 MOVE WS-BATCH-NUMBER TO FCR-OUT-TRANS-BATCH-NUMBER. 00058800

058900 MOVE WS-FCR-TRANSMITTER-RECORD TO FCR-OUTPUT-RECORD. 00058900

059000 WRITE FCR-OUTPUT-RECORD. 00059000

059100 0175-EXIT. EXIT. 00059100

059200 00059200

059300\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00059300

059400\* 0200-WRITE-TOTAL-AND-CLOSE. \* 00059400

059500\* EACH TRANSMISSION REQUIRES A TRAILER RECORD WHICH CONTAINS \*
00059500

059600\* THE RECORD COUNT FOR THE TRANSMISSION. THIS PARAGRAPH SETS \*
00059600

059700\* THE RECORD TYPE, MOVES IN THE RECORD COUNT AND WRITES THE \*
00059700

059800\* TRAILER RECORD. IN ADDITION TO THIS IT ALSO WRITES THE COUNT\*
00059800

059900\* TO A REPORT TO TELL THE USER THE BATCH CONTROL NUMBER, DATE \*
00059900

060000\* OF TRANSMISSION AND THE NUMBER OF RECORDS SENT. \* 00060000

060100\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00060100

060200 00060200

060300 0200-WRITE-TOTAL-AND-CLOSE. 00060300

060310 MOVE SPACES TO WS-FCR-TOTAL-RECORD. 00060310

060400 MOVE WS-FCR-TRAILER-TRANS TO FCR-OUT-TOTAL-REC-ID. 00060400

060500 MOVE WS-RECORD-COUNT TO FCR-OUT-TOTAL-RECORD-COUNT. 00060500

060600 MOVE SPACES TO FCR-OUTPUT-RECORD. 00060600

060700 MOVE WS-FCR-TOTAL-RECORD TO FCR-OUTPUT-RECORD. 00060700

060800 WRITE FCR-OUTPUT-RECORD. 00060800

060900 MOVE WS-BATCH-NUMBER TO TOTAL-LINE-BATCH-NUM. 00060900

061000 MOVE WS-BATCH-DATE TO FORMAT-DATE. 00061000

061100 MOVE FORMAT2-CC TO FORMATTED-CC. 00061100

061200 MOVE FORMAT2-YY TO FORMATTED-YY. 00061200

061300 MOVE FORMAT2-MM TO FORMATTED-MM. 00061300

061400 MOVE FORMAT2-DD TO FORMATTED-DD. 00061400

061500 MOVE FORMATTED-DATE TO TOTAL-LINE-DATE. 00061500

061600 MOVE WS-RECORD-COUNT TO TOTAL-LINE-TRAN-COUNT. 00061600

061700 MOVE TOTAL-LINE-MESSAGE TO PRINT-REC. 00061700

061800 WRITE PRINT-REC AFTER ADVANCING 4. 00061800

061900 CLOSE SCR-INPUT-FILE, FCR-OUTPUT-FILE, 00061900

062000 FCR-BATCHNUM-FILE, FCR-AUDIT-FILE, PRINTER. 00062000

062100 0200-EXIT. EXIT. 00062100

062200 00062200

064100 00064100

064200\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00064200

064300\* 1000-PROCESS-CASES. \* 00064300

064400\* THIS IS THE MAIN LOOP OF THE PROGRAM. FROM HERE IT WILL \*
00064400

064500\* PERFORM ROUTINES TO MAP THE INPUT DATA TO THE WORKING STORAGE\*
00064500

064600\* MEMBERS FOR EDITING AND AS A STAGING AREA TO BE MOVED TO THE \*
00064600

064700\* OUTPUT AREA, WRITE THE RECORD TO BE TRANSMITTED AND READ THE \*
00064700

064800\* NEXT RECORD. THIS PARAGRAPH WILL BE PERFORMED UNTIL THERE \*
00064800

064900\* ARE NO MORE CASES TO BE PROCESSED. \* 00064900

065000\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00065000

065100 00065100

065200 1000-PROCESS-CASES. 00065200

065210\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00065210

065220\* YOU NEED TO ENTER THE LOGIC HERE TO READ THROUGH YOUR CASES. \*
00065220

065230\* YOU SHOULD THEN PERFORM PARAGRAPH 1100-MAP-CASE-RECORD TO \*
00065230

065240\* MAP YOUR DATA TO THE WS-SCR-INPUT-CASE-RECORD. THIS PROGRAM \*
00065240

065250\* WILL THEN DO THE EDITS AND FORMAT THE TRANSACTION RECORD FROM\*
00065250

065260\* THIS AREA AND WRITE THE TRANSACTIONS OUT. \* 00065260

065270\* ONCE THE CASE RECORD HAS BEEN PROCESSED YOU SHOULD THEN LOOP \*
00065270

065280\* THROUGH PARAGRAPH 1050-PROCESS-PARTICIPANTS TO GET ALL THE \*
00065280

065290\* PARTICIPANTS ASSOCIATED WITH THAT CASE. \* 00065290

065291\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00065291

065292\*\*\* 00065292

065293\* INSERT LOGIC TO SEQUENTIALLY READ THROUGH YOUR STATE CASE
00065293

065294\* REGISTRY HERE. 00065294

065295\*\*\* 00065295

065296\* 00065296

065320\* IF \<END OF CASES\> 00065320

065330\* SET WS-NO-MORE-CASES TO TRUE 00065330

065340\* GO TO 1000-EXIT 00065340

065350\* END-IF. 00065350

065351 READ SCR-INPUT-FILE 00065351

065352 AT END SET WS-NO-MORE-CASES TO TRUE 00065352

065354 GO TO 1000-EXIT. 00065354

065357 PERFORM 1100-MAP-CASE-RECORD THRU 1100-EXIT 00065357

065359 PERFORM 1200-EDIT-CASE-RECORD THRU 1200-EXIT 00065359

065361 00065361

065362 IF RECORD-PASSED-EDITS 00065362

065363 PERFORM 1300-WRITE-CASE-RECORD THRU 1300-EXIT 00065363

065364 SET WS-MORE-MEMBERS TO TRUE 00065364

065366 PERFORM 1050-PROCESS-PARTICIPANTS THRU 1050-EXIT 00065366

065367 UNTIL WS-NO-MORE-MEMBERS 00065367

065368 END-IF. 00065368

065380 00065380

065900 1000-EXIT. EXIT. 00065900

065910 00065910

065920 1050-PROCESS-PARTICIPANTS. 00065920

065930\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00065930

065940\* YOU NEED TO ENTER THE LOGIC HERE TO READ THROUGH YOUR \*
00065940

065950\* PARTICIPANTS ASSOCIATED WITH THE CASE YOU JUST READ IN THE \*
00065950

065960\* PREVIOUS PARAGRAPH. ONCE YOU HAVE THE PARTICIPANT RECORD IN \*
00065960

065970\* MEMORY PERFORM PARAGRAPH 1150-MAP-PARTICIPANT-RECORD. \*
00065970

065980\* ONCE THERE MAP YOUR PARTICIPANT RECORD TO THE \* 00065980

065990\* WS-SCR-INPUT-PART-RECORD. THIS PROGRAM WILL PERFORM THE \*
00065990

065991\* REQUIRED EDITS AND FORMAT THE PARTICIPANT TRANSACTION RECORD \*
00065991

065992\* FROM THIS WORKING-STORAGE AREA AND CREATE THE TRANSACTION \*
00065992

065993\* RECORD AND WRITE IT OUT. \* 00065993

065994\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00065994

065995\* 00065995

065996\*\*\*\* 00065996

065997\* INSERT THE LOGIC HERE TO SEQUENTIALLY READ THROUGH THE 00065997

065998\* PARTICIPANT RECORDS ASSOCIATED WITH THE CASE. 00065998

066000\*\*\*\* 00066000

066001\* 00066001

066002\* IF \<END OF PARTICIPANTS\> 00066002

066003\* SET WS-NO-MORE-MEMBERS TO TRUE 00066003

066004\* GO TO 1050-EXIT 00066004

066005\* END-IF. 00066005

066006\* 00066006

066007 READ SCR-INPUT-FILE 00066007

066008 AT END SET WS-NO-MORE-MEMBERS TO TRUE 00066008

066009 SET WS-NO-MORE-CASES TO TRUE 00066009

066010 GO TO 1050-EXIT. 00066010

066011\* 00066011

066012 PERFORM 1150-MAP-PARTICIPANT-RECORD THRU 1150-EXIT. 00066012

066013 PERFORM 1250-EDIT-PARTICIPANT-RECORD THRU 1250-EXIT. 00066013

066014 IF RECORD-PASSED-EDITS 00066014

066015 PERFORM 1350-WRITE-PARTICIPANT-RECORD THRU 1350-EXIT 00066015

066016 END-IF. 00066016

066017 1050-EXIT. EXIT. 00066017

066018 00066018

066019\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00066019

066020\* 1100-MAP-CASE-RECORD. \* 00066020

066021\* IN THIS PARAGRAPH YOU NEED TO MAP YOUR DATA TO THE \* 00066021

066022\* INTERNAL WORKING-STORAGE MEMBERS. REPLACE THE "X"\'S \*
00066022

066023\* WITH THE CORROSPONDING DATA ELEMENT IN YOUR SCR. \* 00066023

066024\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00066024

066025 00066025

066026 1100-MAP-CASE-RECORD. 00066026

066027 00066027

066028 MOVE SPACES TO WS-FCR-OUTPUT-CASE-RECORD. 00066028

066029 MOVE SPACES TO WS-SCR-INPUT-CASE-RECORD. 00066029

066030 MOVE SCR-INPUT-RECORD TO WS-SCR-INPUT-CASE-RECORD. 00066030

066031 00066031

066032\* MOVE WS-FCR-CASE-TRANS 00066032

066033\* TO SCR-CASE-IN-ACTION-TYPE-CODE. 00066033

066034 00066034

066035\* MOVE XXXXXXXXXXXXXXXXXXX 00066035

066036\* TO SCR-CASE-IN-CASE-ID. 00066036

066037 00066037

066038\* MOVE XXXXXXXXXXXXXXXXXXXXX 00066038

066039\* TO SCR-CASE-IN-CASE-TYPE. 00066039

066040 00066040

066046\* MOVE XXXXXXXXXXXXXXXXXXXXXXXXXXX 00066046

066047\* TO SCR-CASE-IN-ORDER-INDICATOR. 00066047

066048 00066048

066049\* MOVE XXXXXXXXXXXXXXXXXXXXXXXXXXXX 00066049

066050\* TO SCR-CASE-IN-FIPS-COUNTY-CODE. 00066050

066051 00066051

066052\* MOVE XXXXXXXXXXXXXXXXXXXXXX 00066052

066053\* TO SCR-CASE-IN-USER-FIELD. 00066053

066054 00066054

066055\* MOVE XXXXXXXXXXXXXXXXXXXXXXXXXXXX 00066055

066056\* TO SCR-CASE-IN-PREVIOUS-CASE-ID. 00066056

066057 00066057

066058 1100-EXIT. EXIT. 00066058

066059 00066059

066060\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00066060

066061\* 1150-MAP-PARTICIPANT-RECORD. \* 00066061

066062\* IN THIS PARAGRAPH YOU NEED TO MAP YOUR DATA TO THE \* 00066062

066063\* INTERNAL WORKING-STORAGE MEMBERS. REPLACE THE "X"'S \* 00066063

066064\* WITH THE CORRESPONDING DATA ELEMENT IN YOUR SCR. \* 00066064

066065\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00066065

066066 00066066

066067 1150-MAP-PARTICIPANT-RECORD. 00066067

066068 00066068

066069 MOVE SPACES TO WS-SCR-INPUT-PART-RECORD. 00066069

066070 MOVE SCR-INPUT-RECORD TO WS-SCR-INPUT-PART-RECORD. 00066070

066071 00066071

066074\* MOVE XXXXXXXXXXXXXXXXXXX 00066074

066075\* TO SCR-IN-CASE-ID. 00066075

066076 00066076

066077\* MOVE XXXXXXXXXXXXXXXXXXXXXX 00066077

066078\* TO SCR-IN-USER-FIELD. 00066078

066079 00066079

066080\* MOVE XXXXXXXXXXXXXXXXXXXXXXXXXXXX 00066080

066081\* TO SCR-IN-FIPS-COUNTY-CODE. 00066081

066082 00066082

066083\* MOVE XXXXXXXXXXXXXXXXXXXXXXXXXXX 00066083

066084\* TO SCR-IN-LOCATE-REQ-TYPE. 00066084

066085 00066085

066086\* MOVE XXXXXXXXXXXXXXXXXXXXXXXXXX 00066086

066087\* TO SCR-IN-BUNDLE-RESULTS. 00066087

066088 00066088

066089\* MOVE XXXXXXXXXXXXXXXXXXXXXXXXXXXX 00066089

066090\* TO SCR-IN-PARTICIPANT-TYPE. 00066090

066091 00066091

066092\* MOVE XXXXXXXXXXXXXXXXXXXXXXXXXXX 00066092

066093\* TO SCR-IN-FAMILY-VIOLENCE. 00066093

066094 00066094

066095\* MOVE XXXXXXXXXXXXXXXXXXXXX 00066095

066096\* TO SCR-IN-MEMBER-ID. 00066096

066097 00066097

066098\* MOVE XXXXXXXXXXXXXXXXXXXX 00066098

066099\* TO SCR-IN-SEX-CODE. 00066099

066100 00066100

066101\* MOVE XXXXXXXXXXXXXXXXXXXXXXXXX 00066101

066102\* TO SCR-IN-DATE-OF-BIRTH. 00066102

066103 00066103

066104\* MOVE XXXXXXXXXXXXXXX 00066104

066105\* TO SCR-IN-SSN. 00066105

066106 00066106

066107\* MOVE XXXXXXXXXXXXXXXXXXXXXXXX 00066107

066108\* TO SCR-IN-PREVIOUS-SSN. 00066108

066109 00066109

066110\* MOVE XXXXXXXXXXXXXXXXXXXXXX 00066110

066111\* TO SCR-IN-FIRST-NAME. 00066111

066112 00066112

066113\* MOVE XXXXXXXXXXXXXXXXXXXXXXX 00066113

066114\* TO SCR-IN-MIDDLE-NAME. 00066114

066115 00066115

066116\* MOVE XXXXXXXXXXXXXXXXXXXXX 00066116

066117\* TO SCR-IN-LAST-NAME. 00066117

066118 00066118

066119\* MOVE XXXXXXXXXXXXXXXXXXXXXXXXX 00066119

066120\* TO SCR-IN-CITY-OF-BIRTH. 00066120

066121 00066121

066122\* MOVE XXXXXXXXXXXXXXXXXXXXXXXXXXXX 00066122

066123\* TO SCR-IN-STATE-CNTY-BIRTH. 00066123

066124 00066124

066125\* MOVE XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 00066125

066126\* TO SCR-IN-FATHERS-FIRST-NAME. 00066126

066127 00066127

066128\* MOVE XXXXXXXXXXXXXXXXXXXXXXXXXXXX 00066128

066129\* TO SCR-IN-FATHERS-MID-NAME. 00066129

066130 00066130

066131\* MOVE XXXXXXXXXXXXXXXXXXXXXXXXXXXXX 00066131

066132\* TO SCR-IN-FATHERS-LAST-NAME. 00066132

066133 00066133

066134\* MOVE XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 00066134

066135\* TO SCR-IN-MOTHERS-FIRST-NAME. 00066135

066136 00066136

066137\* MOVE XXXXXXXXXXXXXXXXXXXXXXXXXXXX 00066137

066138\* TO SCR-IN-MOTHERS-MID-NAME. 00066138

066139 00066139

066140\* MOVE XXXXXXXXXXXXXXXXXXXXXXXXXXXXX 00066140

066141\* TO SCR-IN-MOTHERS-LAST-NAME. 00066141

066142 00066142

066143\* MOVE XXXXXXXXXXXXXXXXXXXXX 00066143

066144\* TO SCR-IN-IRS-U-SSN. 00066144

066145 00066145

066146\* MOVE XXXXXXXXXXXXXXXXXXXXXXXXXXX 00066146

066147\* TO SCR-IN-ADDITIONAL-SSN1. 00066147

066148 00066148

066149\* MOVE XXXXXXXXXXXXXXXXXXXXXXXXXXX 00066149

066150\* TO SCR-IN-ADDITIONAL-SSN2. 00066150

066151 00066151

066152\* MOVE XXXXXXXXXXXXXXXXXXXXXXXXXXXX 00066152

066153\* TO SCR-IN-ADDITIONAL-FNAM1. 00066153

066154 00066154

066155\* MOVE XXXXXXXXXXXXXXXXXXXXXXXXXXXX 00066155

066156\* TO SCR-IN-ADDITIONAL-MNAM1. 00066156

066157 00066157

066158\* MOVE XXXXXXXXXXXXXXXXXXXXXXXXXXXX 00066158

066159\* TO SCR-IN-ADDITIONAL-LNAM1. 00066159

066160 00066160

066161\* MOVE XXXXXXXXXXXXXXXXXXXXXXXXXXXX 00066161

066162\* TO SCR-IN-ADDITIONAL-FNAM2. 00066162

066163 00066163

066164\* MOVE XXXXXXXXXXXXXXXXXXXXXXXXXXXX 00066164

066165\* TO SCR-IN-ADDITIONAL-MNAM2. 00066165

066166 00066166

066167\* MOVE XXXXXXXXXXXXXXXXXXXXXXXXXXXX 00066167

066168\* TO SCR-IN-ADDITIONAL-LNAM2. 00066168

066169 00066169

066170\* MOVE XXXXXXXXXXXXXXXXXXXXXXXXXXXX 00066170

066171\* TO SCR-IN-ADDITIONAL-FNAM3. 00066171

066172 00066172

066173\* MOVE XXXXXXXXXXXXXXXXXXXXXXXXXXXX 00066173

066174\* TO SCR-IN-ADDITIONAL-MNAM3. 00066174

066175 00066175

066176\* MOVE XXXXXXXXXXXXXXXXXXXXXXXXXXXX 00066176

066177\* TO SCR-IN-ADDITIONAL-LNAM3. 00066177

066178 00066178

066179\* MOVE XXXXXXXXXXXXXXXXXXXXXXXXXXXX 00066179

066180\* TO SCR-IN-ADDITIONAL-FNAM4. 00066180

066181 00066181

066182\* MOVE XXXXXXXXXXXXXXXXXXXXXXXXXXXX 00066182

066183\* TO SCR-IN-ADDITIONAL-MNAM4. 00066183

066184 00066184

066185\* MOVE XXXXXXXXXXXXXXXXXXXXXXXXXXXX 00066185

066186\* TO SCR-IN-ADDITIONAL-LNAM4. 00066186

066187 00066187

066188\* MOVE XXXXXXXXXXXXXXXXXXXXXXXXX 00066188

066189\* TO SCR-IN-NEW-MEMBER-ID. 00066189

066190 00066190

066191\* MOVE XXXXXXXXXXXXXXXXXXXX 00066191

066192\* TO SCR-IN-IRS-1099. 00066192

066201 00066201

066203\* MOVE SPACES 00066203

066204\* TO SCR-IN-LOCATE-SOURCE1. 00066204

066206 00066206

066207\* MOVE SPACES 00066207

066208\* TO SCR-IN-LOCATE-SOURCE2. 00066208

066209 00066209

066210\* MOVE SPACES 00066210

066211\* TO SCR-IN-LOCATE-SOURCE3. 00066211

066212 00066212

066213\* MOVE SPACES 00066213

066214\* TO SCR-IN-LOCATE-SOURCE4. 00066214

066215 00066215

066216\* MOVE SPACES 00066216

066217\* TO SCR-IN-LOCATE-SOURCE5. 00066217

066218 00066218

066219\* MOVE SPACES 00066219

066220\* TO SCR-IN-LOCATE-SOURCE6. 00066220

066221 00066221

066222\* MOVE SPACES 00066222

066223\* TO SCR-IN-LOCATE-SOURCE7. 00066223

066224 00066224

066225\* MOVE SPACES 00066225

066226\* TO SCR-IN-LOCATE-SOURCE8. 00066226

066230 1150-EXIT. EXIT. 00066230

066300 00066300

080400\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00080400

080500\* 1200-EDIT-CASE-RECORD. \* 00080500

080600\* THIS PARAGRAPH PERFORMS THE REQUIRED EDITS TO THE \* 00080600

080700\* INPUT FCR RECORDS AND DETERMINES IF THE RECORD \* 00080700

080800\* SHOULD BE REJECTED OR IF A WARNING MESSAGE SHOULD \* 00080800

080900\* BE ISSUED. \* 00080900

081000\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00081000

081100 00081100

081200 1200-EDIT-CASE-RECORD. 00081200

081300 SET RECORD-PASSED-EDITS TO TRUE. 00081300

081310 SET NOT-WARNING-ONLY TO TRUE. 00081310

081400 PERFORM 1201-EDIT-CASE-ID THRU 1201-EXIT. 00081400

081500 PERFORM 1202-EDIT-CASE-TYPE THRU 1202-EXIT. 00081500

081600 PERFORM 1203-EDIT-ORDER-IND THRU 1203-EXIT. 00081600

082500 1200-EXIT. EXIT. 00082500

082600 00082600

082700 1201-EDIT-CASE-ID. 00082700

082800 IF SCR-CASE-IN-CASE-ID = SPACES 00082800

082900 MOVE ERR-CASE-ID-MISSING 00082900

082910 TO ERR-MSG-LITERAL-CASE 00082910

082920 MOVE SCR-CASE-IN-CASE-ID TO ERR-MSG-CASE 00082920

082930 MOVE PRINT-CASE-ERROR-MESSAGE TO PRINT-ERROR 00082930

083000 PERFORM 1400-WRITE-ERROR-MESSAGES THRU 1400-EXIT 00083000

083600 END-IF. 00083600

083700 1201-EXIT. EXIT. 00083700

083800 00083800

083900 1202-EDIT-CASE-TYPE. 00083900

083910 MOVE SCR-CASE-IN-CASE-TYPE TO EDIT-CASE-TYPE. 00083910

083920 IF VALID-CASE-TYPE 00083920

083930 CONTINUE 00083930

083940 ELSE 00083940

084000 IF SCR-CASE-IN-CASE-TYPE = SPACES 00084000

084001 MOVE ERR-CASE-TYPE-MISSING 00084001

084002 TO ERR-MSG-LITERAL-CASE 00084002

084003 MOVE SCR-CASE-IN-CASE-ID 00084003

084004 TO ERR-MSG-CASE 00084004

084005 MOVE PRINT-CASE-ERROR-MESSAGE 00084005

084006 TO PRINT-ERROR 00084006

084007 PERFORM 1400-WRITE-ERROR-MESSAGES 00084007

084008 THRU 1400-EXIT 00084008

084010 ELSE 00084010

084100 MOVE ERR-INVALID-CASE-TYPE 00084100

084101 TO ERR-MSG-LITERAL-CASE 00084101

084102 MOVE SCR-CASE-IN-CASE-ID 00084102

084103 TO ERR-MSG-CASE 00084103

084104 MOVE PRINT-CASE-ERROR-MESSAGE 00084104

084105 TO PRINT-ERROR 00084105

084110 PERFORM 1400-WRITE-ERROR-MESSAGES 00084110

084120 THRU 1400-EXIT 00084120

084300 END-IF 00084300

084310 END-IF. 00084310

084400 1202-EXIT. EXIT. 00084400

084500 00084500

084600 1203-EDIT-ORDER-IND. 00084600

084700 MOVE SCR-CASE-IN-ORDER-INDICATOR TO EDIT-ORDER-IND. 00084700

084710 IF VALID-ORDER-IND 00084710

084800 CONTINUE 00084800

084801 ELSE 00084801

084802 IF SCR-CASE-IN-ORDER-INDICATOR = SPACES 00084802

084803 MOVE ERR-ORDER-IND-MISSING 00084803

084804 TO ERR-MSG-LITERAL-CASE 00084804

084805 MOVE SCR-CASE-IN-CASE-ID 00084805

084806 TO ERR-MSG-CASE 00084806

084807 MOVE PRINT-CASE-ERROR-MESSAGE 00084807

084808 TO PRINT-ERROR 00084808

084810 PERFORM 1400-WRITE-ERROR-MESSAGES 00084810

084820 THRU 1400-EXIT 00084820

085000 ELSE 00085000

085001 MOVE ERR-ORDER-IND-INVALID 00085001

085002 TO ERR-MSG-LITERAL-CASE 00085002

085003 MOVE SCR-CASE-IN-CASE-ID 00085003

085004 TO ERR-MSG-CASE 00085004

085005 MOVE PRINT-CASE-ERROR-MESSAGE 00085005

085006 TO PRINT-ERROR 00085006

085007 PERFORM 1400-WRITE-ERROR-MESSAGES 00085007

085008 THRU 1400-EXIT 00085008

085010 END-IF 00085010

085020 END-IF. 00085020

085100 1203-EXIT. EXIT. 00085100

085200 00085200

096010 00096010

096020\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00096020

096030\* 1250-EDIT-PARTICIPANT-RECORD. \* 00096030

096040\* THIS PARAGRAPH PERFORMS THE REQUIRED EDITS TO THE \* 00096040

096050\* INPUT FCR RECORDS AND DETERMINES IF THE RECORD \* 00096050

096060\* SHOULD BE REJECTED OR IF A WARNING MESSAGE SHOULD \* 00096060

096070\* BE ISSUED. \* 00096070

096080\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00096080

096090 00096090

096091 1250-EDIT-PARTICIPANT-RECORD. 00096091

096092 SET NOT-WARNING-ONLY TO TRUE. 00096092

096093 SET RECORD-PASSED-EDITS TO TRUE. 00096093

096094 PERFORM 1251-EDIT-SSN THRU 1251-EXIT. 00096094

096095 PERFORM 1252-EDIT-FIRST-NAME THRU 1252-EXIT. 00096095

096096 PERFORM 1253-EDIT-LAST-NAME THRU 1253-EXIT. 00096096

096097 PERFORM 1254-EDIT-BUNDLE-IND THRU 1254-EXIT. 00096097

096098 PERFORM 1255-EDIT-PART-TYPE THRU 1255-EXIT. 00096098

096099 PERFORM 1256-EDIT-FV-IND THRU 1256-EXIT. 00096099

096100 PERFORM 1257-EDIT-SEX-CODE THRU 1257-EXIT. 00096100

096101 PERFORM 1258-EDIT-LOCATE-CD THRU 1258-EXIT. 00096101

096102 PERFORM 1259-EDIT-SSN-IRSU THRU 1259-EXIT. 00096102

096104 1250-EXIT. EXIT. 00096104

096105 00096105

096106 1251-EDIT-SSN. 00096106

096107 IF SCR-IN-SSN = SPACES 00096107

096108 MOVE ERR-PARTICIPANT-SSN-1 00096108

096109 TO ERR-MSG-LITERAL-PART 00096109

096110 MOVE SCR-IN-MEMBER-ID 00096110

096111 TO ERR-MSG-PART 00096111

096112 MOVE PRINT-PART-ERROR-MESSAGE 00096112

096113 TO PRINT-ERROR 00096113

096114 PERFORM 1400-WRITE-ERROR-MESSAGES THRU 1400-EXIT 00096114

096115 ELSE 00096115

096116 IF SCR-IN-SSN NOT NUMERIC 00096116

096117 MOVE ERR-PARTICIPANT-SSN-2 00096117

096118 TO ERR-MSG-LITERAL-PART 00096118

096119 MOVE SCR-IN-MEMBER-ID 00096119

096120 TO ERR-MSG-PART 00096120

096121 MOVE PRINT-PART-ERROR-MESSAGE 00096121

096122 TO PRINT-ERROR 00096122

096123 PERFORM 1400-WRITE-ERROR-MESSAGES 00096123

096124 THRU 1400-EXIT 00096124

096125 END-IF 00096125

096126 END-IF. 00096126

096127 1251-EXIT. EXIT. 00096127

096128 00096128

096129 1252-EDIT-FIRST-NAME. 00096129

096130 IF SCR-IN-FIRST-NAME = SPACES 00096130

096131 SET WARNING-ONLY TO TRUE 00096131

096132 MOVE ERR-PARTICIPANT-FNAME 00096132

096133 TO ERR-MSG-LITERAL-PART 00096133

096134 MOVE SCR-IN-MEMBER-ID 00096134

096135 TO ERR-MSG-PART 00096135

096136 MOVE PRINT-PART-ERROR-MESSAGE 00096136

096137 TO PRINT-ERROR 00096137

096138 PERFORM 1400-WRITE-ERROR-MESSAGES THRU 1400-EXIT 00096138

096139 END-IF. 00096139

096140 1252-EXIT. EXIT. 00096140

096141 00096141

096142 1253-EDIT-LAST-NAME. 00096142

096143 IF SCR-IN-LAST-NAME = SPACES 00096143

096144 SET WARNING-ONLY TO TRUE 00096144

096145 MOVE ERR-PARTICIPANT-LNAME 00096145

096146 TO ERR-MSG-LITERAL-PART 00096146

096147 MOVE SCR-IN-MEMBER-ID TO ERR-MSG-PART 00096147

096149 MOVE PRINT-PART-ERROR-MESSAGE TO PRINT-ERROR 00096149

096151 PERFORM 1400-WRITE-ERROR-MESSAGES THRU 1400-EXIT 00096151

096152 END-IF. 00096152

096153 1253-EXIT. EXIT. 00096153

096154 00096154

096155 1254-EDIT-BUNDLE-IND. 00096155

096160 MOVE SCR-IN-BUNDLE-RESULTS TO EDIT-BUNDLE-IND. 00096160

096170 IF VALID-BUNDLE-IND 00096170

096180 CONTINUE 00096180

096200 ELSE 00096200

096210 SET WARNING-ONLY TO TRUE 00096210

096300 MOVE ERR-BUNDLE-IND-INVALID TO ERR-MSG-LITERAL-PART 00096300

096310 MOVE SCR-IN-MEMBER-ID TO ERR-MSG-PART 00096310

096320 MOVE PRINT-PART-ERROR-MESSAGE TO PRINT-ERROR 00096320

096600 PERFORM 1400-WRITE-ERROR-MESSAGES 00096600

096700 THRU 1400-EXIT 00096700

096900 END-IF. 00096900

097000 1254-EXIT. EXIT. 00097000

097100 00097100

097200 1255-EDIT-PART-TYPE. 00097200

097210 MOVE SCR-IN-PARTICIPANT-TYPE TO EDIT-PARTICIPANT-TYPE. 00097210

097220 IF VALID-PARTICIPANT-TYPE 00097220

097230 CONTINUE 00097230

097240 ELSE 00097240

097250 MOVE ERR-PART-TYPE-INVALID TO ERR-MSG-LITERAL-PART 00097250

097251 MOVE SCR-IN-MEMBER-ID TO ERR-MSG-PART 00097251

097252 MOVE PRINT-PART-ERROR-MESSAGE TO PRINT-ERROR 00097252

097260 PERFORM 1400-WRITE-ERROR-MESSAGES 00097260

097270 THRU 1400-EXIT 00097270

097280 END-IF. 00097280

097800 1255-EXIT. EXIT. 00097800

097900 00097900

098000 1256-EDIT-FV-IND. 00098000

098100 MOVE SCR-IN-FAMILY-VIOLENCE TO EDIT-FAMILY-VIOLENCE. 00098100

098200 IF VALID-FAMILY-VIOLENCE-IND 00098200

098300 CONTINUE 00098300

098400 ELSE 00098400

098401 SET WARNING-ONLY TO TRUE 00098401

098410 MOVE SCR-IN-FAMILY-VIOLENCE TO ERR-CODE-VALUE 00098410

098500 MOVE ERR-FV-IND-INVALID TO ERR-MSG-LITERAL-PART 00098500

098501 MOVE SCR-IN-MEMBER-ID TO ERR-MSG-PART 00098501

098502 MOVE PRINT-PART-ERROR-MESSAGE TO PRINT-ERROR 00098502

098510 PERFORM 1400-WRITE-ERROR-MESSAGES 00098510

098520 THRU 1400-EXIT 00098520

098530 END-IF. 00098530

098600 1256-EXIT. EXIT. 00098600

098700 00098700

098800 1257-EDIT-SEX-CODE. 00098800

098810 MOVE SCR-IN-SEX-CODE TO EDIT-SEX-CODE. 00098810

098820 IF VALID-SEX-CODE 00098820

098830 CONTINUE 00098830

098840 ELSE 00098840

098841 SET WARNING-ONLY TO TRUE 00098841

098842 MOVE SCR-IN-SEX-CODE TO ERR-CODE-VALUE 00098842

098850 MOVE ERR-SEX-CODE-INVALID TO ERR-MSG-LITERAL-PART 00098850

098851 MOVE SCR-IN-MEMBER-ID TO ERR-MSG-PART 00098851

098852 MOVE PRINT-PART-ERROR-MESSAGE TO PRINT-ERROR 00098852

098860 PERFORM 1400-WRITE-ERROR-MESSAGES 00098860

098870 THRU 1400-EXIT 00098870

098880 END-IF. 00098880

098900 1257-EXIT. EXIT. 00098900

099000 00099000

099100 1258-EDIT-LOCATE-CD. 00099100

099110 MOVE SCR-IN-LOCATE-SOURCE1 TO EDIT-LOCATE-CODE. 00099110

099120 IF VALID-LOCATE-CODE 00099120

099130 CONTINUE 00099130

099140 ELSE 00099140

099141 SET WARNING-ONLY TO TRUE 00099141

099150 MOVE SCR-IN-LOCATE-SOURCE1 TO ERR-CODE-VALUE 00099150

099160 MOVE ERR-LOCATE-CD-INVALID TO ERR-MSG-LITERAL-PART 00099160

099161 MOVE SCR-IN-MEMBER-ID TO ERR-MSG-PART 00099161

099162 MOVE PRINT-PART-ERROR-MESSAGE TO PRINT-ERROR 00099162

099170 PERFORM 1400-WRITE-ERROR-MESSAGES 00099170

099180 THRU 1400-EXIT 00099180

099190 END-IF. 00099190

099191 00099191

099192 MOVE SCR-IN-LOCATE-SOURCE2 TO EDIT-LOCATE-CODE. 00099192

099193 IF VALID-LOCATE-CODE 00099193

099194 CONTINUE 00099194

099195 ELSE 00099195

099196 SET WARNING-ONLY TO TRUE 00099196

099197 MOVE SCR-IN-LOCATE-SOURCE2 TO ERR-CODE-VALUE 00099197

099198 MOVE ERR-LOCATE-CD-INVALID TO ERR-MSG-LITERAL-PART 00099198

099199 MOVE PRINT-PART-ERROR-MESSAGE TO PRINT-ERROR 00099199

099200 PERFORM 1400-WRITE-ERROR-MESSAGES 00099200

099201 THRU 1400-EXIT 00099201

099202 END-IF. 00099202

099203 00099203

099204 MOVE SCR-IN-LOCATE-SOURCE3 TO EDIT-LOCATE-CODE. 00099204

099205 IF VALID-LOCATE-CODE 00099205

099206 CONTINUE 00099206

099207 ELSE 00099207

099208 SET WARNING-ONLY TO TRUE 00099208

099209 MOVE SCR-IN-LOCATE-SOURCE3 TO ERR-CODE-VALUE 00099209

099210 MOVE ERR-LOCATE-CD-INVALID TO ERR-MSG-LITERAL-PART 00099210

099211 MOVE PRINT-PART-ERROR-MESSAGE TO PRINT-ERROR 00099211

099212 PERFORM 1400-WRITE-ERROR-MESSAGES 00099212

099213 THRU 1400-EXIT 00099213

099214 END-IF. 00099214

099215 00099215

099216 MOVE SCR-IN-LOCATE-SOURCE4 TO EDIT-LOCATE-CODE. 00099216

099217 IF VALID-LOCATE-CODE 00099217

099218 CONTINUE 00099218

099219 ELSE 00099219

099220 SET WARNING-ONLY TO TRUE 00099220

099221 MOVE SCR-IN-LOCATE-SOURCE4 TO ERR-CODE-VALUE 00099221

099222 MOVE ERR-LOCATE-CD-INVALID TO ERR-MSG-LITERAL-PART 00099222

099223 MOVE PRINT-PART-ERROR-MESSAGE TO PRINT-ERROR 00099223

099224 PERFORM 1400-WRITE-ERROR-MESSAGES 00099224

099225 THRU 1400-EXIT 00099225

099226 END-IF. 00099226

099227 00099227

099228 MOVE SCR-IN-LOCATE-SOURCE5 TO EDIT-LOCATE-CODE. 00099228

099229 IF VALID-LOCATE-CODE 00099229

099230 CONTINUE 00099230

099231 ELSE 00099231

099232 SET WARNING-ONLY TO TRUE 00099232

099233 MOVE SCR-IN-LOCATE-SOURCE5 TO ERR-CODE-VALUE 00099233

099234 MOVE ERR-LOCATE-CD-INVALID TO ERR-MSG-LITERAL-PART 00099234

099235 MOVE PRINT-PART-ERROR-MESSAGE TO PRINT-ERROR 00099235

099237 PERFORM 1400-WRITE-ERROR-MESSAGES 00099237

099238 THRU 1400-EXIT 00099238

099239 END-IF. 00099239

099240 00099240

099241 MOVE SCR-IN-LOCATE-SOURCE6 TO EDIT-LOCATE-CODE. 00099241

099242 IF VALID-LOCATE-CODE 00099242

099243 CONTINUE 00099243

099244 ELSE 00099244

099245 SET WARNING-ONLY TO TRUE 00099245

099246 MOVE SCR-IN-LOCATE-SOURCE6 TO ERR-CODE-VALUE 00099246

099247 MOVE ERR-LOCATE-CD-INVALID TO ERR-MSG-LITERAL-PART 00099247

099248 MOVE PRINT-PART-ERROR-MESSAGE TO PRINT-ERROR 00099248

099250 PERFORM 1400-WRITE-ERROR-MESSAGES 00099250

099251 THRU 1400-EXIT 00099251

099252 END-IF. 00099252

099253 00099253

099254 MOVE SCR-IN-LOCATE-SOURCE7 TO EDIT-LOCATE-CODE. 00099254

099255 IF VALID-LOCATE-CODE 00099255

099256 CONTINUE 00099256

099257 ELSE 00099257

099258 SET WARNING-ONLY TO TRUE 00099258

099259 MOVE SCR-IN-LOCATE-SOURCE7 TO ERR-CODE-VALUE 00099259

099260 MOVE ERR-LOCATE-CD-INVALID TO ERR-MSG-LITERAL-PART 00099260

099261 MOVE PRINT-PART-ERROR-MESSAGE TO PRINT-ERROR 00099261

099263 PERFORM 1400-WRITE-ERROR-MESSAGES 00099263

099264 THRU 1400-EXIT 00099264

099265 END-IF. 00099265

099266 00099266

099267 MOVE SCR-IN-LOCATE-SOURCE8 TO EDIT-LOCATE-CODE. 00099267

099268 IF VALID-LOCATE-CODE 00099268

099269 CONTINUE 00099269

099270 ELSE 00099270

099271 SET WARNING-ONLY TO TRUE 00099271

099273 PERFORM 1400-WRITE-ERROR-MESSAGES 00099273

099274 THRU 1400-EXIT 00099274

099275 MOVE SCR-IN-LOCATE-SOURCE7 TO ERR-CODE-VALUE 00099275

099276 MOVE ERR-LOCATE-CD-INVALID TO ERR-MSG-LITERAL-PART 00099276

099277 MOVE PRINT-PART-ERROR-MESSAGE TO PRINT-ERROR 00099277

099278 END-IF. 00099278

099279 00099279

099280 1258-EXIT. EXIT. 00099280

099281 00099281

099290 1259-EDIT-SSN-IRSU. 00099290

099291 IF (SCR-IN-SSN = SPACES OR ZEROES) AND 00099291

099292 (SCR-IN-DATE-OF-BIRTH = SPACES OR ZEROES) AND 00099292

099293 (SCR-IN-IRS-U-SSN = SPACES OR ZEROES) 00099293

099296 SET WARNING-ONLY TO TRUE 00099296

099297 MOVE SCR-IN-LOCATE-SOURCE4 TO ERR-CODE-VALUE 00099297

099298 MOVE ERR-PARTICIPANT-SSN-2 TO ERR-MSG-LITERAL-PART 00099298

099299 MOVE PRINT-PART-ERROR-MESSAGE TO PRINT-ERROR 00099299

099300 PERFORM 1400-WRITE-ERROR-MESSAGES 00099300

099301 THRU 1400-EXIT 00099301

099302 END-IF. 00099302

099310 1259-EXIT. EXIT. 00099310

099400 00099400

099500\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00099500

099600\* 1300-MOVE-AND-WRITE-RECORD. \* 00099600

099700\* THIS PARAGRAPH MOVES THE DATA ELEMENTS FROM THE \* 00099700

099800\* WORKING STORAGE STAGING AREA INTO THE OUTPUT RECORD\* 00099800

099900\* FORMAT AND WRITES THE OUTPUT RECORD TO BE PICKED UP\* 00099900

100000\* BY CONNECT:DIRECT AND TRANSMITTED TO SSA. \* 00100000

100100\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00100100

100200 00100200

100300 1300-WRITE-CASE-RECORD. 00100300

100400\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00100400

100500\* NOTE: IF YOU USE A SWITCH TO INDICATE THAT A RECORD\* 00100500

100600\* IS TO BE SENT TO THE NATIONAL DIRECTORY, THAT\* 00100600

100700\* SWITCH SHOULD BE SET IN THIS PARAGRAPH. \* 00100700

100800\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00100800

100990 00100990

101000 MOVE SPACES TO WS-FCR-OUTPUT-CASE-RECORD. 00101000

101100 00101100

101200 MOVE WS-FCR-CASE-TRANS 00101200

101210 TO FCR-CASE-OUT-RECORD-ID. 00101210

101220 00101220

101400 MOVE WS-ADD-ACTN-TYPE-CD 00101400

101410 TO FCR-CASE-OUT-ACTION-TYPE-CODE. 00101410

101420 00101420

101600 MOVE SCR-CASE-IN-CASE-ID 00101600

101610 TO FCR-CASE-OUT-CASE-ID. 00101610

101620 00101620

101800 MOVE SCR-CASE-IN-CASE-TYPE 00101800

101810 TO FCR-CASE-OUT-CASE-TYPE. 00101810

101820 00101820

102000 MOVE SCR-CASE-IN-ORDER-INDICATOR 00102000

102010 TO FCR-CASE-OUT-ORDER-INDICATOR. 00102010

102020 00102020

102200 MOVE SCR-CASE-IN-FIPS-COUNTY-CODE 00102200

102210 TO FCR-CASE-OUT-FIPS-COUNTY-CODE. 00102210

102220 00102220

102400 MOVE SCR-CASE-IN-USER-FIELD 00102400

102410 TO FCR-CASE-OUT-USER-FIELD. 00102410

102420 00102420

102600 MOVE SCR-CASE-IN-PREVIOUS-CASE-ID 00102600

102700 TO FCR-CASE-OUT-PREVIOUS-CASE-ID. 00102700

102800 00102800

107000 MOVE WS-FCR-OUTPUT-CASE-RECORD TO FCR-OUTPUT-RECORD. 00107000

107100 WRITE FCR-OUTPUT-RECORD. 00107100

107110 PERFORM 1500-CREATE-CASE-AUDIT THRU 1500-EXIT. 00107110

107200 ADD 1 TO WS-RECORD-COUNT. 00107200

107300 1300-EXIT. EXIT. 00107300

107310 00107310

107400 1350-WRITE-PARTICIPANT-RECORD. 00107400

107500\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00107500

107600\* NOTE: IF YOU USE A SWITCH TO INDICATE THAT A RECORD\* 00107600

107700\* IS TO BE SENT TO THE NATIONAL DIRECTORY, THAT\* 00107700

107800\* SWITCH SHOULD BE SET IN THIS PARAGRAPH. \* 00107800

107900\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00107900

108000 MOVE SPACES TO WS-FCR-OUTPUT-PART-RECORD 00108000

108010 00108010

108200 MOVE WS-FCR-PERSON-TRANS 00108200

108210 TO FCR-OUT-RECORD-ID. 00108210

108220 00108220

108400 MOVE WS-ADD-ACTN-TYPE-CD 00108400

108410 TO FCR-OUT-ACTION-TYPE-CODE. 00108410

108420 00108420

108600 MOVE SCR-IN-CASE-ID 00108600

108610 TO FCR-OUT-CASE-ID. 00108610

108620 00108620

108800 MOVE SCR-IN-USER-FIELD 00108800

108810 TO FCR-OUT-USER-FIELD. 00108810

108820 00108820

109000 MOVE SCR-IN-FIPS-COUNTY-CODE 00109000

109010 TO FCR-OUT-FIPS-COUNTY-CODE. 00109010

109020 00109020

109200 MOVE SCR-IN-LOCATE-REQ-TYPE 00109200

109210 TO FCR-OUT-LOCATE-REQ-TYPE. 00109210

109220 00109220

109400 MOVE SCR-IN-BUNDLE-RESULTS 00109400

109410 TO FCR-OUT-BUNDLE-RESULTS. 00109410

109420 00109420

109600 MOVE SCR-IN-PARTICIPANT-TYPE 00109600

109610 TO FCR-OUT-PARTICIPANT-TYPE. 00109610

109620 00109620

109800 MOVE SCR-IN-FAMILY-VIOLENCE 00109800

109810 TO FCR-OUT-FAMILY-VIOLENCE. 00109810

109820 00109820

110000 MOVE SCR-IN-MEMBER-ID 00110000

110010 TO FCR-OUT-MEMBER-ID. 00110010

110020 00110020

110200 MOVE SCR-IN-SEX-CODE 00110200

110210 TO FCR-OUT-SEX-CODE. 00110210

110220 00110220

110400 MOVE SCR-IN-DATE-OF-BIRTH 00110400

110410 TO FCR-OUT-DATE-OF-BIRTH. 00110410

110420 00110420

110600 MOVE SCR-IN-SSN 00110600

110610 TO FCR-OUT-SSN. 00110610

110620 00110620

110800 MOVE SCR-IN-PREVIOUS-SSN 00110800

110810 TO FCR-OUT-PREVIOUS-SSN. 00110810

110820 00110820

111000 MOVE SCR-IN-FIRST-NAME 00111000

111010 TO FCR-OUT-FIRST-NAME. 00111010

111020 00111020

111200 MOVE SCR-IN-MIDDLE-NAME 00111200

111210 TO FCR-OUT-MIDDLE-NAME. 00111210

111220 00111220

111400 MOVE SCR-IN-LAST-NAME 00111400

111410 TO FCR-OUT-LAST-NAME. 00111410

111420 00111420

111600 MOVE SCR-IN-CITY-OF-BIRTH 00111600

111610 TO FCR-OUT-CITY-OF-BIRTH. 00111610

111620 00111620

111800 MOVE SCR-IN-STATE-CNTY-BIRTH 00111800

111810 TO FCR-OUT-STATE-CNTY-BIRTH. 00111810

111820 00111820

112000 MOVE SCR-IN-FATHERS-FIRST-NAME 00112000

112010 TO FCR-OUT-FATHERS-FIRST-NAME. 00112010

112020 00112020

112200 MOVE SCR-IN-FATHERS-MID-NAME 00112200

112210 TO FCR-OUT-FATHERS-MID-NAME. 00112210

112220 00112220

112400 MOVE SCR-IN-FATHERS-LAST-NAME 00112400

112410 TO FCR-OUT-FATHERS-LAST-NAME. 00112410

112420 00112420

112600 MOVE SCR-IN-MOTHERS-FIRST-NAME 00112600

112610 TO FCR-OUT-MOTHERS-FIRST-NAME. 00112610

112620 00112620

112800 MOVE SCR-IN-MOTHERS-MID-NAME 00112800

112810 TO FCR-OUT-MOTHERS-MID-NAME. 00112810

112820 00112820

113000 MOVE SCR-IN-MOTHERS-LAST-NAME 00113000

113010 TO FCR-OUT-MOTHERS-LAST-NAME. 00113010

113020 00113020

113200 MOVE SCR-IN-IRS-U-SSN 00113200

113210 TO FCR-OUT-IRS-U-SSN. 00113210

113220 00113220

113400 MOVE SCR-IN-ADDITIONAL-SSN1 00113400

113410 TO FCR-OUT-ADDITIONAL-SSN1. 00113410

113420 00113420

113600 MOVE SCR-IN-ADDITIONAL-SSN2 00113600

113610 TO FCR-OUT-ADDITIONAL-SSN2. 00113610

113620 00113620

113800 MOVE SCR-IN-ADDITIONAL-FNAM1 00113800

113810 TO FCR-OUT-ADDITIONAL-FNAM1. 00113810

113820 00113820

114000 MOVE SCR-IN-ADDITIONAL-MNAM1 00114000

114010 TO FCR-OUT-ADDITIONAL-MNAM1. 00114010

114020 00114020

114200 MOVE SCR-IN-ADDITIONAL-LNAM1 00114200

114210 TO FCR-OUT-ADDITIONAL-LNAM1. 00114210

114220 00114220

114400 MOVE SCR-IN-ADDITIONAL-FNAM2 00114400

114410 TO FCR-OUT-ADDITIONAL-FNAM2. 00114410

114420 00114420

114600 MOVE SCR-IN-ADDITIONAL-MNAM2 00114600

114610 TO FCR-OUT-ADDITIONAL-MNAM2. 00114610

114620 00114620

114800 MOVE SCR-IN-ADDITIONAL-LNAM2 00114800

114810 TO FCR-OUT-ADDITIONAL-LNAM2. 00114810

114820 00114820

115000 MOVE SCR-IN-ADDITIONAL-FNAM3 00115000

115010 TO FCR-OUT-ADDITIONAL-FNAM3. 00115010

115020 00115020

115200 MOVE SCR-IN-ADDITIONAL-MNAM3 00115200

115210 TO FCR-OUT-ADDITIONAL-MNAM3. 00115210

115220 00115220

115400 MOVE SCR-IN-ADDITIONAL-LNAM3 00115400

115410 TO FCR-OUT-ADDITIONAL-LNAM3. 00115410

115420 00115420

115600 MOVE SCR-IN-ADDITIONAL-FNAM4 00115600

115610 TO FCR-OUT-ADDITIONAL-FNAM4. 00115610

115620 00115620

115800 MOVE SCR-IN-ADDITIONAL-MNAM4 00115800

115810 TO FCR-OUT-ADDITIONAL-MNAM4. 00115810

115820 00115820

116000 MOVE SCR-IN-ADDITIONAL-LNAM4 00116000

116010 TO FCR-OUT-ADDITIONAL-LNAM4. 00116010

116020 00116020

116200 MOVE SCR-IN-NEW-MEMBER-ID 00116200

116210 TO FCR-OUT-NEW-MEMBER-ID. 00116210

116220 00116220

116400 MOVE SCR-IN-IRS-1099 00116400

116410 TO FCR-OUT-IRS-1099. 00116410

116420 00116420

116600 MOVE SCR-IN-LOCATE-SOURCE1 00116600

116610 TO FCR-OUT-LOCATE-SOURCE1. 00116610

116620 00116620

116800 MOVE SCR-IN-LOCATE-SOURCE2 00116800

116810 TO FCR-OUT-LOCATE-SOURCE2. 00116810

116820 00116820

117000 MOVE SCR-IN-LOCATE-SOURCE3 00117000

117010 TO FCR-OUT-LOCATE-SOURCE3. 00117010

117020 00117020

117200 MOVE SCR-IN-LOCATE-SOURCE4 00117200

117210 TO FCR-OUT-LOCATE-SOURCE4. 00117210

117220 00117220

117400 MOVE SCR-IN-LOCATE-SOURCE5 00117400

117410 TO FCR-OUT-LOCATE-SOURCE5. 00117410

117420 00117420

117600 MOVE SCR-IN-LOCATE-SOURCE6 00117600

117610 TO FCR-OUT-LOCATE-SOURCE6. 00117610

117620 00117620

117800 MOVE SCR-IN-LOCATE-SOURCE7 00117800

117810 TO FCR-OUT-LOCATE-SOURCE7. 00117810

117820 00117820

118000 MOVE SCR-IN-LOCATE-SOURCE8 00118000

118010 TO FCR-OUT-LOCATE-SOURCE8. 00118010

118100 00118100

120700 00120700

120800 MOVE WS-FCR-OUTPUT-PART-RECORD TO FCR-OUTPUT-RECORD. 00120800

120900 WRITE FCR-OUTPUT-RECORD. 00120900

120910 PERFORM 1600-CREATE-PARTICIPANT-AUDIT THRU 1600-EXIT. 00120910

121000 ADD 1 TO WS-RECORD-COUNT. 00121000

121100 1350-EXIT. EXIT. 00121100

121200 00121200

121220\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00121220

121230\* 1400-WRITE-ERROR-MESSAGE. \* 00121230

121240\* THIS PARAGRAPH WRITES THE ERROR MESSAGES TO A REPORT \*
00121240

121250\* AND SETS AN ERROR SWITCH IF IT IS A SEVERE ERROR TO \* 00121250

121260\* STOP THE RECORD FROM BEING WRITTEN TO THE \* 00121260

121270\* TRANSMISSION FILE. \* 00121270

121280\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00121280

121290 00121290

121300 1400-WRITE-ERROR-MESSAGES. 00121300

121400 ADD 1 TO ERROR-LINE-COUNT. 00121400

121500 IF ERROR-LINE-COUNT \> 55 00121500

121600 ADD 1 TO ERROR-PAGE-COUNT 00121600

121700 MOVE ERROR-PAGE-COUNT TO ERROR-REPORT-PAGE 00121700

121800 MOVE ERROR-REPORT-HEADER TO PRINT-REC 00121800

121900 WRITE PRINT-REC AFTER ADVANCING TOP-OF-PAGE 00121900

122000 MOVE SPACES TO PRINT-REC 00122000

122100 MOVE 1 TO ERROR-LINE-COUNT 00122100

122200 WRITE PRINT-REC AFTER ADVANCING 2 00122200

122300 END-IF. 00122300

122400 IF WARNING-ONLY 00122400

122500 SET NOT-WARNING-ONLY TO TRUE 00122500

122600 ELSE 00122600

122700 SET RECORD-DIDNT-PASS-EDITS TO TRUE 00122700

122800 END-IF. 00122800

122900 MOVE SPACES TO ERR-MSG-CASE. 00122900

123000 MOVE SPACES TO ERR-MSG-PART. 00123000

123100 MOVE SPACES TO ERR-CODE-VALUE. 00123100

123200 MOVE SPACES TO ERR-MSG-LITERAL-PART. 00123200

123300 MOVE SPACES TO ERR-MSG-LITERAL-CASE. 00123300

123400 MOVE PRINT-ERROR TO PRINT-REC. 00123400

123500 WRITE PRINT-REC AFTER ADVANCING 1. 00123500

123600 1400-EXIT. EXIT. 00123600

123700 00123700

123800 1500-CREATE-CASE-AUDIT. 00123800

123900 MOVE SPACES TO WS-FCR-AUDIT-RECORD. 00123900

124000 MOVE FCR-CASE-OUT-RECORD-ID TO FCR-AUDIT-TRANS-TYPE. 00124000

124010 MOVE FCR-CASE-OUT-ACTION-TYPE-CODE 00124010

124020 TO FCR-AUDIT-TRANS-ACTION-CD. 00124020

124100 MOVE WS-BATCH-NUMBER TO FCR-AUDIT-BATCH-NUMBER. 00124100

124200 MOVE FCR-CASE-OUT-CASE-ID TO FCR-AUDIT-TRANS-KEY-1. 00124200

124300 MOVE FORMAT-DATE2 00124300

124310 TO FCR-AUDIT-DATE-TRANSMITTED. 00124310

124400 MOVE WS-FCR-AUDIT-RECORD TO FCR-AUDIT-RECORD. 00124400

124500 WRITE FCR-AUDIT-RECORD. 00124500

124510 IF AUDIT-FILE-STATUS \> \"00\" 00124510

124520 DISPLAY \" AUDIT REC: \" WS-FCR-AUDIT-RECORD 00124520

124530 \" RETURN CODE: \" AUDIT-FILE-STATUS. 00124530

124600 1500-EXIT. EXIT. 00124600

124700 00124700

124800 1600-CREATE-PARTICIPANT-AUDIT. 00124800

124810 MOVE SPACES TO WS-FCR-AUDIT-RECORD. 00124810

124820 MOVE FCR-OUT-RECORD-ID TO FCR-AUDIT-TRANS-TYPE. 00124820

124821 MOVE FCR-OUT-ACTION-TYPE-CODE 00124821

124822 TO FCR-AUDIT-TRANS-ACTION-CD. 00124822

124830 MOVE WS-BATCH-NUMBER TO FCR-AUDIT-BATCH-NUMBER. 00124830

124840 MOVE FCR-OUT-CASE-ID TO FCR-AUDIT-TRANS-KEY-1. 00124840

124841 MOVE FCR-OUT-MEMBER-ID TO FCR-AUDIT-TRANS-KEY-2. 00124841

124850 MOVE FORMAT-DATE2 TO FCR-AUDIT-DATE-TRANSMITTED. 00124850

124860 MOVE WS-FCR-AUDIT-RECORD TO FCR-AUDIT-RECORD. 00124860

124870 WRITE FCR-AUDIT-RECORD. 00124870

124871 IF AUDIT-FILE-STATUS \> \"00\" 00124871

124880 DISPLAY \" AUDIT REC: \" WS-FCR-AUDIT-RECORD 00124880

124890 \" RETURN CODE: \" AUDIT-FILE-STATUS. 00124890

124900 1600-EXIT. EXIT. 00124900