# Appendix E: Skeleton Code Listing for Automated Response File Processing

000100 IDENTIFICATION DIVISION. 00000100

000200 PROGRAM-ID. RESPAUTO. 00000200

000300 AUTHOR. KEN NESBIT - TRW. 00000300

000400 DATE-WRITTEN. JULY 20, 1998. 00000400

000500 DATE-COMPILED. 00000500

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

000700\*\*\*\*\* SKELETON PROGRAM TO PROCESS RESPONSE DATA FCR TO SCR.
\*\*\*\*00000700

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

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

001000\* THE PURPOSE OF THIS PROGRAM IS TO PROCESS THE RESPONSE DATA
\*00001000

001100\* RETURNED TO THE STATES FROM THE FEDERAL CASE REGISTRY. THIS
\*00001100

001200\* SKELETON PROGRAM IS SET UP TO PARSE OUT ALL OF THE RESPONSES
\*00001200

001300\* FROM THE FCR AND ALLOW FOR CODE TO INCORPORATE THE DATA INTO
\*00001300

001400\* THE STATE CASE REGISTRY. \*00001400

001500\* \*00001500

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

001700\* RESPONSE FILE, UPDATE THE AUDIT FILE, INSERT NEW INFORMATION
\*00001700

001800\* INTO THE SCR AND GENERATE THE CSENET TRIGGER TRANSACTIONS
\*00001800

001900\* WHERE NECESSARY. \*00001900

002000\* \*00002000

002100\* THERE ARE SEVERAL PLACES IN THIS PROGRAM WHERE CODE WILL NEED
\*00002100

002200\* TO BE CHANGED OR INSERTED FOR YOUR PARTICULAR APPLICATION.
\*00002200

002300\* THE AREAS THAT NEED ATTENTION WILL BE MARKED WITH COMMENTS
\*00002300

002400\* ABOUT WHAT CHANGES/ADDITIONS NEED TO BE MADE. \*00002400

002500\* \*00002500

003600\* \*00003600

003700\* IN ADDITION TO THE CHANGES REQUIRED FOR THIS PROGRAM ALL
\*00003700

003800\* DATABASE SEGMENTS THAT WILL BE UPDATED WILL NEED TO BE ADDED
\*00003800

003810\* TO THE FILE SECTION AND RECORD LAYOUTS. \*00003810

003900\* \*00003900

004000\* FILES: - FCR-RESPONSE-FILE- THIS IS THE FILE THAT WILL BE
\*00004000

004100\* RETURNED TO THE STATES FROM THE \*00004100

004200\* FCR. \*00004200

004300\* NOTE: THE 1099-RESPONSE-FILE WILL \*00004300

004400\* BE SENT AS A SEPARATE FILE \*00004400

004500\* AND SHOULD BE CONCATENATED \*00004500

004600\* TO THE FCR-RESPONSE-FILE DD \*00004600

004700\* STATEMENT IN THE JCL. \*00004700

004800\* \*00004800

004900\* - CSE DATABASE - THE CHILD SUPPORT ENFORCEMENT \*00004900

005000\* DATABASE WILL NEED TO BE INPUT TO \*00005000

005100\* THIS PROGRAM ALSO. THERE ARE NO \*00005100

005200\* SELECT OR FILE DESCRIPTION AREAS \*00005200

005300\* FOR THIS SINCE THERE MAY BE \*00005300

005400\* SUBROUTINES SET UP FOR THE DATABASE\*00005400

005500\* I/O OR THE DATABASE I/O CAN BE \*00005500

005600\* CODED DIRECTLY INTO THIS PROGRAM. \*00005600

005700\* \*00005700

005800\* - FCR-AUDIT-FILE - THIS IS THE AUDIT FILE. THIS FILE \*00005800

005900\* SHOULD BE A VSAM DATASET AND NEEDS \*00005900

006000\* TO BE UPDATED WITH THE RESPONSE \*00006000

006100\* DATE (SYSTEM DATE) AND THE RESPONSE\*00006100

006200\* DISPOSITION RETURNED FROM THE FCR. \*00006200

006300\* \*00006300

006400\* - PRINTER - THE PRINTER IS WHERE ALL COUNTS \*00006400

006500\* AND EXCEPTIONS ARE PRINTED. \*00006500

006600\* \*00006600

006700\* - CSENET-FILE - THE CSENET DATA FILE IS WHERE ALL \*00006700

006800\* CSENET TRANSACTIONS WILL BE WRITTEN\*00006800

006900\* TO BE TRANSMITTED TO THE WORK \*00006900

007000\* STATION. \*00007000

007100\* \*00007100

007200\* - HEADER-ERROR-FILE- THE HEADER-ERROR-FILE IS WHERE ALL
\*00007200

007300\* HEADER/TRANSMISSION ERRORS AND \*00007300

007400\* EXCEPTIONS WILL BE PRINTED. \*00007400

007500\* \*00007500

007600\* - CASE-ERROR-FILE - THE CASE-ERROR-FILE IS WHERE ALL \*00007600

007700\* CASE ERRORS AND EXCEPTIONS WILL BE \*00007700

007800\* PRINTED. \*00007800

007900\* \*00007900

008000\* - PART-ERROR-FILE - THE PART-ERROR-FILE IS WHERE ALL \*00008000

008100\* PERSON OR PARTICIPANT ERRORS WILL \*00008100

008200\* BE PRINTED. \*00008200

008300\* \*00008300

008400\* - QUERY-ERROR-FILE - THE QUERY-ERROR-FILE IS WHERE ALL
\*00008400

008500\* QUERY ERRORS WILL BE PRINTED. \*00008500

008600\* \*00008600

008700\* \*00008700

008800\* \*00008800

008900\* \*00008900

009000\* \*00009000

009100\* \*00009100

009200\* \*00009200

009300\* \*00009300

009400\* IF YOU HAVE ANY PROBLEMS OR QUESTIONS ABOUT MODIFYING THIS
CODE\*00009400

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

009600\* KENNY.NESBIT@TRW.COM \*00009600

009700\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*00009700

009800 ENVIRONMENT DIVISION. 00009800

009900 CONFIGURATION SECTION. 00009900

010000 SOURCE-COMPUTER. IBM. 00010000

010100 OBJECT-COMPUTER. IBM. 00010100

010200 SPECIAL-NAMES. 00010200

010300 C01 IS TOP-OF-PAGE. 00010300

010400 00010400

010500 INPUT-OUTPUT SECTION. 00010500

010600 FILE-CONTROL. 00010600

010700 SELECT FCR-RESPONSE-FILE ASSIGN TO UT-S-FCRRESP. 00010700

010800 SELECT FCR-AUDIT-FILE ASSIGN TO FCRAUDIT 00010800

010900 ORGANIZATION IS INDEXED 00010900

011000 RECORD KEY IS AUDIT-KEY 00011000

011100 ACCESS IS RANDOM 00011100

011200 FILE STATUS IS AUDIT-FILE-STATUS. 00011200

011300 SELECT CSENET-FILE ASSIGN TO UT-S-CSENET. 00011300

011400 SELECT PRINTER ASSIGN TO UT-S-PRINTER. 00011400

011500 SELECT HEADER-ERROR-FILE ASSIGN TO UT-S-HEADERR. 00011500

011600 SELECT CASE-ERROR-FILE ASSIGN TO UT-S-CASEERR. 00011600

011700 SELECT PART-ERROR-FILE ASSIGN TO UT-S-PARTERR. 00011700

011800 SELECT QUERY-ERROR-FILE ASSIGN TO UT-S-QRYERR. 00011800

011900 00011900

012000 DATA DIVISION. 00012000

012100 FILE SECTION. 00012100

012200 00012200

012300 FD FCR-RESPONSE-FILE 00012300

012400 RECORDING MODE IS F 00012400

012500 LABEL RECORDS ARE STANDARD 00012500

012600 BLOCK CONTAINS 0 RECORDS 00012600

012700 DATA RECORD IS FCR-RESPONSE-REC. 00012700

012800 01 FCR-RESPONSE-REC. 00012800

012900 03 FRR-RECORD-ID PIC X(2). 00012900

013000 03 FILLER PIC X(918). 00013000

013100 00013100

013200 FD FCR-AUDIT-FILE 00013200

013300 LABEL RECORDS ARE STANDARD. 00013300

013400 01 FCR-AUDIT-RECORD. 00013400

013500 03 AUDIT-KEY. 00013500

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

013700 05 AUDIT-TRANS-ACTION-CD PIC X(1). 00013700

013800 05 AUDIT-TRANS-KEY-1 PIC X(15). 00013800

013900 05 AUDIT-TRANS-KEY-2 PIC X(15). 00013900

014000 03 FILLER PIC X(23). 00014000

014100 00014100

014200 FD PRINTER 00014200

014300 RECORDING MODE IS F 00014300

014400 LABEL RECORDS ARE OMITTED 00014400

014500 BLOCK CONTAINS 0 RECORDS 00014500

014600 DATA RECORD IS PRINT-REC. 00014600

014700 01 PRINT-REC PIC X(132). 00014700

014800 00014800

014900 FD HEADER-ERROR-FILE 00014900

015000 RECORDING MODE IS F 00015000

015100 LABEL RECORDS ARE OMITTED 00015100

015200 BLOCK CONTAINS 0 RECORDS 00015200

015300 DATA RECORD IS HEADER-ERROR-REC. 00015300

015400 01 HEADER-ERROR-REC PIC X(132). 00015400

015500 00015500

015600 FD CASE-ERROR-FILE 00015600

015700 RECORDING MODE IS F 00015700

015800 LABEL RECORDS ARE OMITTED 00015800

015900 BLOCK CONTAINS 0 RECORDS 00015900

016000 DATA RECORD IS CASE-ERROR-REC. 00016000

016100 01 CASE-ERROR-REC PIC X(132). 00016100

016200 00016200

016300 FD PART-ERROR-FILE 00016300

016400 RECORDING MODE IS F 00016400

016500 LABEL RECORDS ARE OMITTED 00016500

016600 BLOCK CONTAINS 0 RECORDS 00016600

016700 DATA RECORD IS PART-ERROR-REC. 00016700

016800 01 PART-ERROR-REC PIC X(132). 00016800

016900 00016900

017000 FD QUERY-ERROR-FILE 00017000

017100 RECORDING MODE IS F 00017100

017200 LABEL RECORDS ARE OMITTED 00017200

017300 BLOCK CONTAINS 0 RECORDS 00017300

017400 DATA RECORD IS QUERY-ERROR-REC. 00017400

017500 01 QUERY-ERROR-REC PIC X(132). 00017500

017600 00017600

017700 FD CSENET-FILE 00017700

017800 RECORDING MODE IS F 00017800

017900 LABEL RECORDS ARE OMITTED 00017900

018000 BLOCK CONTAINS 0 RECORDS 00018000

018100 DATA RECORD IS CSENET-REC. 00018100

018200 01 CSENET-REC PIC X(80). 00018200

018300 00018300

018400 00018400

018500 WORKING-STORAGE SECTION. 00018500

018600 00018600

018700 01 AUDIT-FILE-STATUS PIC X(2) VALUE SPACES. 00018700

018800 00018800

018900 01 ERROR-SEVERITY-IND PIC X VALUE \' \'. 00018900

019000 88 THE-ERROR-IS-SEVERE VALUE \'E\'. 00019000

019100 00019100

019200 01 VALID-HEADER-IND PIC X VALUE \'W\'. 00019200

019300 88 THE-BATCH-WAS-REJECTED VALUE \'E\'. 00019300

019400 88 THE-BATCH-HAS-WARNINGS VALUE \'W\'. 00019400

019500 00019500

019600 01 CHECK-TRIGGER-TRANS-TYPE PIC X(2). 00019600

019700 88 ITS-A-CASE-ADD VALUE \'CA\'. 00019700

019800 88 ITS-A-CASE-CHANGE VALUE \'CC\'. 00019800

019900 88 ITS-A-CASE-DELETE VALUE \'CD\'. 00019900

020000 88 ITS-A-CASE-CHANGE-CASENUM VALUE \'CN\'. 00020000

020100 88 ITS-A-PARTICIPANT-ADD VALUE \'PA\'. 00020100

020200 88 ITS-A-PARTICIPANT-CHANGE VALUE \'PC\'. 00020200

020300 88 ITS-A-PARTICIPANT-CHANGE-SSN VALUE \'PN\'. 00020300

020400 88 ITS-A-PARTICIPANT-CHANGE-ID VALUE \'PI\'. 00020400

020500 88 ITS-A-PARTICIPANT-DELETE VALUE \'PD\'. 00020500

020600 00020600

020700 01 WS-WORKER-ALERT-MESSAGE PIC X(80). 00020700

020800 00020800

020900 01 WS-FCR-AUDIT-RECORD. 00020900

021000 03 FCR-AUDIT-TRANS-TYPE PIC X(2). 00021000

021100 03 FCR-AUDIT-TRANS-ACTION-CD PIC X(1). 00021100

021200 03 FCR-AUDIT-TRANS-KEY-1 PIC X(15). 00021200

021300 03 FCR-AUDIT-TRANS-KEY-2 PIC X(15). 00021300

021400 03 FCR-AUDIT-BATCH-NUMBER PIC X(6). 00021400

021500 03 FCR-AUDIT-DATE-TRANSMITTED. 00021500

021600 05 FCR-DATE-TRANS-CC PIC X(2). 00021600

021700 05 FCR-DATE-TRANS-YY PIC X(2). 00021700

021800 05 FCR-DATE-TRANS-MM PIC X(2). 00021800

021900 05 FCR-DATE-TRANS-DD PIC X(2). 00021900

022000 03 FCR-AUDIT-DATE-RESPONSE. 00022000

022100 05 FCR-DATE-RESP-CC PIC X(2). 00022100

022200 05 FCR-DATE-RESP-YY PIC X(2). 00022200

022300 05 FCR-DATE-RESP-MM PIC X(2). 00022300

022400 05 FCR-DATE-RESP-DD PIC X(2). 00022400

022500 03 FCR-AUDIT-RESPONSE-CODE PIC X. 00022500

022600 00022600

022700 00022700

022800 01 WS-FCR-CASE-RECORD. 00022800

022900 05 FCR-CASE-RECORD-ID PIC X(2). 00022900

023000 05 FCR-CASE-ACTION-TYPE-CODE PIC X. 00023000

023100 05 FCR-CASE-CASE-ID PIC X(15). 00023100

023200 05 FCR-CASE-CASE-TYPE PIC X. 00023200

023300 05 FCR-CASE-ORDER-INDICATOR PIC X. 00023300

023400 05 FCR-CASE-FIPS-COUNTY-CODE PIC X(3). 00023400

023500 05 FILLER PIC X(2). 00023500

023600 05 FCR-CASE-USER-FIELD PIC X(15). 00023600

023700 05 FCR-CASE-PREVIOUS-CASE-ID PIC X(15). 00023700

023800 05 FILLER PIC X(585). 00023800

023900 05 FCR-CASE-BATCH-NUMBER PIC X(6). 00023900

024000 05 FCR-CASE-ACKNWLGMT-CODE PIC X(5). 00024000

024100 88 FCR-CASE-ACCEPTED VALUE \'AAAAA\'. 00024100

024200 88 FCR-CASE-REJECTED VALUE \'REJCT\'. 00024200

024300 88 FCR-CASE-PENDED VALUE \'HOLDS\'. 00024300

024400 05 FCR-CASE-ERROR-CODES. 00024400

024500 07 FCR-CASE-ERROR-CODE-1 PIC X(5). 00024500

024600 07 FCR-CASE-ERROR-CODE-2 PIC X(5). 00024600

024700 07 FCR-CASE-ERROR-CODE-3 PIC X(5). 00024700

024800 07 FCR-CASE-ERROR-CODE-4 PIC X(5). 00024800

024900 07 FCR-CASE-ERROR-CODE-5 PIC X(5). 00024900

025000 05 FILLER PIC X(244). 00025000

025100 00025100

025200 01 WS-FCR-PART-RECORD. 00025200

025300 05 FCR-PART-RECORD-ID PIC X(2). 00025300

025400 05 FCR-PART-ACTION-TYPE-CODE PIC X. 00025400

025500 05 FCR-PART-CASE-ID PIC X(15). 00025500

025600 05 RESERVED-FOR-FCR-PROCESSING PIC X(2). 00025600

025700 05 FCR-PART-USER-FIELD PIC X(15). 00025700

025800 05 FCR-PART-FIPS-COUNTY-CODE PIC X(3). 00025800

025900 05 FILLER PIC X(2). 00025900

026000 05 FCR-PART-LOCATE-REQ-TYPE PIC X(2). 00026000

026100 05 FCR-PART-BUNDLE-RESULTS PIC X(1). 00026100

026200 05 FCR-PART-PARTICIPANT-TYPE PIC X(2). 00026200

026300 05 FCR-PART-FAMILY-VIOLENCE PIC X(2). 00026300

026400 05 FCR-PART-MEMBER-ID PIC X(15). 00026400

026500 05 FCR-PART-SEX-CODE PIC X(1). 00026500

026600 05 FCR-PART-DATE-OF-BIRTH PIC X(8). 00026600

026700 05 FCR-PART-SSN PIC X(9). 00026700

026800 05 FCR-PART-PREVIOUS-SSN PIC X(9). 00026800

026900 05 FCR-PART-FIRST-NAME PIC X(16). 00026900

027000 05 FCR-PART-MIDDLE-NAME PIC X(16). 00027000

027100 05 FCR-PART-LAST-NAME PIC X(30). 00027100

027200 05 FCR-PART-CITY-OF-BIRTH PIC X(16). 00027200

027300 05 FCR-PART-STATE-CNTY-BIRTH PIC X(4). 00027300

027400 05 FCR-PART-FATHERS-FIRST-NAME PIC X(16). 00027400

027500 05 FCR-PART-FATHERS-MID-NAME PIC X(1). 00027500

027600 05 FCR-PART-FATHERS-LAST-NAME PIC X(16). 00027600

027700 05 FCR-PART-MOTHERS-FIRST-NAME PIC X(16). 00027700

027800 05 FCR-PART-MOTHERS-MID-NAME PIC X(1). 00027800

027900 05 FCR-PART-MOTHERS-LAST-NAME PIC X(16). 00027900

028000 05 FCR-PART-IRS-U-SSN PIC X(9). 00028000

028100 05 FCR-PART-ADDITIONAL-SSN1 PIC X(9). 00028100

028200 05 FCR-PART-ADDITIONAL-SSN2 PIC X(9). 00028200

028300 05 FCR-PART-ADDITIONAL-FNAM1 PIC X(16). 00028300

028400 05 FCR-PART-ADDITIONAL-MNAM1 PIC X(16). 00028400

028500 05 FCR-PART-ADDITIONAL-LNAM1 PIC X(30). 00028500

028600 05 FCR-PART-ADDITIONAL-FNAM2 PIC X(16). 00028600

028700 05 FCR-PART-ADDITIONAL-MNAM2 PIC X(16). 00028700

028800 05 FCR-PART-ADDITIONAL-LNAM2 PIC X(30). 00028800

028900 05 FCR-PART-ADDITIONAL-FNAM3 PIC X(16). 00028900

029000 05 FCR-PART-ADDITIONAL-MNAM3 PIC X(16). 00029000

029100 05 FCR-PART-ADDITIONAL-LNAM3 PIC X(30). 00029100

029200 05 FCR-PART-ADDITIONAL-FNAM4 PIC X(16). 00029200

029300 05 FCR-PART-ADDITIONAL-MNAM4 PIC X(16). 00029300

029400 05 FCR-PART-ADDITIONAL-LNAM4 PIC X(30). 00029400

029500 05 FCR-PART-NEW-MEMBER-ID PIC X(15). 00029500

029600 05 FCR-PART-IRS-1099 PIC X(1). 00029600

029700 05 FCR-PART-LOCATE-SOURCE1 PIC X(3). 00029700

029800 05 FCR-PART-LOCATE-SOURCE2 PIC X(3). 00029800

029900 05 FCR-PART-LOCATE-SOURCE3 PIC X(3). 00029900

030000 05 FCR-PART-LOCATE-SOURCE4 PIC X(3). 00030000

030100 05 FCR-PART-LOCATE-SOURCE5 PIC X(3). 00030100

030200 05 FCR-PART-LOCATE-SOURCE6 PIC X(3). 00030200

030300 05 FCR-PART-LOCATE-SOURCE7 PIC X(3). 00030300

030400 05 FCR-PART-LOCATE-SOURCE8 PIC X(3). 00030400

030500 05 FILLER PIC X(88). 00030500

030600 05 FCR-PART-SSN-VALIDITY-CODE PIC X(1). 00030600

030700 88 SSN-FOUND-OR-CORRECTED VALUE \'C\', \'E\', 00030700

030800 \'P\', \'R\', \'S\'. 00030800

030900 88 THE-SSN-WAS-CORRECT VALUE \'V\'. 00030900

031000 88 THE-SSN-COULD-NOT-BE-FOUND VALUE \' \'. 00031000

031100 05 FCR-PART-CORRECT-SSN PIC X(9). 00031100

031200 05 FCR-PART-MULTIPLE-SSN1 PIC X(9). 00031200

031300 05 FCR-PART-MULTIPLE-SSN2 PIC X(9). 00031300

031400 05 FCR-PART-MULTIPLE-SSN3 PIC X(9). 00031400

031500 05 FCR-PART-SSA-DOB-IND PIC X. 00031500

031600 88 SSA-DATE-OF-BIRTH-WAS-USED VALUE \'Y\'. 00031600

031700 05 FCR-PART-BATCH-NUMBER PIC X(6). 00031700

031800 05 FCR-PART-DATE-OF-DEATH PIC X(8). 00031800

031900 05 FCR-PART-SSA-LAST-ZIP-CODE PIC X(5). 00031900

032000 05 FCR-PART-SSA-ZIP-OF-PAYMENT PIC X(5). 00032000

032100 05 FCR-PART-PRIMARY-SSN PIC X(9). 00032100

032200 05 FCR-PART-PRIMARY-FNAME PIC X(16). 00032200

032300 05 FCR-PART-PRIMARY-MNAME PIC X(16). 00032300

032400 05 FCR-PART-PRIMARY-LNAME PIC X(30). 00032400

032500 05 FCR-PART-ACKNWLGMT-CODE PIC X(5). 00032500

032600 88 FCR-PARTICIPANT-ACCEPTED VALUE \'AAAAA\'. 00032600

032700 88 FCR-PARTICIPANT-REJECTED VALUE \'REJCT\'. 00032700

032800 88 FCR-PARTICIPANT-PENDED VALUE \'HOLDS\'. 00032800

032900 05 FCR-PART-ERROR-CODES. 00032900

033000 07 FCR-PART-ERROR-CODE-1 PIC X(5). 00033000

033100 07 FCR-PART-ERROR-CODE-2 PIC X(5). 00033100

033200 07 FCR-PART-ERROR-CODE-3 PIC X(5). 00033200

033300 07 FCR-PART-ERROR-CODE-4 PIC X(5). 00033300

033400 07 FCR-PART-ERROR-CODE-5 PIC X(5). 00033400

033500 05 FILLER PIC X(117). 00033500

033600 00033600

033700 01 WS-QUERY-RESPONSE. 00033700

033800 05 QRY-REC-ID PIC X(2). 00033800

033900 05 QRY-ACTION-TYPE-CODE PIC X(1). 00033900

034000 05 QRY-CASE-ID PIC X(15). 00034000

034100 05 QRY-USER-FIELD PIC X(15). 00034100

034200 05 QRY-FIPS-COUNTY-CODE PIC X(3). 00034200

034300 05 FILLER PIC X(2). 00034300

034400 05 QRY-MEMBER-ID PIC X(15). 00034400

034500 05 QRY-SSN PIC X(9). 00034500

034600 05 QRY-RESERVED-FOR-FCR PIC X(2). 00034600

034700 05 FILLER PIC X(576). 00034700

034800 05 QRY-BATCH-NUMBER PIC X(6). 00034800

034900 05 QRY-ACKNOWLEDGEMENT-CODE PIC X(5). 00034900

035000 88 QRY-ACCEPTED VALUE \'AAAAA\'. 00035000

035100 88 QRY-REJECTED VALUE \'REJCT\'. 00035100

035200 88 QRY-PENDED VALUE \'HOLDS\'. 00035200

035300 05 QRY-ERROR-CODES. 00035300

035400 07 QRY-ERROR-CODE-1 PIC X(5). 00035400

035500 07 QRY-ERROR-CODE-2 PIC X(5). 00035500

035600 07 QRY-ERROR-CODE-3 PIC X(5). 00035600

035700 07 QRY-ERROR-CODE-4 PIC X(5). 00035700

035800 07 QRY-ERROR-CODE-5 PIC X(5). 00035800

035900 05 FILLER PIC X(244). 00035900

036000 00036000

036100 01 WS-PROACTIVE-RESPONSE. 00036100

036200 05 PRO-REC-ID PIC X(2). 00036200

036300 05 PRO-STATE-TERRITORY-FIPS PIC X(2). 00036300

036400 05 PRO-ACTION-TYPE-CODE PIC X(1). 00036400

036500 88 ITS-A-PROACTV-CASE-CHANGE VALUE \'C\'. 00036500

036600 88 ITS-A-PROACTV-QUERY VALUE \'F\'. 00036600

036700 88 ITS-A-PROACTV-PERSON-REC VALUE \'P\'. 00036700

036800 05 PRO-USER-FIELD PIC X(15). 00036800

036900 05 PRO-FIPS-COUNTY-CODE PIC X(3). 00036900

037000 05 FILLER PIC X(2). 00037000

037100 05 PRO-BATCH-NUMBER PIC X(6). 00037100

037200 05 PRO-FIRST-NAME PIC X(16). 00037200

037300 05 PRO-MIDDLE-NAME PIC X(16). 00037300

037400 05 PRO-LAST-NAME PIC X(30). 00037400

037500 05 PRO-SUBMITTED-MATCHED-SSN PIC X(9). 00037500

037600 05 PRO-MEMBER-ID PIC X(15). 00037600

037700 05 PRO-SUBMITTED-CASE-ID PIC X(15). 00037700

037800 05 PRO-RESPONSE-CODE PIC X(2). 00037800

037900 88 PRO-MATCHED-1ORMORE-CASES VALUE \'MA\'. 00037900

038000 88 PRO-MATCHED-4ORMORE-PARTS VALUE \'MM\'. 00038000

038100 05 PRO-MATCHED-CASE-ID PIC X(15). 00038100

038200 05 PRO-MATCHED-CASE-STATE PIC X(2). 00038200

038300 05 PRO-MATCHED-CASE-TYPE PIC X(1). 00038300

038400 88 PRO-MATCHED-CASE-IS-IVD VALUE \'F\'. 00038400

038500 88 PRO-MATCHED-CASE-IS-NON-IVD VALUE \'N\'. 00038500

038600 05 PRO-MATCHED-FCR-COUNTY-CODE PIC X(3). 00038600

038700 05 FILLER PIC X(2). 00038700

038800 05 PRO-MATCHED-REGISTRATION-DATE PIC X(8). 00038800

038900 05 PRO-MATCHED-CASE-ORDER-IND PIC X. 00038900

039000 88 PRO-MATCHED-CASE-HAS-ORDER VALUE \'Y\'. 00039000

039100 88 PRO-MATCHED-CASE-NO-ORDER VALUE \'N\', \' \'. 00039100

039200 05 PRO-MATCHED-PARTICIPANT-TYPE PIC X(2). 00039200

039300 88 MATCHED-TYPE-IS-A-CHILD VALUE \'CH\'. 00039300

039400 88 MATCHED-TYPE-IS-A-CP VALUE \'CP\'. 00039400

039500 88 MATCHED-TYPE-IS-AN-NCP VALUE \'NP\'. 00039500

039600 88 MATCHED-TYPE-IS-A-PF VALUE \'PF\'. 00039600

039700 05 PRO-MATCHED-MEMBER-ID PIC X(15). 00039700

039800 05 PRO-MATCHED-PERSON-DATE-DEATH PIC X(8). 00039800

039900 05 PRO-MATCHED-ADDTL-FNAME1 PIC X(16). 00039900

040000 05 PRO-MATCHED-ADDTL-MNAME1 PIC X(16). 00040000

040100 05 PRO-MATCHED-ADDTL-LNAME1 PIC X(30). 00040100

040200 05 PRO-MATCHED-ADDTL-FNAME2 PIC X(16). 00040200

040300 05 PRO-MATCHED-ADDTL-MNAME2 PIC X(16). 00040300

040400 05 PRO-MATCHED-ADDTL-LNAME2 PIC X(30). 00040400

040500 05 PRO-MATCHED-ADDTL-FNAME3 PIC X(16). 00040500

040600 05 PRO-MATCHED-ADDTL-MNAME3 PIC X(16). 00040600

040700 05 PRO-MATCHED-ADDTL-LNAME3 PIC X(30). 00040700

040800 05 PRO-MATCHED-ADDTL-FNAME4 PIC X(16). 00040800

040900 05 PRO-MATCHED-ADDTL-MNAME4 PIC X(16). 00040900

041000 05 PRO-MATCHED-ADDTL-LNAME4 PIC X(30). 00041000

041100 05 PRO-ASSOCIATED-PERS1-SSN PIC X(9). 00041100

041200 05 PRO-ASSOCIATED-PERS1-FNAME PIC X(16). 00041200

041300 05 PRO-ASSOCIATED-PERS1-MNAME PIC X(16). 00041300

041400 05 PRO-ASSOCIATED-PERS1-LNAME PIC X(30). 00041400

041500 05 PRO-ASSOCIATED-PERS1-SEX PIC X. 00041500

041600 05 PRO-ASSOCIATED-PERS1-PART-TYPE PIC X(2). 00041600

041700 05 PRO-ASSOCIATED-PERS1-MEMBER-ID PIC X(15). 00041700

041800 05 PRO-ASSOCIATED-PERS1-DOB PIC X(8). 00041800

041900 05 PRO-ASSOCIATED-PERS1-DEATH-DTE PIC X(8). 00041900

042000 05 PRO-ASSOCIATED-PERS2-SSN PIC X(9). 00042000

042100 05 PRO-ASSOCIATED-PERS2-FNAME PIC X(16). 00042100

042200 05 PRO-ASSOCIATED-PERS2-MNAME PIC X(16). 00042200

042300 05 PRO-ASSOCIATED-PERS2-LNAME PIC X(30). 00042300

042400 05 PRO-ASSOCIATED-PERS2-SEX PIC X. 00042400

042500 05 PRO-ASSOCIATED-PERS2-PART-TYPE PIC X(2). 00042500

042600 05 PRO-ASSOCIATED-PERS2-MEMBER-ID PIC X(15). 00042600

042700 05 PRO-ASSOCIATED-PERS2-DOB PIC X(8). 00042700

042800 05 PRO-ASSOCIATED-PERS2-DEATH-DTE PIC X(8). 00042800

042900 05 PRO-ASSOCIATED-PERS3-SSN PIC X(9). 00042900

043000 05 PRO-ASSOCIATED-PERS3-FNAME PIC X(16). 00043000

043100 05 PRO-ASSOCIATED-PERS3-MNAME PIC X(16). 00043100

043200 05 PRO-ASSOCIATED-PERS3-LNAME PIC X(30). 00043200

043300 05 PRO-ASSOCIATED-PERS3-SEX PIC X. 00043300

043400 05 PRO-ASSOCIATED-PERS3-PART-TYPE PIC X(2). 00043400

043500 05 PRO-ASSOCIATED-PERS3-MEMBER-ID PIC X(15). 00043500

043600 05 PRO-ASSOCIATED-PERS3-DOB PIC X(8). 00043600

043700 05 PRO-ASSOCIATED-PERS3-DEATH-DTE PIC X(8). 00043700

043800 05 FILLER PIC X(166). 00043800

043900 00043900

044000 01 WS-IRS1099-RECORD. 00044000

044100 05 IRS-REC-ID PIC X(2). 00044100

044200 05 IRS-SSN PIC X(9). 00044200

044300 05 IRS-STATE-TERRITORY-FIPS PIC X(2). 00044300

044400 05 IRS-COUNTY-FIPS PIC X(3). 00044400

044500 05 IRS-CASE-ID PIC X(15). 00044500

044600 05 IRS-1099-LAST-NAME PIC X(20). 00044600

044700 05 IRS-1099-FIRST-NAME PIC X(15). 00044700

044800 05 IRS-RESERVED-FOR-FCR PIC X(2). 00044800

044900 05 IRS-1099-MATCH-CODE PIC X(2). 00044900

045000 88 A-MATCH-WAS-FOUND VALUE \'00\'. 00045000

045100 88 SSN-NOT-KNOWN-TO-IRS VALUE \'18\'. 00045100

045200 88 THE-NAME-DOESNT-MATCH VALUE \'19\'. 00045200

045300 88 NO-INFORMATION VALUE \'20\'. 00045300

045400 05 IRS-1099-PAYEE-NAME1 PIC X(40). 00045400

045500 05 IRS-1099-PAYEE-NAME2 PIC X(40). 00045500

045600 05 IRS-1099-PAYEE-STREET PIC X(40). 00045600

045700 05 IRS-1099-PAYEE-CITY PIC X(40). 00045700

045800 05 IRS-1099-PAYEE-STATE-CD PIC X(2). 00045800

045900 05 IRS-1099-PAYEE-ZIP PIC X(9). 00045900

046000 05 IRS-PAYOR-EIN PIC X(9). 00046000

046100 05 IRS-PAYOR-NAME1 PIC X(40). 00046100

046200 05 IRS-PAYOR-NAME2 PIC X(40). 00046200

046300 05 IRS-PAYOR-STREET PIC X(40). 00046300

046400 05 IRS-PAYOR-CITY-ST-ZIP PIC X(40). 00046400

046500 05 IRS-1099-TAX-YEAR PIC X(4). 00046500

046600 05 IRS-1099-ACCOUNT-CODE PIC X(20). 00046600

046700 05 IRS-1099-DOCUMENT-CODE PIC X(2). 00046700

046800 05 IRS-1099-AMOUNT-IND-1 PIC X(2). 00046800

046900 05 IRS-1099-AMOUNT-1 PIC X(12). 00046900

047000 05 IRS-1099-AMOUNT-IND-2 PIC X(2). 00047000

047100 05 IRS-1099-AMOUNT-2 PIC X(12). 00047100

047200 05 IRS-1099-AMOUNT-IND-3 PIC X(2). 00047200

047300 05 IRS-1099-AMOUNT-3 PIC X(12). 00047300

047400 05 IRS-1099-AMOUNT-IND-4 PIC X(2). 00047400

047500 05 IRS-1099-AMOUNT-4 PIC X(12). 00047500

047600 05 IRS-1099-AMOUNT-IND-5 PIC X(2). 00047600

047700 05 IRS-1099-AMOUNT-5 PIC X(12). 00047700

047800 05 IRS-1099-AMOUNT-IND-6 PIC X(2). 00047800

047900 05 IRS-1099-AMOUNT-6 PIC X(12). 00047900

048000 05 IRS-1099-AMOUNT-IND-7 PIC X(2). 00048000

048100 05 IRS-1099-AMOUNT-7 PIC X(12). 00048100

048200 05 IRS-1099-AMOUNT-IND-8 PIC X(2). 00048200

048300 05 IRS-1099-AMOUNT-8 PIC X(12). 00048300

048400 05 IRS-1099-AMOUNT-IND-9 PIC X(2). 00048400

048500 05 IRS-1099-AMOUNT-9 PIC X(12). 00048500

048600 05 IRS-1099-AMOUNT-IND-10 PIC X(2). 00048600

048700 05 IRS-1099-AMOUNT-10 PIC X(12). 00048700

048800 05 IRS-1099-AMOUNT-IND-11 PIC X(2). 00048800

048900 05 IRS-1099-AMOUNT-11 PIC X(12). 00048900

049000 05 IRS-1099-AMOUNT-IND-12 PIC X(2). 00049000

049100 05 IRS-1099-AMOUNT-12 PIC X(12). 00049100

049200 05 FILLER PIC X(316). 00049200

049300 00049300

049400 01 WS-FCR-LOCATE-RESPONSE-RECORD. 00049400

049500 05 FCR-LOC-REC-ID PIC X(2). 00049500

049600 05 FILLER PIC X(16). 00049600

049700 05 FCR-LOC-STATE-TERR-CD PIC X(2). 00049700

049800 05 FILLER PIC X(40). 00049800

049900 05 FCR-LOC-SOURCE-RESP-CD PIC X(3). 00049900

050000 05 FCR-LOC-NAME-SENT-IND PIC X(1). 00050000

050100 05 FCR-LOC-FIRST-NAME PIC X(16). 00050100

050200 05 FCR-LOC-MID-NAME PIC X(16). 00050200

050300 05 FCR-LOC-LAST-NAME PIC X(30). 00050300

050400 05 FCR-LOC-ADDL-FNAME1 PIC X(16). 00050400

050500 05 FCR-LOC-ADDL-MNAME1 PIC X(16). 00050500

050600 05 FCR-LOC-ADDL-LNAME1 PIC X(30). 00050600

050700 05 FCR-LOC-ADDL-FNAME2 PIC X(16). 00050700

050800 05 FCR-LOC-ADDL-MNAME2 PIC X(16). 00050800

050900 05 FCR-LOC-ADDL-LNAME2 PIC X(30). 00050900

051000 05 FCR-LOC-NAME-RET-IND PIC X(1). 00051000

051100 05 FCR-LOC-NAME-RETURNED PIC X(62). 00051100

051200 05 FCR-LOC-SSN PIC X(9). 00051200

051300 05 FCR-LOC-MEMBER-ID PIC X(15). 00051300

051400 05 FCR-LOC-USER-FIELD PIC X(15). 00051400

051500 05 FILLER PIC X(3). 00051500

051600 05 FCR-LOC-FIPS-COUNTY-CD PIC X(3). 00051600

051700 05 FILLER PIC X(5). 00051700

051800 05 FCR-LOC-LOC-REQ-TYPE PIC X(2). 00051800

051900 05 FCR-LOC-DATE-O-ADDRESS-IND PIC X(1). 00051900

052000 88 NO-ADDRESS-DATE-SUPPLIED VALUE \'0\'. 00052000

052100 88 DATE-FORMAT-IS-CCYYMM VALUE \'1\'. 00052100

052200 88 DATE-FORMAT-IS-CCYYQR VALUE \'2\'. 00052200

052300 88 DATE-FORMAT-IS-CCYY VALUE \'3\'. 00052300

052400 88 DATE-FORMAT-IS-CCYYMMDD VALUE \'4\'. 00052400

052500 05 FCR-LOC-DATE-OF-ADDRESS PIC X(8). 00052500

052600 05 FCR-LOC-LOC-RESP-STATUS PIC X(2). 00052600

052700 05 FILLER PIC X(10). 00052700

052800 05 FCR-LOC-EMPLR-NAME PIC X(45). 00052800

052900 05 FCR-LOC-ADDRESS-FMT-IND PIC X(1). 00052900

053000 88 ADDRESS-FORMAT-IS-C VALUE \'C\'. 00053000

053100 88 ADDRESS-FORMAT-IS-F VALUE \'F\'. 00053100

053200 88 ADDRESS-FORMAT-IS-X VALUE \'X\'. 00053200

053300 88 ADDRESS-FORMAT-IS-BLANK VALUE \' \'. 00053300

053400 05 FCR-LOC-EMPLR-PERSN-ADDR PIC X(234). 00053400

053500 05 FILLER PIC X(34). 00053500

053600 05 FCR-LOC-SPECIFIC-LOC-SRC PIC X(220). 00053600

053700 00053700

053800 01 NDNH-PROACTIVE-RESPONSE. 00053800

053900 05 NDNH-RECORD-ID PIC X(2). 00053900

054000 05 NDNH-MATCH-TYPE PIC X(1). 00054000

054100 05 FILLER PIC X(15). 00054100

054200 05 NDNH-STATE-TERRITORY-CD PIC X(2). 00054200

054300 05 FILLER PIC X(40). 00054300

054400 05 NDNH-LOC-SOURCE-RESP-AGNCY PIC X(3). 00054400

054500 88 NO-NDNH-SSN VALUE \'H01\'. 00054500

054600 88 ITS-A-UI-RECORD VALUE \'H97\'. 00054600

054700 88 ITS-A-QW-RECORD VALUE \'H98\'. 00054700

054800 88 ITS-A-W4-RECORD VALUE \'H99\'. 00054800

054900 05 NDNH-NAME-SEND-MATCHED-IND PIC X(1). 00054900

055000 88 NAME-SENT-MATCHED VALUE \'1\'. 00055000

055100 88 ADDNL-NAME1-MATCHED VALUE \'2\'. 00055100

055200 88 ADDNL-NAME2-MATCHED VALUE \'3\'. 00055200

055300 05 NDNH-FIRST-NAME PIC X(16). 00055300

055400 05 NDNH-MIDDLE-NAME PIC X(16). 00055400

055500 05 NDNH-LAST-NAME PIC X(30). 00055500

055600 05 NDNH-ADDNL-FNAME1 PIC X(16). 00055600

055700 05 NDNH-ADDNL-MNAME1 PIC X(16). 00055700

055800 05 NDNH-ADDNL-LNAME1 PIC X(30). 00055800

055900 05 NDNH-ADDNL-FNAME2 PIC X(16). 00055900

056000 05 NDNH-ADDNL-MNAME2 PIC X(16). 00056000

056100 05 NDNH-ADDNL-LNAME2 PIC X(30). 00056100

056200 05 NDNH-NAME-RETURNED-IND PIC X(1). 00056200

056300 88 NO-NAME-RETURNED VALUE \'0\'. 00056300

056400 88 A-NAME-WAS-RETURNED VALUE \'2\'. 00056400

056500 05 NDNH-FIRST-NAME-RETURNED PIC X(16). 00056500

056600 05 NDNH-MIDDL-NAME-RETURNED PIC X(16). 00056600

056700 05 NDNH-LAST-NAME-RETURNED PIC X(30). 00056700

056800 05 NDNH-SSN-RETURNED PIC X(9). 00056800

056900 05 NDNH-MEMBER-ID PIC X(15). 00056900

057000 05 NDNH-USER-FIELD PIC X(15). 00057000

057100 05 FILLER PIC X(3). 00057100

057200 05 NDNH-FIPS-COUNTY-CODE PIC X(3). 00057200

057300 05 FILLER PIC X(5). 00057300

057400 05 NDNH-LOCATE-REQUEST-TYPE PIC X(2). 00057400

057500 05 NDNH-DATE-OF-ADDRESS PIC X(8). 00057500

057600 05 NDNH-LOCATE-RESPONSE-CODE PIC X(2). 00057600

057700 88 ADDRESS-WAS-RETURNED VALUE \' \'. 00057700

057800 88 NO-INFORMATION-NONIVD VALUE \'06\'. 00057800

057900 88 NO-SSN-ON-FILE VALUE \'10\'. 00057900

058000 88 SSN-MATCHED-NO-ADDRESS VALUE \'30\'. 00058000

058100 88 DISCLOSURE-PROHIBITED VALUE \'39\'. 00058100

058200 88 SSN-MATCHED-NAME-DIFFERENT VALUE \'46\'. 00058200

058300 88 SSN-MATCHED-NO-NAME VALUE \'47\'. 00058300

058400 05 NDNH-CORRECTED-MULTI-SSN PIC X(9). 00058400

058500 05 FILLER PIC X. 00058500

058600 05 NDNH-EMPLOYER-NAME PIC X(45). 00058600

058700 05 FILLER PIC X. 00058700

058800 05 NDNH-STREET-ADDR1 PIC X(40). 00058800

058900 05 NDNH-STREET-ADDR2 PIC X(40). 00058900

059000 05 NDNH-STREET-ADDR3 PIC X(40). 00059000

059100 05 NDNH-STREET-ADDR4 PIC X(40). 00059100

059200 05 NDNH-CITY PIC X(30). 00059200

059300 05 NDNH-STATE PIC X(2). 00059300

059400 05 NDNH-ZIP-CODE PIC X(15). 00059400

059500 05 NDNH-FOREIGN-CNTRY-CD PIC X(2). 00059500

059600 05 NDNH-FOREIGN-CNTRY-NAME PIC X(25). 00059600

059700 05 FILLER PIC X(34). 00059700

059800 05 LOCATE-SPECIFIC-INFO PIC X(220). 00059800

059900 00059900

060000 01 NDNH-UI-FORMAT. 00060000

060100 05 UI-REPORTING-STATE PIC X(2). 00060100

060200 05 UI-BENEFIT-AMOUNT PIC 9(9)V99. 00060200

060300 05 FILLER PIC X(11). 00060300

060400 05 NDNH-UI-SSN-MATCH-IND PIC X(1). 00060400

060500 88 UI-SSN-CORRECTED VALUE \'C\'. 00060500

060600 88 UI-MULTIPLE-SSNS VALUE \'M\'. 00060600

060700 88 UI-STATES-SSN-VERIFIED VALUE \'V\'. 00060700

060800 88 UI-MULTIPLE-SSN-CORRECT VALUE \'X\'. 00060800

060900 05 UI-REPORTING-QUARTER PIC X(5). 00060900

061000 05 FILLER PIC X(190). 00061000

061100 00061100

061200 01 NDNH-QW-FORMAT. 00061200

061300 05 QW-REPORTING-STATE PIC X(2). 00061300

061400 05 QW-ADDRESS-TYPE-IND PIC X(1). 00061400

061500 88 QW-EMPLOYER-ADDRESS VALUE \'1\'. 00061500

061600 88 QW-EMPLOYER-OPTIONAL-ADDR VALUE \'3\'. 00061600

061700 88 QW-NO-ADDRESS-SUPPLIED VALUE \' \'. 00061700

061800 05 QW-WAGE-AMOUNT PIC 9(9)V99. 00061800

061900 05 QW-FEIN PIC X(9). 00061900

062000 05 FILLER PIC X(1). 00062000

062100 05 NDNH-QW-SSN-MATCH-IND PIC X(1). 00062100

062200 88 QW-SSN-CORRECTED VALUE \'C\'. 00062200

062300 88 QW-MULTIPLE-SSNS VALUE \'M\'. 00062300

062400 88 QW-STATES-SSN-VERIFIED VALUE \'V\'. 00062400

062500 88 QW-MULTIPLE-SSN-CORRECT VALUE \'X\'. 00062500

062600 05 QW-REPORTING-QUARTER PIC X(5). 00062600

062700 05 QW-REPORTING-AGENCY PIC X(9). 00062700

062800 05 QW-DOD-AGENCY-STATUS-IND PIC X(1). 00062800

062900 05 QW-STATE-EIN PIC X(12). 00062900

063000 05 FILLER PIC X(168). 00063000

063100 00063100

063200 01 NDNH-W4-FORMAT. 00063200

063300 05 W4-REPORTING-STATE PIC X(2). 00063300

063400 05 W4-ADDRESS-TYPE-IND PIC X(1). 00063400

063500 88 W4-EMPLOYER-ADDRESS VALUE \'1\'. 00063500

063600 88 W4-EMPLOYEE-ADDRESS VALUE \'2\'. 00063600

063700 88 W4-EMPLOYER-OPTIONAL-ADDR VALUE \'3\'. 00063700

063800 88 W4-NO-ADDRESS-SUPPLIED VALUE \' \'. 00063800

063900 05 W4-DATE-OF-BIRTH PIC X(8). 00063900

064000 05 W4-DATE-OF-HIRE PIC X(8). 00064000

064100 05 W4-FEIN PIC X(9). 00064100

064200 05 W4-SSN-MATCH-IND PIC X(1). 00064200

064300 88 W4-SSN-CORRECTED VALUE \'C\'. 00064300

064400 88 W4-MULTIPLE-SSNS VALUE \'M\'. 00064400

064500 88 W4-STATES-SSN-VERIFIED VALUE \'V\'. 00064500

064600 88 W4-MULTIPLE-SSN-CORRECT VALUE \'X\'. 00064600

064700 05 W4-REPORTING-FED-AGENCY PIC X(9). 00064700

064800 05 W4-DOD-AGENCY-STATUS-IND PIC X(1). 00064800

064900 05 W4-STATE-EIN PIC X(12). 00064900

065000 05 W4-STATE-OF-HIRE PIC X(2). 00065000

065100 05 FILLER PIC X(167). 00065100

065200 00065200

065300 01 DATE-FORMAT1. 00065300

065400 05 DF1-CC PIC X(2). 00065400

065500 05 DF1-YY PIC X(2). 00065500

065600 05 DF1-MM PIC X(2). 00065600

065700 05 FILLER PIC X(2). 00065700

065800 00065800

065900 01 DATE-FORMAT2. 00065900

066000 05 DF2-CC PIC X(2). 00066000

066100 05 DF2-YY PIC X(2). 00066100

066200 05 DF2-QTR PIC X(2). 00066200

066300 05 FILLER PIC X(2). 00066300

066400 00066400

066500 01 DATE-FORMAT3. 00066500

066600 05 DF3-CC PIC X(2). 00066600

066700 05 DF3-YY PIC X(2). 00066700

066800 05 FILLER PIC X(4). 00066800

066900 00066900

067000 01 DATE-FORMAT4. 00067000

067100 05 DF4-CC PIC X(2). 00067100

067200 05 DF4-YY PIC X(2). 00067200

067300 05 DF4-MM PIC X(2). 00067300

067400 05 DF4-DD PIC X(2). 00067400

067500 00067500

067600 01 WS-EMP-PERS-ADDR-FMT-C. 00067600

067700 05 FORMAT-C-STREET-ADDRESS. 00067700

067800 07 FORMAT-C-ADDRESS-LINE1 PIC X(40). 00067800

067900 07 FORMAT-C-ADDRESS-LINE2 PIC X(40). 00067900

068000 07 FORMAT-C-ADDRESS-LINE3 PIC X(40). 00068000

068100 07 FORMAT-C-ADDRESS-LINE4 PIC X(40). 00068100

068200 05 FORMAT-C-ADDRESS-CITY PIC X(30). 00068200

068300 05 FORMAT-C-ADDRESS-STATE PIC X(2). 00068300

068400 05 FORMAT-C-ADDRESS-ZIP PIC X(15). 00068400

068500 05 FILLER PIC X(27). 00068500

068600 00068600

068700 01 UNSTRING-ADDRESS PIC X(160). 00068700

068800 00068800

068900 01 WS-EMP-PERS-ADDR-FMT-F. 00068900

069000 05 FORMAT-F-ADDRESS-STR-CITY-ST PIC X(192). 00069000

069100 05 FORMAT-F-ADDRESS-ZIP PIC X(15). 00069100

069200 05 FILLER PIC X(27). 00069200

069300 00069300

069400 01 WS-EMP-PERS-ADDR-FMT-X. 00069400

069500 05 FORMAT-X-ADDRESS-LINE1 PIC X(40). 00069500

069600 05 FORMAT-X-ADDRESS-LINE2 PIC X(40). 00069600

069700 05 FORMAT-X-ADDRESS-LINE3 PIC X(40). 00069700

069800 05 FORMAT-X-ADDRESS-LINE4 PIC X(40). 00069800

069900 05 FORMAT-X-ADDRESS-CITY PIC X(30). 00069900

070000 05 FORMAT-X-ADDRESS-STATE PIC X(2). 00070000

070100 05 FORMAT-X-ADDRESS-ZIP PIC X(15). 00070100

070200 05 FORMAT-X-ADDRESS-FORGN-CNTRY PIC X(2). 00070200

070300 05 FORMAT-X-ADDRESS-FORGN-NAME PIC X(25). 00070300

070400 00070400

070500 01 WS-RESPONSE-HEADER. 00070500

070600 05 FCR-RESP-REC-ID PIC X(2). 00070600

070700 05 FCR-RESP-STATE-CODE PIC X(2). 00070700

070800 05 FCR-RESP-VRS-CNTL-NUM PIC X(5). 00070800

070900 05 FCR-RESP-DATE-STAMP. 00070900

071000 10 FCR-RESP-DATE-STAMP-CC PIC X(2). 00071000

071100 10 FCR-RESP-DATE-STAMP-YY PIC X(2). 00071100

071200 10 FCR-RESP-DATE-STAMP-MM PIC X(2). 00071200

071300 10 FCR-RESP-DATE-STAMP-DD PIC X(2). 00071300

071400 05 FCR-RESP-BATCH-NUMBER PIC 9(6). 00071400

071500 05 FCR-RESP-ERRORS. 00071500

071600 07 FCR-RESP-ERROR-CODE-1 PIC X(4). 00071600

071700 07 FCR-RESP-ERROR-CODE-2 PIC X(4). 00071700

071800 07 FCR-RESP-ERROR-CODE-3 PIC X(4). 00071800

071900 07 FCR-RESP-ERROR-CODE-4 PIC X(4). 00071900

072000 07 FCR-RESP-ERROR-CODE-5 PIC X(4). 00072000

072100 05 FILLER PIC X(877). 00072100

072200 00072200

072300 01 WS-RESPONSE-TRAILER. 00072300

072400 05 TRLR-REC-ID PIC X(2). 00072400

072500 05 TRLR-CASE-RECS-RCVD PIC 9(8). 00072500

072600 05 TRLR-CASE-RECS-ACCEPTED PIC 9(8). 00072600

072700 05 TRLR-CASE-RECS-REJECTED PIC 9(8). 00072700

072800 05 TRLR-CASE-RECS-PENDING PIC 9(8). 00072800

072900 05 TRLR-PERS-RECS-RCVD PIC 9(8). 00072900

073000 05 TRLR-PERS-RECS-ACCEPTED PIC 9(8). 00073000

073100 05 TRLR-PERS-RECS-REJECTED PIC 9(8). 00073100

073200 05 TRLR-PERS-RECS-PENDING PIC 9(8). 00073200

073300 05 TRLR-QUERY-RECS-RCVD PIC 9(8). 00073300

073400 05 TRLR-QUERY-RECS-ACCEPTED PIC 9(8). 00073400

073500 05 TRLR-QUERY-RECS-REJECTED PIC 9(8). 00073500

073600 05 TRLR-QUERY-RECS-PENDING PIC 9(8). 00073600

073700 05 FILLER PIC 9(8). 00073700

073800 05 TRLR-QRY-PRO-MATCH-RECS PIC 9(8). 00073800

073900 05 TRLR-NDNH-RESP-RECS PIC 9(8). 00073900

074000 05 TRLR-FPLS-RESP-RECS PIC 9(8). 00074000

074100 05 TRLR-1099-RECS PIC 9(8). 00074100

074200 05 TRLR-RESPONSE-REC-COUNT PIC 9(11). 00074200

074300 05 FILLER PIC X(779). 00074300

074400 00074400

074500 01 WS-LITERALS-AND-CNTRS. 00074500

074600 00074600

074700 05 WS-ACKNOWLEDGEMENT-CODE PIC X(2). 00074700

074800 05 SUB1 PIC S9(4) COMP-3 VALUE +0. 00074800

074900 05 SUB2 PIC S9(4) COMP-3 VALUE +0. 00074900

075000 00075000

075100 05 WS-ACCEPTED-IND PIC X VALUE \'A\'. 00075100

075200 05 WS-REJECTED-IND PIC X VALUE \'R\'. 00075200

075300 05 WS-PENDING-IND PIC X VALUE \'P\'. 00075300

075400 00075400

075500 05 CASE-TRIGGER PIC X(2) VALUE \'FC\'. 00075500

075600 05 PERSON-TRIGGER PIC X(2) VALUE \'FP\'. 00075600

075700 05 QUERY-TRIGGER PIC X(2) VALUE \'FR\'. 00075700

075800 00075800

075900 05 DETERMINE-HEADER-TYPE PIC X(2) VALUE SPACES. 00075900

076000 88 ITS-A-ROUTINE-HEADER VALUE \'FB\'. 00076000

076100 88 ITS-A-PENDED-HEADER VALUE \'FE\'. 00076100

076200 88 ITS-A-TRAILER-RECORD VALUE \'FX\'. 00076200

076300 88 ITS-A-LOCATE-HEADER VALUE \'FL\'. 00076300

076400 88 ITS-A-HEADER VALUES \'FB\', \'FE\', 00076400

076500 \'FL\'. 00076500

076600 00076600

076700 05 HOLD-HEADER-TYPE PIC X(2) VALUE SPACES. 00076700

076800 88 HELD-IS-A-ROUTINE VALUE \'FB\'. 00076800

076900 88 HELD-IS-A-PENDED VALUE \'FE\'. 00076900

077000 88 HELD-IS-A-LOCATE VALUE \'FL\'. 00077000

077100 00077100

077200 05 DETERMINE-ACTION-TYPE PIC X VALUE SPACE. 00077200

077300 88 ITS-AN-ADD-TRANS VALUE \'A\'. 00077300

077400 88 ITS-A-CHANGE-TRANS VALUE \'C\'. 00077400

077500 88 ITS-A-DELETE-TRANS VALUE \'D\'. 00077500

077600 88 ITS-A-LOCATE-TRANS VALUE \'L\'. 00077600

077700 88 ITS-A-TERMINATE-TRANS VALUE \'T\'. 00077700

077800 88 ITS-A-QUERY-TRANS VALUE \'F\'. 00077800

077900 00077900

078000 05 DETERMINE-RECORD-TYPE PIC X(2) VALUE SPACES. 00078000

078100 88 ITS-A-CASE-RECORD VALUE \'FD\'. 00078100

078200 88 ITS-A-PERSON-RECORD VALUE \'FS\'. 00078200

078300 88 ITS-A-QUERY-RECORD VALUE \'FG\'. 00078300

078400 88 ITS-A-PROACTIVE-MATCH VALUE \'FT\'. 00078400

078500 88 ITS-A-1099-RECORD VALUE \'FH\'. 00078500

078600 88 ITS-A-LOCATE-RESPONSE VALUE \'FF\'. 00078600

078700 88 ITS-A-NEWHIRE-RECORD VALUE \'FN\'. 00078700

078800 88 ITS-A-RESPONSE-TRAILER VALUE \'FX\'. 00078800

078900 00078900

079000 05 RESPONSE-EOF PIC X VALUE \'N\'. 00079000

079100 88 NO-MORE-RESPONSES VALUE \'Y\'. 00079100

079200 05 BATCH-SWITCH PIC X VALUE \'B\'. 00079200

079300 88 BEGINNING-OF-THIS-BATCH VALUE \'B\'. 00079300

079400 88 THE-END-OF-THIS-BATCH VALUE \'E\'. 00079400

079500 05 WS-BATCH-NUMBER PIC 9(6) VALUE 0. 00079500

079600 05 WS-BATCH-DATE PIC X(8) VALUE SPACES. 00079600

079700 05 WS-TEST-CNTR PIC 9(4) VALUE 0. 00079700

079800 05 WS-RECORD-COUNT PIC 9(11) VALUE 2. 00079800

079900 05 ERROR-LINE-COUNT PIC 9(2) VALUE 65. 00079900

080000 05 ERROR-PAGE-COUNT PIC 9(4) VALUE 0. 00080000

080100 05 REC-COUNT-PAGE-CNT PIC 9(4) VALUE 0. 00080100

080200 05 REC-COUNT-LINE-CNT PIC 9(2) VALUE 65. 00080200

080300 05 ROUTINE-LIT PIC X(9) VALUE \'ROUTINE \'. 00080300

080400 05 PENDED-LIT PIC X(9) VALUE \'PENDED \'. 00080400

080500 05 LOCATE-LIT PIC X(9) VALUE \'LOCATE \'. 00080500

080600 05 CASE-LIT PIC X(9) VALUE \'CASE \'. 00080600

080700 05 PERSON-LIT PIC X(9) VALUE \'PERSON \'. 00080700

080800 05 QUERY-LIT PIC X(9) VALUE \'QUERY \'. 00080800

080900 05 PROACTIVE-LIT PIC X(9) VALUE \'PROACTIVE\'. 00080900

081000 05 IRS-1099-LIT PIC X(9) VALUE \'IRS-1099 \'. 00081000

081100 05 EXTERNAL-LIT PIC X(9) VALUE \'EXTERNAL \'. 00081100

081200 05 NDNH-LIT PIC X(9) VALUE \'NDNH \'. 00081200

081300 05 OUT-OF-BALANCE-LIT. 00081300

081400 07 FILLER PIC X(45) VALUE 00081400

081500 \' \*\*\* RECORDS SENT AND RECORDS RECEIVED ARE \'. 00081500

081600 07 FILLER PIC X(18) VALUE 00081600

081700 \'OUT OF BALANCE \*\*\*\'. 00081700

081800 00081800

081900 01 ERROR-MESSAGES. 00081900

082000 05 FILLER PIC X(50) VALUE 00082000

082100 \'LE001DISCLOSURE PROHIBITED/FV INDICATOR SET \'. 00082100

082200 05 FILLER PIC X(50) VALUE 00082200

082300 \'LE003LOCATE REQUEST TYPE INVALID FOR THIS PERSON \'. 00082300

082400 05 FILLER PIC X(50) VALUE 00082400

082500 \'LE004PARTICIPANT TYPE CH INVALID FOR LOCATE REQ.\'. 00082500

082600 05 FILLER PIC X(50) VALUE 00082600

082700 \'PE001CP, NP OR PF REQUIRED FOR CHILD ON A CASE \'. 00082700

082800 05 FILLER PIC X(50) VALUE 00082800

082900 \'PE002CASE DOES NOT EXIST ON THE FCR. \'. 00082900

083000 05 FILLER PIC X(50) VALUE 00083000

083100 \'PE004PERSON NOT FOUND ON THE FCR \'. 00083100

083200 05 FILLER PIC X(50) VALUE 00083200

083300 \'PE005CASE DOES NOT EXIST ON THE FCR FOR SUBMITTER \'. 00083300

083400 05 FILLER PIC X(50) VALUE 00083400

083500 \'PE006DUPLICATE CASE ID; CASE ALREADY ON FCR \'. 00083500

083600 05 FILLER PIC X(50) VALUE 00083600

083700 \'PE007PERSON ALREADY EXISTS ON FCR FOR THIS CASE \'. 00083700

083800 05 FILLER PIC X(50) VALUE 00083800

083900 \'PE008INVALID CHANGE TO PARTICIPANT TYPE \'. 00083900

084000 05 FILLER PIC X(50) VALUE 00084000

084100 \'PE009CP ALREADY EXISTS FOR THE CASE \'. 00084100

084200 05 FILLER PIC X(50) VALUE 00084200

084300 \'PE010THE CASE MUST HAVE AT LEAST ONE CP, PF OR NP \'. 00084300

084400 05 FILLER PIC X(50) VALUE 00084400

084500 \'PE011CASE OR PERSON PREVIOUSLY DELETED \'. 00084500

084600 05 FILLER PIC X(50) VALUE 00084600

084700 \'PE012DELETED CASE OR PERSON CANNOT BE UPDATED \'. 00084700

084800 05 FILLER PIC X(50) VALUE 00084800

084900 \'PE013INVALID CHANGE TO AN UNVERIFIED SSN \'. 00084900

085000 05 FILLER PIC X(50) VALUE 00085000

085100 \'PE014INVALID NAME CHANGE ON UNVERIFIED SSN/NAME \'. 00085100

085200 05 FILLER PIC X(50) VALUE 00085200

085300 \'PW001NO CP, NP OR PF WITH VERIFIED SSN ON CASE \'. 00085300

085400 05 FILLER PIC X(50) VALUE 00085400

085500 \'PW002DISCLOSURE PROHIBITED \'. 00085500

085600 05 FILLER PIC X(50) VALUE 00085600

085700 \'PW003FV ALREADY EXISTS FOR SSN, STATE AND CASE ID \'. 00085700

085800 05 FILLER PIC X(50) VALUE 00085800

085900 \'PW004FV NOT FOUND FOR SUBMITTED SSN \'. 00085900

086000 05 FILLER PIC X(50) VALUE 00086000

086100 \'PW005FV NOT FOUND FOR SSN, STATE AND CASE ID \'. 00086100

086200 05 FILLER PIC X(50) VALUE 00086200

086300 \'PW006CASE CLOSED. NO CP, NP OR PF RECORD EXISTS \'. 00086300

086400 05 FILLER PIC X(50) VALUE 00086400

086500 \'PW007SUBMITTED NAME CHANGE DOES NOT MATCH SSN \'. 00086500

086600 05 FILLER PIC X(50) VALUE 00086600

086700 \'PW008SUBMITTED SSN CHANGE DOES NOT VERIFY \'. 00086700

086800 05 FILLER PIC X(50) VALUE 00086800

086900 \'TE001INVALID RECORD IDENTIFIER \'. 00086900

087000 05 FILLER PIC X(50) VALUE 00087000

087100 \'TE002INVALID ACTION TYPE CODE \'. 00087100

087200 05 FILLER PIC X(50) VALUE 00087200

087300 \'TE004CHANGE INFORMATION REQUIRED \'. 00087300

087400 05 FILLER PIC X(50) VALUE 00087400

087500 \'TE005CASE ID REQUIRED \'. 00087500

087600 05 FILLER PIC X(50) VALUE 00087600

087700 \'TE006CP, NP OR PF REQUIRED ON CASE \'. 00087700

087800 05 FILLER PIC X(50) VALUE 00087800

087900 \'TE010PARTICIPANT TYPE REQUIRED \'. 00087900

088000 05 FILLER PIC X(50) VALUE 00088000

088100 \'TE011PARTICIPANT TYPE INVALID FOR ACTION TYPE CODE\'. 00088100

088200 05 FILLER PIC X(50) VALUE 00088200

088300 \'TE013FAMILY VIOLENCE INVALID FOR ACTION TYPE CODE \'. 00088300

088400 05 FILLER PIC X(50) VALUE 00088400

088500 \'TE014INVALID FAMILY VIOLENCE \'. 00088500

088600 05 FILLER PIC X(50) VALUE 00088600

088700 \'TE015MEMBER ID REQUIRED. \'. 00088700

088800 05 FILLER PIC X(50) VALUE 00088800

088900 \'TE016VALID VALUE FOR DOB, SSN OR IRS-U-SSN \'. 00088900

089000 05 FILLER PIC X(50) VALUE 00089000

089100 \'TE017NEW MEMBER ID INVALID FOR ACTION TYPE CODE \'. 00089100

089200 05 FILLER PIC X(50) VALUE 00089200

089300 \'TE018VALID VALUE FOR SSN REQUIRED \'. 00089300

089400 05 FILLER PIC X(50) VALUE 00089400

089500 \'TE019INVALID NAME FORMAT \'. 00089500

089600 05 FILLER PIC X(50) VALUE 00089600

089700 \'TE020VALID FIRST NAME REQUIRED \'. 00089700

089800 05 FILLER PIC X(50) VALUE 00089800

089900 \'TE021VALID LAST NAME REQUIRED \'. 00089900

090000 05 FILLER PIC X(50) VALUE 00090000

090100 \'TE022LOCATE SOURCE INVALID FOR ACTION TYPE CODE \'. 00090100

090200 05 FILLER PIC X(50) VALUE 00090200

090300 \'TE023INVALID IRS 1099 INDICATOR \'. 00090300

090400 05 FILLER PIC X(50) VALUE 00090400

090500 \'TE024INVALID SUBMITTER FOR IRS 1099 INDICATOR \'. 00090500

090600 05 FILLER PIC X(50) VALUE 00090600

090700 \'TE026LOCATE REQUEST TYPE INVALID FOR ACTION TYPE \'. 00090700

090800 05 FILLER PIC X(50) VALUE 00090800

090900 \'TE027INVALID LOCATE SOURCE CODE \'. 00090900

091000 05 FILLER PIC X(50) VALUE 00091000

091100 \'TE029CASE TYPE INVALID FOR ACTION TYPE CODE \'. 00091100

091200 05 FILLER PIC X(50) VALUE 00091200

091300 \'TE030ORDER INDICATOR INVALID FOR ACTION TYPE CODE \'. 00091300

091400 05 FILLER PIC X(50) VALUE 00091400

091500 \'TE031CHANGED INFORMATION REQUIRED FOR ACTION TYPE \'. 00091500

091600 05 FILLER PIC X(50) VALUE 00091600

091700 \'TE032REC-ID FP WITH ACTION TYPE CODE A REQUIRED \'. 00091700

091800 05 FILLER PIC X(50) VALUE 00091800

091900 \'TE033INVALID VALUE FOR SSN \'. 00091900

092000 05 FILLER PIC X(50) VALUE 00092000

092100 \'TE035MEMBER ID OR VALID VALUE FOR SSN REQUIRED \'. 00092100

092200 05 FILLER PIC X(50) VALUE 00092200

092300 \'TE036ADD CASE RECORD REJECTED \'. 00092300

092400 05 FILLER PIC X(50) VALUE 00092400

092500 \'TE039INCONSISTENT ORDER INDICATOR \'. 00092500

092600 05 FILLER PIC X(50) VALUE 00092600

092700 \'TE100UNABLE TO IDENTIFY SSN \'. 00092700

092800 05 FILLER PIC X(50) VALUE 00092800

092900 \'TW001INVALID LOCATE SOURCE CODE \'. 00092900

093000 05 FILLER PIC X(50) VALUE 00093000

093100 \'TW002INVALID STATE OR COUNTRY OF BIRTH \'. 00093100

093200 05 FILLER PIC X(50) VALUE 00093200

093300 \'TW003INVALID SEX CODE \'. 00093300

093400 05 FILLER PIC X(50) VALUE 00093400

093500 \'TW004DOB: YEAR 2000 COMPLIANT FORMAT REQUIRED \'. 00093500

093600 05 FILLER PIC X(50) VALUE 00093600

093700 \'TW005SSN MUST BE SPACES OR NINE DIGITS GT ZERO \'. 00093700

093800 05 FILLER PIC X(50) VALUE 00093800

093900 \'TW006ADDITIONAL SSN INVALID FOR ACTION TYPE CODE \'. 00093900

094000 05 FILLER PIC X(50) VALUE 00094000

094100 \'TW007PREVIOUS SSN MUST EQUAL SPACES \'. 00094100

094200 05 FILLER PIC X(50) VALUE 00094200

094300 \'TW008INVALID NAME FORMAT \'. 00094300

094400 05 FILLER PIC X(50) VALUE 00094400

094500 \'TW010IRS-U SSN INVALID FOR ACTION TYPE CODE \'. 00094500

094600 05 FILLER PIC X(50) VALUE 00094600

094700 \'TW011ADDITIONAL NAMES NOT CONSECUTIVE \'. 00094700

094800 05 FILLER PIC X(50) VALUE 00094800

094900 \'TW012ADDITIONAL SSNS CANNOT BE EQUAL \'. 00094900

095000 05 FILLER PIC X(50) VALUE 00095000

095100 \'TW013INVALID CITY OF BIRTH \'. 00095100

095200 05 FILLER PIC X(50) VALUE 00095200

095300 \'TW014INVALID BUNDLE FPLS LOCATE RESULTS INDICATOR \'. 00095300

095400 05 FILLER PIC X(50) VALUE 00095400

095500 \'TW016LOCATE SOURCE VALUES CANNOT BE DUPLICATED \'. 00095500

095600 05 FILLER PIC X(50) VALUE 00095600

095700 \'TW017LOCATE SOURCES MUST BE CONSECUTIVE \'. 00095700

095800 05 FILLER PIC X(50) VALUE 00095800

095900 \'TW018INVALID FIPS COUNTY CODE \'. 00095900

096000 05 FILLER PIC X(50) VALUE 00096000

096100 \'TW019INVALID PREVIOUS CASE ID \'. 00096100

096200 05 FILLER PIC X(50) VALUE 00096200

096300 \'TW020FIRST AND LAST NAMES REQUIRED \'. 00096300

096400 05 FILLER PIC X(50) VALUE 00096400

096500 \'TW021ADDITIONAL SSNS MUST BE CONSECUTIVE \'. 00096500

096600 05 FILLER PIC X(50) VALUE 00096600

096700 \'TW022CASE ID AND PREVIOUS CASE ID CANNOT BE EQUAL \'. 00096700

096800 05 FILLER PIC X(50) VALUE 00096800

096900 \'TW023FATHERS NAME INVALID FOR ACTION TYPE CODE \'. 00096900

097000 05 FILLER PIC X(50) VALUE 00097000

097100 \'TW024MOTHERS NAME INVALID FOR ACTION TYPE CODE \'. 00097100

097200 05 FILLER PIC X(50) VALUE 00097200

097300 \'TW025SSN AND PREVIOUS SSN CANNOT BE EQUAL \'. 00097300

097400 05 FILLER PIC X(50) VALUE 00097400

097500 \'TW101SSN HAS NOT BEEN ASSIGNED BY SSA \'. 00097500

097600 05 FILLER PIC X(50) VALUE 00097600

097700 \'TW102SSN/NAME COMBINATION UNVERIFIED \'. 00097700

097800 00097800

097900 01 ERROR-MESSAGES-REDF REDEFINES ERROR-MESSAGES. 00097900

098000 05 ERROR-MESSAGE-TABLE OCCURS 79 TIMES. 00098000

098100 07 ERR-CODE PIC X(5). 00098100

098200 07 ERR-MESSAGE PIC X(45). 00098200

098300 00098300

098400 00098400

098500 01 HOLD-ERROR-CODES PIC X(25). 00098500

098600 01 HOLD-ERROR-CODES-REDF REDEFINES HOLD-ERROR-CODES. 00098600

098700 05 HOLD-ERROR-TABLE PIC X(5) OCCURS 5 TIMES. 00098700

098800 00098800

098900 00098900

099000 01 HEADER-ERROR-MESSAGES. 00099000

099100 05 FILLER PIC X(50) VALUE 00099100

099200 \'5000ETRANSMISSION HEADER RECDORD REQUIRED \'. 00099200

099300 05 FILLER PIC X(50) VALUE 00099300

099400 \'5001EDUPLICATE OR MISSING RECORD IDENTIFIERS \'. 00099400

099500 05 FILLER PIC X(50) VALUE 00099500

099600 \'5002EVALID TRANSMITTER STATE/TERRITORY REQUIRED \'. 00099600

099700 05 FILLER PIC X(50) VALUE 00099700

099800 \'5006EINVALID VERSION CONTROL NUMBER \'. 00099800

099900 05 FILLER PIC X(50) VALUE 00099900

100000 \'5007EBATCH NUMBER REQUIRED \'. 00100000

100100 05 FILLER PIC X(50) VALUE 00100100

100200 \'5008EINVALID BATCH NUMBER \'. 00100200

100300 05 FILLER PIC X(50) VALUE 00100300

100400 \'5009EDUPLICATE BATCH NUMBER \'. 00100400

100500 05 FILLER PIC X(50) VALUE 00100500

100600 \'5011WINVALID DATE, YEAR 2000 COMPLIANCE REQUIRED \'. 00100600

100700 05 FILLER PIC X(50) VALUE 00100700

100800 \'5012WONE TRANSMISSION TRAILER RECORD REQUIRED \'. 00100800

100900 05 FILLER PIC X(50) VALUE 00100900

101000 \'5013WFCR INPUT TRAILER RECORD COUNT NOT NUMERIC \'. 00101000

101100 05 FILLER PIC X(50) VALUE 00101100

101200 \'5014WFCR INPUT TRAILER RECORD COUNT INVALID \'. 00101200

101300 00101300

101400 01 HEADER-MESSAGES-REDF REDEFINES HEADER-ERROR-MESSAGES. 00101400

101500 05 HEADER-MESSAGE-TABLE OCCURS 11 TIMES. 00101500

101600 07 HDR-ERR-CODE PIC X(4). 00101600

101700 07 HDR-ERR-SEVERITY PIC X(1). 00101700

101800 07 HDR-ERR-MESSAGE PIC X(45). 00101800

101900 00101900

102000 00102000

102100 01 HOLD-HDR-ERROR-CODES PIC X(20). 00102100

102200 01 HOLD-HDR-ERROR-CODES-REDF REDEFINES 00102200

102300 HOLD-HDR-ERROR-CODES. 00102300

102400 05 HOLD-HDR-ERROR-TABLE PIC X(4) OCCURS 5 TIMES. 00102400

102500 00102500

102600 01 RETRANSMIT-MESSAGE PIC X(35) VALUE 00102600

102700 \' \*\* BATCH MUST BE RETRANSMITTED \*\*\'. 00102700

102800 00102800

102900 01 HEADER-ERROR-HEADER. 00102900

103000 05 FILLER PIC X(2) VALUE SPACES. 00103000

103100 05 HDR-ERROR-DATE PIC X(10) VALUE SPACES. 00103100

103200 05 FILLER PIC X(48) VALUE SPACES. 00103200

103300 05 FILLER PIC X(13) VALUE 00103300

103400 \'HEADER ERRORS\'. 00103400

103500 05 FILLER PIC X(48) VALUE SPACES. 00103500

103600 05 FILLER PIC X(6) VALUE \'PAGE: \'. 00103600

103700 05 HDR-PAGE-CNT PIC ZZZ9. 00103700

103800 00103800

103900 01 HEADER-DETAIL-HEADER. 00103900

104000 05 FILLER PIC X(2) VALUE SPACES. 00104000

104100 05 FILLER PIC X(46) VALUE 00104100

104200 \'BATCH NUMBER BATCH DATE ERROR CODE\'. 00104200

104300 05 FILLER PIC X(17) VALUE 00104300

104400 \' ERROR MESSAGE\'. 00104400

104500 05 FILLER PIC X(67) VALUE SPACES. 00104500

104600 00104600

104700 01 FORMAT-ERROR-DATE. 00104700

104800 05 FMT-ERR-MM PIC X(2) VALUE SPACES. 00104800

104900 05 FILLER PIC X VALUE \'/\'. 00104900

105000 05 FMT-ERR-DD PIC X(2) VALUE SPACES. 00105000

105100 05 FILLER PIC X VALUE \'/\'. 00105100

105200 05 FMT-ERR-CC PIC X(2) VALUE SPACES. 00105200

105300 05 FMT-ERR-YY PIC X(2) VALUE SPACES. 00105300

105400 00105400

105500 01 HEADER-ERROR-DETAIL-LINE. 00105500

105600 05 FILLER PIC X(5) VALUE SPACES. 00105600

105700 05 HED-BATCH-NUM PIC X(6) VALUE SPACES. 00105700

105800 05 FILLER PIC X(11) VALUE SPACES. 00105800

105900 05 HED-DATE PIC X(10) VALUE SPACES. 00105900

106000 05 FILLER PIC X(10) VALUE SPACES. 00106000

106100 05 HED-ERROR-CODE PIC X(4) VALUE SPACES. 00106100

106200 05 FILLER PIC X(6) VALUE SPACES. 00106200

106300 05 HED-ERROR-MESSAGE PIC X(45) VALUE SPACES. 00106300

106400 05 HED-ERROR-MESSAGE2 PIC X(35) VALUE SPACES. 00106400

106500 00106500

106600 01 CASE-ERROR-HEADER. 00106600

106700 05 FILLER PIC X(2) VALUE SPACES. 00106700

106800 05 CASE-ERROR-DATE PIC X(10) VALUE SPACES. 00106800

106900 05 FILLER PIC X(49) VALUE SPACES. 00106900

107000 05 FILLER PIC X(11) VALUE 00107000

107100 \'CASE ERRORS\'. 00107100

107200 05 FILLER PIC X(49) VALUE SPACES. 00107200

107300 05 FILLER PIC X(6) VALUE \'PAGE: \'. 00107300

107400 05 CASE-PAGE-CNT PIC ZZZ9. 00107400

107500 00107500

107600 01 PART-ERROR-HEADER. 00107600

107700 05 FILLER PIC X(2) VALUE SPACES. 00107700

107800 05 PART-ERROR-DATE PIC X(10) VALUE SPACES. 00107800

107900 05 FILLER PIC X(46) VALUE SPACES. 00107900

108000 05 FILLER PIC X(18) VALUE 00108000

108100 \'PARTICIPANT ERRORS\'. 00108100

108200 05 FILLER PIC X(45) VALUE SPACES. 00108200

108300 05 FILLER PIC X(6) VALUE \'PAGE: \'. 00108300

108400 05 PART-PAGE-CNT PIC ZZZ9. 00108400

108500 00108500

108600 01 QUERY-ERROR-HEADER. 00108600

108700 05 FILLER PIC X(2) VALUE SPACES. 00108700

108800 05 QUERY-ERROR-DATE PIC X(10) VALUE SPACES. 00108800

108900 05 FILLER PIC X(49) VALUE SPACES. 00108900

109000 05 FILLER PIC X(18) VALUE 00109000

109100 \'QUERY ERRORS\'. 00109100

109200 05 FILLER PIC X(48) VALUE SPACES. 00109200

109300 05 FILLER PIC X(6) VALUE \'PAGE: \'. 00109300

109400 05 QUERY-PAGE-CNT PIC ZZZ9. 00109400

109500 00109500

109600 01 DETAIL-HEADER. 00109600

109700 05 FILLER PIC X(50) VALUE 00109700

109800 \' CASE-ID MEMBER-ID SSN\'. 00109800

109900 05 FILLER PIC X(37) VALUE 00109900

110000 \' ERROR CODE ERROR MESSAGE\'. 00110000

110100 05 FILLER PIC X(45) VALUE SPACES. 00110100

110200 00110200

110300 01 CASE-DETAIL-HEADER. 00110300

110400 05 FILLER PIC X(50) VALUE 00110400

110500 \' CASE-ID \'. 00110500

110600 05 FILLER PIC X(37) VALUE 00110600

110700 \' ERROR CODE ERROR MESSAGE\'. 00110700

110800 05 FILLER PIC X(45) VALUE SPACES. 00110800

110900 00110900

111000 01 DASH-LINE. 00111000

111100 05 FILLER PIC X(2) VALUE SPACES. 00111100

111200 05 FILLER PIC X(129) VALUE ALL \'-\'. 00111200

111300 05 FILLER PIC X(2) VALUE SPACES. 00111300

111400 00111400

111500 01 ERROR-DETAIL-LINE. 00111500

111600 05 FILLER PIC X(2) VALUE SPACES. 00111600

111700 05 ERR-CASE-ID PIC X(15) VALUE SPACES. 00111700

111800 05 FILLER PIC X(6) VALUE SPACES. 00111800

111900 05 ERR-MEMBER-ID PIC X(15) VALUE SPACES. 00111900

112000 05 FILLER PIC X(6) VALUE SPACES. 00112000

112100 05 ERR-SSN PIC X(11) VALUE SPACES. 00112100

112200 05 FILLER PIC X(6) VALUE SPACES. 00112200

112300 05 ERR-ERROR-CODE PIC X(5) VALUE SPACES. 00112300

112400 05 FILLER PIC X(7) VALUE SPACES. 00112400

112500 05 ERR-ERROR-MESSAGE PIC X(45) VALUE SPACES. 00112500

112600 00112600

112700 01 ERROR-COUNTERS. 00112700

112800 05 CASE-LINE-CNTR PIC 9(2) VALUE 65. 00112800

112900 05 PART-LINE-CNTR PIC 9(2) VALUE 65. 00112900

113000 05 QUERY-LINE-CNTR PIC 9(2) VALUE 65. 00113000

113100 05 HDR-LINE-CNTR PIC 9(2) VALUE 65. 00113100

113200 05 CASE-PAGE-CNTR PIC 9(4) VALUE 0. 00113200

113300 05 PART-PAGE-CNTR PIC 9(4) VALUE 0. 00113300

113400 05 QUERY-PAGE-CNTR PIC 9(4) VALUE 0. 00113400

113500 05 HDR-PAGE-CNTR PIC 9(4) VALUE 0. 00113500

113600 00113600

113700 01 RECORD-COUNT-HEADER. 00113700

113800 05 FILLER PIC X(2) VALUE SPACES. 00113800

113900 05 REC-COUNT-DATE PIC X(10) VALUE SPACES. 00113900

114000 05 FILLER PIC X(48) VALUE SPACES. 00114000

114100 05 FILLER PIC X(13) VALUE 00114100

114200 \'RECORD COUNTS\'. 00114200

114300 05 FILLER PIC X(48) VALUE SPACES. 00114300

114400 05 FILLER PIC X(6) VALUE \'PAGE: \'. 00114400

114500 05 REC-COUNT-PAGE PIC ZZZ9. 00114500

114600 00114600

114700 01 RECORD-COUNT-DETAIL-HEADER. 00114700

114800 05 FILLER PIC X(47) VALUE 00114800

114900 \' HEADER TYPE BATCH \# RECORD TYPE\'. 00114900

115000 05 FILLER PIC X(36) VALUE 00115000

115100 \' ACCEPTED REJECTED\'. 00115100

115200 05 FILLER PIC X(39) VALUE 00115200

115300 \' PENDED TOTAL\'. 00115300

115400 05 FILLER PIC X(10) VALUE SPACES. 00115400

115500 00115500

115600 01 RECORD-COUNT-DETAIL-HEADER2. 00115600

115700 05 FILLER PIC X(47) VALUE SPACES. 00115700

115800 05 FILLER PIC X(39) VALUE 00115800

115900 \' SENT/RECEIVED SENT/RECEIVED\'. 00115900

116000 05 FILLER PIC X(40) VALUE 00116000

116100 \' SENT/RECEIVED SENT/RECEIVED\'. 00116100

116200 05 FILLER PIC X(6) VALUE SPACES. 00116200

116300 00116300

116400 01 RECORD-COUNT-DETAIL. 00116400

116500 05 FILLER PIC X(2) VALUE SPACES. 00116500

116600 05 RCD-HEADER-TYPE PIC X(8) VALUE SPACES. 00116600

116700 05 FILLER PIC X(10) VALUE SPACES. 00116700

116800 05 RCD-BATCH-NUM PIC X(6) VALUE SPACES. 00116800

116900 05 FILLER PIC X(10) VALUE SPACES. 00116900

117000 05 RCD-RECORD-TYPE PIC X(9) VALUE SPACES. 00117000

117100 05 FILLER PIC X(2) VALUE SPACES. 00117100

117200 05 SNT-ACCEPTED PIC ZZZZZZZ9. 00117200

117300 05 FILLER PIC X(1) VALUE \' \'. 00117300

117400 05 RCD-ACCEPTED PIC ZZZZZZZ9. 00117400

117500 05 FILLER PIC X(3) VALUE SPACES. 00117500

117600 05 SNT-REJECTED PIC ZZZZZZZ9. 00117600

117700 05 FILLER PIC X(1) VALUE \' \'. 00117700

117800 05 RCD-REJECTED PIC ZZZZZZZ9. 00117800

117900 05 FILLER PIC X(3) VALUE SPACES. 00117900

118000 05 SNT-PENDED PIC ZZZZZZZ9. 00118000

118100 05 FILLER PIC X(1) VALUE \' \'. 00118100

118200 05 RCD-PENDED PIC ZZZZZZZ9. 00118200

118300 05 FILLER PIC X(3) VALUE SPACES. 00118300

118400 05 SNT-TOTAL PIC ZZZZZZZ9. 00118400

118500 05 FILLER PIC X(1) VALUE \' \'. 00118500

118600 05 RCD-TOTAL PIC ZZZZZZZ9. 00118600

118700 05 FILLER PIC X(5) VALUE SPACES. 00118700

118800 00118800

118900 01 RECORD-COUNTERS. 00118900

119000 05 CASE-ACCEPTED-COUNT PIC 9(8) VALUE 0. 00119000

119100 05 CASE-REJECTED-COUNT PIC 9(8) VALUE 0. 00119100

119200 05 CASE-PENDED-COUNT PIC 9(8) VALUE 0. 00119200

119300 05 PERSON-ACCEPTED-COUNT PIC 9(8) VALUE 0. 00119300

119400 05 PERSON-REJECTED-COUNT PIC 9(8) VALUE 0. 00119400

119500 05 PERSON-PENDED-COUNT PIC 9(8) VALUE 0. 00119500

119600 05 QUERY-ACCEPTED-COUNT PIC 9(8) VALUE 0. 00119600

119700 05 QUERY-REJECTED-COUNT PIC 9(8) VALUE 0. 00119700

119800 05 QUERY-PENDED-COUNT PIC 9(8) VALUE 0. 00119800

119900 05 PROACTIVE-COUNT PIC 9(8) VALUE 0. 00119900

120000 05 IRS-1099-COUNT PIC 9(8) VALUE 0. 00120000

120100 05 LOCATE-COUNT PIC 9(8) VALUE 0. 00120100

120200 05 NDNH-COUNT PIC 9(8) VALUE 0. 00120200

120300 05 TOTAL-REC-COUNT PIC 9(8) VALUE 0. 00120300

120400 00120400

120500 01 FORMAT-SSN. 00120500

120600 05 SSN-F1-FIRST-THREE PIC X(3) VALUE SPACES. 00120600

120700 05 SSN-F1-FOUR-FIVE PIC X(2) VALUE SPACES. 00120700

120800 05 SSN-F1-LAST-FOUR PIC X(4) VALUE SPACES. 00120800

120900 00120900

121000 01 FORMATTED-SSN. 00121000

121100 05 SSN-F2-FIRST-THREE PIC X(3) VALUE SPACES. 00121100

121200 05 DASH-1 PIC X VALUE \'-\'. 00121200

121300 05 SSN-F2-FOUR-FIVE PIC X(2) VALUE SPACES. 00121300

121400 05 DASH-2 PIC X VALUE \'-\'. 00121400

121500 05 SSN-F2-LAST-FOUR PIC X(4) VALUE SPACES. 00121500

121600 00121600

121700 01 WS-EDIT-DATE. 00121700

121800 05 WS-EDIT-CC PIC X(2) VALUE SPACES. 00121800

121900 05 WS-EDIT-YY PIC X(2) VALUE SPACES. 00121900

122000 05 WS-EDIT-MM PIC X(2) VALUE SPACES. 00122000

122100 05 WS-EDIT-DD PIC X(2) VALUE SPACES. 00122100

122200 00122200

122300 01 FORMAT-DATE. 00122300

122400 05 FORMAT-YY PIC X(2) VALUE SPACES. 00122400

122500 05 FORMAT-MM PIC X(2) VALUE SPACES. 00122500

122600 05 FORMAT-DD PIC X(2) VALUE SPACES. 00122600

122700 00122700

122800 01 FORMAT-DATE2. 00122800

122900 05 FORMAT2-CC PIC X(2) VALUE SPACES. 00122900

123000 05 FORMAT2-YY PIC X(2) VALUE SPACES. 00123000

123100 05 FORMAT2-MM PIC X(2) VALUE SPACES. 00123100

123200 05 FORMAT2-DD PIC X(2) VALUE SPACES. 00123200

123300 00123300

123400 01 FORMATTED-DATE. 00123400

123500 05 FORMATTED-MM PIC X(2) VALUE SPACES. 00123500

123600 05 FILLER PIC X VALUE \'/\'. 00123600

123700 05 FORMATTED-DD PIC X(2) VALUE SPACES. 00123700

123800 05 FILLER PIC X VALUE \'/\'. 00123800

123900 05 FORMATTED-CC PIC X(2) VALUE SPACES. 00123900

124000 05 FORMATTED-YY PIC X(2) VALUE SPACES. 00124000

124100 00124100

124200 00124200

124300 PROCEDURE DIVISION. 00124300

124400 00124400

124500 0000-MAINLINE. 00124500

124600 PERFORM 0100-INITIALIZE-AND-OPEN THRU 0100-EXIT. 00124600

124700 PERFORM 0500-READ-RESPONSES THRU 0500-EXIT. 00124700

124800 PERFORM 1000-PROCESS-RESPONSES THRU 1000-EXIT 00124800

124900 UNTIL NO-MORE-RESPONSES. 00124900

125000 PERFORM 0200-WRITE-TOTAL-AND-CLOSE THRU 0200-EXIT. 00125000

125100 STOP RUN. 00125100

125200 0000-EXIT. EXIT. 00125200

125300 00125300

125400\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00125400

125500\* 0100-INITIALIZE-AND-OPEN. \* 00125500

125600\* THIS PARAGRAPH OPENS THE REQUIRED FILES AND SETS ALL THE \*
00125600

125700\* DEFAULT VALUES FOR VARIABLES IN WORKING STORAGE. \* 00125700

125800\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00125800

125900 00125900

126000 0100-INITIALIZE-AND-OPEN. 00126000

126100 OPEN INPUT FCR-RESPONSE-FILE 00126100

126200 OUTPUT PRINTER, 00126200

126300 CASE-ERROR-FILE, 00126300

126400 HEADER-ERROR-FILE, 00126400

126500 PART-ERROR-FILE, 00126500

126600 QUERY-ERROR-FILE, 00126600

126700 CSENET-FILE. 00126700

126800 OPEN I-O FCR-AUDIT-FILE 00126800

126900\* IF AUDIT-FILE-STATUS = ZEROS 00126900

127000\* DISPLAY \' \*\* ERROR OPENING AUDIT FILE \*\*\' 00127000

127100\* \' FILE STATUS = \', AUDIT-FILE-STATUS 00127100

127200\* CLOSE FCR-RESPONSE-FILE, PRINTER, CSENET-FILE, 00127200

127300\* HEADER-ERROR-FILE, 00127300

127400\* FCR-AUDIT-FILE, CASE-ERROR-FILE, 00127400

127500\* PART-ERROR-FILE, QUERY-ERROR-FILE 00127500

127600\* STOP RUN 00127600

127700\* END-IF. 00127700

127800 ACCEPT FORMAT-DATE FROM DATE. 00127800

127900 MOVE FORMAT-YY TO FORMAT2-YY. 00127900

128000 MOVE FORMAT-MM TO FORMAT2-MM. 00128000

128100 MOVE FORMAT-DD TO FORMAT2-DD. 00128100

128200 IF FORMAT2-YY \< \'80\' 00128200

128300 MOVE \'20\' TO FORMAT2-CC 00128300

128400 ELSE 00128400

128500 MOVE \'19\' TO FORMAT2-CC 00128500

128600 END-IF. 00128600

128700 MOVE FORMAT2-YY TO FORMATTED-YY. 00128700

128800 MOVE FORMAT2-CC TO FORMATTED-CC. 00128800

128900 MOVE FORMAT2-MM TO FORMATTED-MM. 00128900

129000 MOVE FORMAT2-DD TO FORMATTED-DD. 00129000

129100 0100-EXIT. EXIT. 00129100

129200 00129200

129300\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00129300

129400\* 0200-WRITE-TOTAL-AND-CLOSE. \* 00129400

129500\* EACH TRANSMISSION REQUIRES A TRAILER RECORD WHICH CONTAINS \*
00129500

129600\* THE RECORD COUNT FOR THE TRANSMISSION. THIS PARAGRAPH SETS \*
00129600

129700\* THE RECORD TYPE, MOVES IN THE RECORD COUNT AND WRITES THE \*
00129700

129800\* TRAILER RECORD. IN ADDITION TO THIS IT ALSO WRITES THE COUNT\*
00129800

129900\* TO A REPORT TO TELL THE USER THE BATCH CONTROL NUMBER, DATE \*
00129900

130000\* OF TRANSMISSION AND THE NUMBER OF RECORDS SENT. \* 00130000

130100\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00130100

130200 00130200

130300 0200-WRITE-TOTAL-AND-CLOSE. 00130300

130400 CLOSE FCR-RESPONSE-FILE, FCR-AUDIT-FILE, PRINTER, 00130400

130500 CSENET-FILE, CASE-ERROR-FILE, PART-ERROR-FILE, 00130500

130600 QUERY-ERROR-FILE, HEADER-ERROR-FILE. 00130600

130700 0200-EXIT. EXIT. 00130700

130800 00130800

130900 00130900

131000\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00131000

131100\* 0500-READ-RESPONSES. \* 00131100

131200\* THIS IS THE ROUTINE THAT READS THE RESPONSE FILE. \* 00131200

131300\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00131300

131400 00131400

131500 0500-READ-RESPONSES. 00131500

131600 READ FCR-RESPONSE-FILE 00131600

131700 AT END SET NO-MORE-RESPONSES TO TRUE 00131700

131800 GO TO 0500-EXIT. 00131800

131900 MOVE FRR-RECORD-ID TO DETERMINE-HEADER-TYPE 00131900

132000 DETERMINE-RECORD-TYPE. 00132000

132100 00132100

132200 IF ITS-A-HEADER 00132200

132300 MOVE SPACES TO ERROR-SEVERITY-IND, 00132300

132400 VALID-HEADER-IND 00132400

132500 INITIALIZE RECORD-COUNTERS 00132500

132600 MOVE FRR-RECORD-ID TO HOLD-HEADER-TYPE 00132600

132700 MOVE FCR-RESPONSE-REC TO WS-RESPONSE-HEADER 00132700

132800 END-IF. 00132800

132900 00132900

133000 IF ITS-A-RESPONSE-TRAILER 00133000

133100 IF THE-BATCH-WAS-REJECTED 00133100

133200 CONTINUE 00133200

133300 ELSE 00133300

133400 MOVE FCR-RESPONSE-REC TO WS-RESPONSE-TRAILER 00133400

133500 PERFORM 9000-PRINT-BATCH-COUNTS THRU 9000-EXIT 00133500

133600 SET THE-END-OF-THIS-BATCH TO TRUE 00133600

133700 END-IF 00133700

133800 END-IF. 00133800

133900 0500-EXIT. EXIT. 00133900

134000 00134000

134100\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00134100

134200\* 1000-PROCESS-RESPONSES. \* 00134200

134300\* THIS IS THE ROUTINE THAT DRIVES ALL RESPONSES RETURNED. \*
00134300

134400\* THIS PARAGRAPH WILL EVALUATE THE HEADER TYPE THEN EXECUTE THE\*
00134400

134500\* ROUTINES THAT WILL HANDLE ALL THE TRANSACTIONS UNDER THAT \*
00134500

134600\* HEADER TYPE UNTIL IT HITS A TRAILER RECORD. THE FIRST STEP \*
00134600

134700\* IN THE PARAGRAPH CHECKS TO SEE IF THERE WERE ANY ERRORS \*
00134700

134800\* ASSOCIATED WITH THE BATCH. IF THERE WAS IT WILL CHECK THE \*
00134800

134900\* ERROR SEVERITY, THAT IS STORED IN THE ERROR MESSAGE TABLE \*
00134900

135000\* HEADER-ERROR-MESSAGES. IF THE BATCH HAD A SEVERE ERROR THAT \*
00135000

135100\* CAUSED THE BATCH TO BE REJECTED BY THE FCR, AN ERROR MESSAGE \*
00135100

135200\* WILL BE PRINTED, A TIGHT LOOP OF READS WILL BE PERFORMED \*
00135200

135300\* UNTIL A TRAILER IS HIT, THEN ANOTHER READ WILL BE ISSUED TO \*
00135300

135400\* GET TO THE NEXT HEADER RECORD. \* 00135400

135500\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00135500

135600 1000-PROCESS-RESPONSES. 00135600

135700 IF ITS-A-HEADER AND 00135700

135800 FCR-RESP-ERRORS NOT = SPACES 00135800

135900 PERFORM 5500-PRINT-HEADER-ERRORS THRU 5500-EXIT 00135900

136000 IF THE-BATCH-WAS-REJECTED 00136000

136100 PERFORM 0500-READ-RESPONSES THRU 0500-EXIT 00136100

136200 END-IF 00136200

136300 END-IF. 00136300

136400 SET BEGINNING-OF-THIS-BATCH TO TRUE. 00136400

136500 00136500

136600 EVALUATE TRUE 00136600

136700 00136700

136800 WHEN ITS-A-ROUTINE-HEADER OR 00136800

136900 ITS-A-PENDED-HEADER 00136900

137000 PERFORM 0500-READ-RESPONSES THRU 0500-EXIT 00137000

137100 PERFORM 2000-ACKNOWLEDGEMENT-ROUTINE 00137100

137200 THRU 2000-EXIT 00137200

137300 UNTIL THE-END-OF-THIS-BATCH 00137300

137400 00137400

137500 WHEN ITS-A-LOCATE-HEADER 00137500

137600 PERFORM 0500-READ-RESPONSES THRU 0500-EXIT 00137600

137700 PERFORM 3000-LOCATE-ROUTINE THRU 3000-EXIT 00137700

137800 UNTIL THE-END-OF-THIS-BATCH 00137800

137900 00137900

138000 WHEN OTHER 00138000

138100 DISPLAY \' \*\* INVALID HEADER TYPE \*\*\' 00138100

138200 END-EVALUATE. 00138200

138300 PERFORM 0500-READ-RESPONSES THRU 0500-EXIT. 00138300

138400 1000-EXIT. EXIT. 00138400

138500 00138500

138600\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00138600

138700\* 2000-ACKNOWLEDGEMENT-ROUTINE. \* 00138700

138800\* THIS PARAGRAPH WILL HANDLE ALL RESPONSES THAT FALL UNDER \*
00138800

138900\* THE ROUTINE BATCH ACKNOWLEDGEMENT HEADER - REC ID = \'FB\' \*
00138900

139000\* THE PROGRAM WILL LOOP THROUGH THIS PARAGRAPH UNTIL IT HITS \*
00139000

139100\* A TRAILER RECORD (REC-ID = \'FX\') AND PROCESS THE DETAIL \*
00139100

139200\* RECORDS AS LISTED BELOW: \* 00139200

139300\* \* 00139300

139400\* REC-ID DESCRIPTION \* 00139400

139500\* \-\-\-\-\-- \-\-\-\-\-\-\-\-\-\-- \* 00139500

139600\* FD CASE ACKNOWLEDGEMENT - A RECORD OF THIS \* 00139600

139700\* TYPE WILL BE RETURNED FOR EACH CASE SENT \* 00139700

139800\* IN TO BE ADDED, CHANGED OR DELETED. \* 00139800

139900\* \* 00139900

140000\* FS PERSON ACKNOWLEDGEMENT - A RECORD OF THIS \* 00140000

140100\* TYPE WILL BE RETURNED FOR ALL PERSON \* 00140100

140200\* RECORDS SENT IN TO BE ADDED, CHANGED OR \* 00140200

140300\* DELETED. A RECORD OF THIS TYPE WILL ALSO \* 00140300

140400\* BE RETURNED FOR ALL LOCATE REQUESTS \* 00140400

140410\* SUBMITTED. \* 00140410

140420\* \* 00140420

140500\* FG QUERY ACKNOWLEDGEMENT - A RECORD OF THIS \* 00140500

140600\* TYPE WILL BE RETURNED FOR ALL QUERIES SENT\* 00140600

140700\* IN. \* 00140700

140800\* \* 00140800

140900\* FX TRAILER RECORD - THIS RECORD WILL INDICATE\* 00140900

141000\* THE END OF THE ACKNOWLEDGEMENT RECORDS FOR\* 00141000

141100\* A BATCH. THIS RECORD WILL HAVE RECORD \* 00141100

141200\* COUNTS TO VERIFY THE NUMBER OF RECORDS \* 00141200

141300\* SENT WAS THE SAME NUMBER RECEIVED. \* 00141300

141400\* \* 00141400

141500\* IN ADDITION TO ACKNOWLEDGEMENTS AND ERRORS BEING RETURNED \*
00141500

141600\* UNDER THIS HEADER TYPE, THE PERSON ACKNOWLEDGEMENT RECORD \*
00141600

141700\* (REC-ID = \'FS\'), MAY CONTAIN INFORMATION THE STATE WISHES \*
00141700

141800\* TO ENTER INTO THEIR STATE CASE REGISTRY. THIS INFORMATION\*
00141800

141900\* IS AS FOLLOWS: \* 00141900

142000\* \* 00142000

142100\* - PROVIDED/CORRECTED SSN \* 00142100

142200\* - MULTIPLE SSN\'S (RECORD LAYOUT ALLOWS FOR 3) \* 00142200

142300\* - CORRECTED DATE OF BIRTH (FROM SSA RECORDS) \* 00142300

142400\* - DATE OF DEATH - FUTURE USE \* 00142400

142500\* - SSA ZIP CODE OF LAST RESIDENCE - FUTURE USE \* 00142500

142600\* - SSA ZIP CODE OF LUMP SUM PAYMENT - FUTURE USE \* 00142600

142700\* - FCR PRIMARY SSN - AS STORED ON FCR \* 00142700

142800\* - FCR PRIMARY FIRST NAME - AS STORED ON FCR \* 00142800

142900\* - FCR PRIMARY MIDDLE NAME - AS STORED ON FCR \* 00142900

143000\* - FCR PRIMARY LAST NAME - AS STORED ON FCR \* 00143000

143100\* \* 00143100

143200\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00143200

143300 00143300

143400 2000-ACKNOWLEDGEMENT-ROUTINE. 00143400

143500 00143500

144000 EVALUATE TRUE 00144000

144100 00144100

144200 WHEN ITS-A-CASE-RECORD 00144200

144300 PERFORM 2100-PROCESS-CASE THRU 2100-EXIT 00144300

144400 00144400

144500 WHEN ITS-A-PERSON-RECORD 00144500

144600 PERFORM 2200-PROCESS-PERSON THRU 2200-EXIT 00144600

144700 00144700

144800 WHEN ITS-A-QUERY-RECORD 00144800

144900 PERFORM 2300-PROCESS-QUERY THRU 2300-EXIT 00144900

145000 00145000

145100 END-EVALUATE. 00145100

145200 00145200

145300 PERFORM 0500-READ-RESPONSES THRU 0500-EXIT. 00145300

145400 2000-EXIT. EXIT. 00145400

145500 00145500

145600 2100-PROCESS-CASE. 00145600

145900 MOVE FCR-RESPONSE-REC TO WS-FCR-CASE-RECORD. 00145900

146000 00146000

146100 EVALUATE TRUE 00146100

146200 00146200

146300 WHEN FCR-CASE-ACCEPTED 00146300

146400 ADD 1 TO CASE-ACCEPTED-COUNT 00146400

146500 MOVE WS-ACCEPTED-IND TO WS-ACKNOWLEDGEMENT-CODE 00146500

146600 00146600

146700 WHEN FCR-CASE-REJECTED 00146700

146800\*\*\* 00146800

146900\* IF YOU WISH TO ISSUE A WORKER ALERT FOR REJECTED CASES 00146900

147000\* UNCOMMENT THE FOLLOWING PERFORM STATEMENT. 00147000

147100\*\*\* 00147100

147200\*\*\* MOVE \< YOUR ALERT MESSAGE \> TO 00147200

147300\*\*\* WS-WORKER-ALERT-MESSAGE 00147300

147400\*\*\* PERFORM 4000-ALERT-WORKER THRU 4000-EXIT 00147400

147500 ADD 1 TO CASE-REJECTED-COUNT 00147500

147600 MOVE WS-REJECTED-IND TO WS-ACKNOWLEDGEMENT-CODE 00147600

147700 00147700

147800 WHEN FCR-CASE-PENDED 00147800

147900 ADD 1 TO CASE-PENDED-COUNT 00147900

148000 MOVE WS-PENDING-IND TO WS-ACKNOWLEDGEMENT-CODE 00148000

148100 END-EVALUATE. 00148100

148200 00148200

148300 MOVE FCR-CASE-ACTION-TYPE-CODE TO AUDIT-TRANS-ACTION-CD 00148300

148400 MOVE FCR-CASE-RECORD-ID TO AUDIT-TRANS-TYPE. 00148400

148500 MOVE FCR-CASE-CASE-ID TO AUDIT-TRANS-KEY-1. 00148500

148600 MOVE SPACES TO AUDIT-TRANS-KEY-2. 00148600

148700 00148700

148800 PERFORM 5000-UPDATE-AUDIT-FILE THRU 5000-EXIT. 00148800

148900 00148900

149000 IF FCR-CASE-ERROR-CODES = SPACES 00149000

149100 CONTINUE 00149100

149200 ELSE 00149200

149300 PERFORM 6000-PRINT-CASE-ERRORS THRU 6000-EXIT 00149300

149400 END-IF. 00149400

149500 00149500

149600 2100-EXIT. EXIT. 00149600

149700 00149700

149800\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00149800

149900\* 2000-PROCESS-PERSON. \* 00149900

150000\* THIS PARAGRAPH PROCESSES THE PERSON ACKNOWLEDGEMENT RECORDS\*
00150000

150100\* \* 00150100

150200\* \* 00150200

150300\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00150300

150400 00150400

150500 2200-PROCESS-PERSON. 00150500

150800 MOVE FCR-RESPONSE-REC TO WS-FCR-PART-RECORD. 00150800

150900 00150900

151000 EVALUATE TRUE 00151000

151100 WHEN FCR-PARTICIPANT-ACCEPTED 00151100

151200 ADD 1 TO PERSON-ACCEPTED-COUNT 00151200

151300 MOVE WS-ACCEPTED-IND TO WS-ACKNOWLEDGEMENT-CODE 00151300

151400 PERFORM 2260-UPDATE-CSE-DATABASE THRU 2260-EXIT 00151400

151500 00151500

151600 WHEN FCR-PARTICIPANT-REJECTED 00151600

151700\*\*\* 00151700

151800\* IF YOU WISH TO ISSUE A WORKER ALERT FOR REJECTED CASES 00151800

151900\* UNCOMMENT THE FOLLOWING PERFORM STATEMENT. 00151900

152000\* - CHECK TO SEE IF THE PARTICIPANT IS AN NCP 00152000

152100\* - READ THE CSE DATABASE TO SEE IF HE IS IN LOCATE STATUS
00152100

152200\* - BUILD AND ISSUE THE WORKER ALERT 00152200

152300\*\*\* 00152300

152400\*\*\* IF FCR-PART-PARTICIPANT-TYPE = \'NP\' 00152400

152500\*\*\* \<INSERT CODE TO NAVIGATE TO YOUR PARTICIPANT RECORD\>
00152500

152600\*\*\* IF \<PARTICIPANT IS IN LOCATE STATUS\> 00152600

152700\*\*\* MOVE \< YOUR ALERT MESSAGE \> TO 00152700

152800\*\*\* WS-WORKER-ALERT-MESSAGE 00152800

152900\*\*\* PERFORM 4000-ALERT-WORKER THRU 4000-EXIT 00152900

153000\*\*\* END-IF 00153000

153100\*\*\* END-IF 00153100

153200 ADD 1 TO PERSON-REJECTED-COUNT 00153200

153300 MOVE WS-REJECTED-IND TO WS-ACKNOWLEDGEMENT-CODE 00153300

153400 00153400

153500 WHEN FCR-PARTICIPANT-PENDED 00153500

153600 ADD 1 TO PERSON-PENDED-COUNT 00153600

153700 MOVE WS-PENDING-IND TO WS-ACKNOWLEDGEMENT-CODE 00153700

153800 END-EVALUATE. 00153800

153900 00153900

154000 MOVE FCR-PART-ACTION-TYPE-CODE TO AUDIT-TRANS-ACTION-CD 00154000

154100 MOVE FCR-PART-RECORD-ID TO AUDIT-TRANS-TYPE. 00154100

154200 MOVE FCR-PART-CASE-ID TO AUDIT-TRANS-KEY-1. 00154200

154300 MOVE FCR-PART-MEMBER-ID TO AUDIT-TRANS-KEY-2. 00154300

154400 00154400

154500 PERFORM 5000-UPDATE-AUDIT-FILE THRU 5000-EXIT. 00154500

154600 00154600

154700 IF FCR-PART-ERROR-CODES = SPACES 00154700

154800 CONTINUE 00154800

154900 ELSE 00154900

155000 PERFORM 7000-PRINT-PARTICIPANT-ERRORS THRU 7000-EXIT 00155000

155100 END-IF. 00155100

155200 2200-EXIT. EXIT. 00155200

155300 00155300

155400 2260-UPDATE-CSE-DATABASE. 00155400

155500\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00155500

155600\* THIS PARAGRAPH IS WHERE CODE SHOULD BE WRITTEN TO ADD \*
00155600

155700\* ANY NEW INFORMATION PASSED BACK BY THE FCR. CODE WILL NEED \*
00155700

155800\* TO BE WRITTEN TO NAVIGATE TO THE CORRECT SEGMENT OF YOUR \*
00155800

155900\* DATABASE AND ADD THE NEW ELEMENTS. \* 00155900

156000\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00156000

156200 00156200

156300\*\*\* 00156300

156400\* INSERT THE LOGIC HERE TO NAVIGATE TO THE DATABASE SEGMENT
00156400

156500\* WHERE YOU WANT TO STORE THE NEW INFORMATION, REPLACE THE
00156500

156600\* X\'S WITH THE DATABASE ELEMENT NAMES IN THE MOVE STATEMENTS
00156600

156700\* THEN ISSUE THE WRITE TO THE DATABASE. 00156700

156800\*\*\* 00156800

156900 00156900

157000\* IF SSN-FOUND-OR-CORRECTED 00157000

157100\* MOVE FCR-PART-CORRECT-SSN 00157100

157200\* TO XXXXXXXXXXXXXXXXXXXX 00157200

157300\* END-IF. 00157300

157400 00157400

157500\* IF SSA-DATE-OF-BIRTH-WAS-USED 00157500

157600\* MOVE FCR-PART-DATE-OF-BIRTH 00157600

157700\* TO XXXXXXXXXXXXXXXXXXXX 00157700

157800\* END-IF. 00157800

157900 00157900

158000\* MOVE FCR-PART-MULTIPLE-SSN1 00158000

158100\* TO XXXXXXXXXXXXXXXXXXXXXX. 00158100

158200 00158200

158300\* MOVE FCR-PART-MULTIPLE-SSN2 00158300

158400\* TO XXXXXXXXXXXXXXXXXXXXXX. 00158400

158500 00158500

158600\* MOVE FCR-PART-MULTIPLE-SSN3 00158600

158700\* TO XXXXXXXXXXXXXXXXXXXXXX. 00158700

158800 00158800

158900\* MOVE FCR-PART-SSA-DOB-IND 00158900

159000\* TO XXXXXXXXXXXXXXXXXXXXXX. 00159000

159100 00159100

159200\* MOVE FCR-PART-BATCH-NUMBER 00159200

159300\* TO XXXXXXXXXXXXXXXXXXXXXX. 00159300

159400 00159400

159500\* MOVE FCR-PART-DATE-OF-DEATH 00159500

159600\* TO XXXXXXXXXXXXXXXXXXXXXX. 00159600

159700 00159700

159800\* MOVE FCR-PART-SSA-LAST-ZIP-CODE 00159800

159900\* TO XXXXXXXXXXXXXXXXXXXXXX. 00159900

160000 00160000

160100\* MOVE FCR-PART-SSA-ZIP-OF-PAYMENT 00160100

160200\* TO XXXXXXXXXXXXXXXXXXXXXX. 00160200

160300 00160300

160400\* MOVE FCR-PART-PRIMARY-SSN 00160400

160500\* TO XXXXXXXXXXXXXXXXXXXXXX. 00160500

160600 00160600

160700\* MOVE FCR-PART-PRIMARY-FNAME 00160700

160800\* TO XXXXXXXXXXXXXXXXXXXXXX. 00160800

160900 00160900

161000\* MOVE FCR-PART-PRIMARY-MNAME 00161000

161100\* TO XXXXXXXXXXXXXXXXXXXXXX. 00161100

161200 00161200

161300\* MOVE FCR-PART-PRIMARY-LNAME 00161300

161400\* TO XXXXXXXXXXXXXXXXXXXXXX. 00161400

161500 00161500

161600 2260-EXIT. EXIT. 00161600

161700 00161700

161800 2300-PROCESS-QUERY. 00161800

162100 MOVE FCR-RESPONSE-REC TO WS-QUERY-RESPONSE. 00162100

162200 00162200

162300 EVALUATE TRUE 00162300

162400 WHEN QRY-ACCEPTED 00162400

162500 ADD 1 TO QUERY-ACCEPTED-COUNT 00162500

162600 MOVE WS-ACCEPTED-IND TO WS-ACKNOWLEDGEMENT-CODE 00162600

162700 00162700

162800 WHEN QRY-REJECTED 00162800

162900 ADD 1 TO QUERY-REJECTED-COUNT 00162900

163000\*\*\* 00163000

163100\* IF YOU WISH TO ISSUE A WORKER ALERT FOR REJECTED QUERIES
00163100

163200\* UNCOMMENT THE FOLLOWING PERFORM STATEMENT. 00163200

163300\*\*\* 00163300

163400\*\*\* MOVE \< YOUR ALERT MESSAGE \> TO 00163400

163500\*\*\* WS-WORKER-ALERT-MESSAGE 00163500

163600\*\*\* PERFORM 4000-ALERT-WORKER THRU 4000-EXIT 00163600

163700 MOVE WS-REJECTED-IND TO WS-ACKNOWLEDGEMENT-CODE 00163700

163800 00163800

163900 WHEN QRY-PENDED 00163900

164000 ADD 1 TO QUERY-PENDED-COUNT 00164000

164100 MOVE WS-PENDING-IND TO WS-ACKNOWLEDGEMENT-CODE 00164100

164200 END-EVALUATE. 00164200

164300 00164300

164400 MOVE QRY-ACTION-TYPE-CODE TO AUDIT-TRANS-ACTION-CD. 00164400

164500 MOVE QRY-REC-ID TO AUDIT-TRANS-TYPE. 00164500

164600 MOVE QRY-CASE-ID TO AUDIT-TRANS-KEY-1. 00164600

164700 MOVE QRY-MEMBER-ID TO AUDIT-TRANS-KEY-2. 00164700

164800 00164800

164900 PERFORM 5000-UPDATE-AUDIT-FILE THRU 5000-EXIT. 00164900

165000 00165000

165100 IF QRY-ERROR-CODES = SPACES 00165100

165200 CONTINUE 00165200

165300 ELSE 00165300

165400 PERFORM 8000-PRINT-QUERY-ERRORS THRU 8000-EXIT 00165400

165500 END-IF. 00165500

165600 00165600

165700 2300-EXIT. EXIT. 00165700

165800 00165800

165900\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00165900

166000\* 3000-LOCATE-ROUTINE. \* 00166000

166100\* THIS PARAGRAPH WILL HANDLE ALL RESPONSES THAT FALL UNDER \*
00166100

166200\* THE LOCATE RESPONSE HEADER - REC-ID = \'FL\'. THESE ARE \*
00166200

166300\* THE RESPONSES FOR RECORDS WHICH WERE SUBMITTED FOR LOCATE \*
00166300

166400\* OR QUERIES (RE-SENDING THE PROACTIVE INFORMATION). \* 00166400

166500\* THE PROGRAM WILL LOOP THROUGH THIS PARAGRAPH UNTIL IT HITS \*
00166500

166600\* A TRAILER RECORD (REC-ID = \'FX\') AND PROCESS THE DETAIL \*
00166600

166700\* RECORDS AS LISTED BELOW: \* 00166700

166800\* \* 00166800

166900\* REC-ID DESCRIPTION \* 00166900

167000\* \-\-\-\-\-- \-\-\-\-\-\-\-\-\-\-- \* 00167000

167100\* FT FCR QUERY/PROACTIVE MATCH RESPONSE RECORD \* 00167100

167200\* THIS WILL BE RETURNED FOR ALL PARTICIPANTS\* 00167200

167300\* ADDED TO THE FCR OR CHANGED ON THE FCR, \* 00167300

167310\* WHO WERE IDENTIFIED AS PARTICIPATING IN A \* 00167310

167400\* CASE IN ANOTHER STATE. IT IS ALSO SENT IN\* 00167400

167500\* IN RESPONSE TO AN FCR INPUT QUERY RECORD. \* 00167500

167510\* \* 00167510

167600\* FH FCR IRS 1099 RESPONSE RECORD - THIS IS \* 00167600

167700\* WHERE IRS 1099 INFORMATION WILL BE \* 00167700

167800\* RETURNED. THIS WILL CONTAIN THE LATEST \* 00167800

167900\* ADDRESSES AND MONETARY DATA KNOWN BY THE \* 00167900

168000\* IRS. \* 00168000

168100\* \* 00168100

168200\* FF FCR LOCATE RESPONSE - THIS IS WHERE ALL \* 00168200

168300\* FPLS LOCATES OTHER THAN 1099 REQUESTS WILL\* 00168300

168400\* BE RETURNED. THIS WILL INCLUDE DATA FROM \* 00168400

168500\* ALL SOURCES FOR WHICH A REQUEST WAS MADE. \* 00168500

168600\* THIS INFORMATION MAY BE DATED SO THE DATE \* 00168600

168700\* OF ADDRESS FIELD SHOULD BE EXAMINED TO \* 00168700

168800\* ENSURE THE INFORMATION IS CURRENT. \* 00168800

168900\* \* 00168900

169000\* FN FCR NDNH LOCATE/PROACTIVE MATCH RESPONSE \* 00169000

169010\* RECORD - THIS IS WHERE INFORMATION FROM \* 00169010

169100\* THE NATIONAL DIRECTORY OF NEW HIRES WILL \* 00169100

169200\* BE RETURNED. THIS WILL BE THE MOST \* 00169200

169300\* CURRENT INFORMATION AVAILABLE AND SHOULD \* 00169300

169400\* BE KEPT. THIS WILL CONTAIN EMPLOYEE AND \* 00169400

169500\* EMPLOYER ADDRESSES AS WELL AS MONETARY \* 00169500

169600\* DATA. THIS DATA SHOULD BE USED TO \* 00169600

169700\* GENERATE WAGE WITHHOLDINGS AND TO VERIFY \* 00169700

169800\* ADDRESS INFORMATION. \* 00169800

169900\* \* 00169900

170000\* FX FCR RESPONSE TRAILER RECORD - THIS RECORD \* 00170000

170010\* WILL INDICATE THE END OF THE \* 00170010

170100\* ACKNOWLEDGEMENT RECORDS FOR A BATCH. THIS\* 00170100

170200\* RECORD WILL CONTAIN RECORD COUNTS TO \* 00170200

170300\* VERIFY THE NUMBER OF RECORDS SENT WAS THE \* 00170300

170400\* SAME NUMBER RECEIVED. \* 00170400

170500\* \* 00170500

170600\* \* 00170600

170700\* \* 00170700

170800\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00170800

170900 00170900

171000 3000-LOCATE-ROUTINE. 00171000

171300 00171300

171400 EVALUATE TRUE 00171400

171500 00171500

171600 WHEN ITS-A-PROACTIVE-MATCH 00171600

171700 ADD 1 TO PROACTIVE-COUNT 00171700

171800 PERFORM 3100-PROACTIVE-MATCH THRU 3100-EXIT 00171800

171900 00171900

172000 WHEN ITS-A-1099-RECORD 00172000

172100 ADD 1 TO IRS-1099-COUNT 00172100

172200 PERFORM 3200-PROCESS-1099 THRU 3200-EXIT 00172200

172300 00172300

172400 WHEN ITS-A-LOCATE-RESPONSE 00172400

172500 ADD 1 TO LOCATE-COUNT 00172500

172600 PERFORM 3300-PROCESS-LOCATE THRU 3300-EXIT 00172600

172700 00172700

172800 WHEN ITS-A-NEWHIRE-RECORD 00172800

172900 ADD 1 TO NDNH-COUNT 00172900

173000 PERFORM 3400-PROCESS-NEWHIRE THRU 3400-EXIT 00173000

173100 00173100

173200 END-EVALUATE. 00173200

173300 PERFORM 0500-READ-RESPONSES THRU 0500-EXIT. 00173300

173400 3000-EXIT. EXIT. 00173400

173500 00173500

173600 3100-PROACTIVE-MATCH. 00173600

173900 MOVE FCR-RESPONSE-REC TO WS-PROACTIVE-RESPONSE. 00173900

174000 00174000

174100\*\*\* 00174100

174200\* THE MOVE STATEMENTS ARE CODED TO MOVE THE DATA TO WHATEVER
00174200

174300\* AREA YOU WISH, EITHER TO BUILD A REPORT, WORKER ALERT, 00174300

174400\* STORE THEM IN YOUR DATABASE, GENERATE A CSENET TRIGGER,ETC.
00174400

174500\* IF YOU WANT TO BUILD A CSENET TRANSACTION TO OBTAIN 00174500

174600\* INFORMATION FROM ANOTHER STATE, UNCOMMENT THE FOLLOWING
00174600

174700\* STATEMENT TO BUILD A CSENET TRIGGER RECORD. THE DATA ELEMENT
00174700

174800\* PRO-ACTION-TYPE-CODE INDICATES WHAT TRIGGERED THE PROACTIVE
00174800

174900\* MATCH RESPONSE: CHANGE OF A CASE FROM NON-IV-D TO IV-D,
00174900

175000\* AN FCR QUERY OR A PROACTIVE FCR RESPONSE FOR A NEW PERSON OR
00175000

175100\* A CHANGE TO A PERSON. 00175100

175200\* NOTE: IF YOU CHOOSE TO BUILD A CSENET TRIGGER RECORD 00175200

175300\* PARAGRAPH 4100-CREATE-CSENET-TRIGGER WILL NEED TO 00175300

175400\* BE COMPLETED. 00175400

175500\*\*\* 00175500

175600 00175600

175700\* PERFORM 4100-CREATE-CSENET-TRIGGER THRU 4100-EXIT. 00175700

175800 00175800

175900\* MOVE PRO-STATE-TERRITORY-FIPS 00175900

176000\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00176000

176100 00176100

176200\* MOVE PRO-ACTION-TYPE-CODE 00176200

176300\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00176300

176400 00176400

176500\* MOVE PRO-USER-FIELD 00176500

176600\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00176600

176700 00176700

176800\* MOVE PRO-FIPS-COUNTY-CODE 00176800

176900\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00176900

177000 00177000

177100\* MOVE PRO-BATCH-NUMBER 00177100

177200\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00177200

177300 00177300

177400\* MOVE PRO-FIRST-NAME 00177400

177500\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00177500

177600 00177600

177700\* MOVE PRO-MIDDLE-NAME 00177700

177800\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00177800

177900 00177900

178000\* MOVE PRO-LAST-NAME 00178000

178100\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00178100

178200 00178200

178300\* MOVE PRO-SUBMITTED-MATCHED-SSN 00178300

178400\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00178400

178500 00178500

178600\* MOVE PRO-MEMBER-ID 00178600

178700\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00178700

178800 00178800

178900\* MOVE PRO-SUBMITTED-CASE-ID 00178900

179000\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00179000

179100 00179100

179200\* MOVE PRO-RESPONSE-CODE 00179200

179300\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00179300

179400 00179400

179500\* MOVE PRO-MATCHED-CASE-ID 00179500

179600\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00179600

179700 00179700

179800\* MOVE PRO-MATCHED-CASE-STATE 00179800

179900\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00179900

180000 00180000

180100\* MOVE PRO-MATCHED-CASE-TYPE 00180100

180200\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00180200

180300 00180300

180400\* MOVE PRO-MATCHED-FCR-COUNTY-CODE 00180400

180500\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00180500

180600 00180600

180700\* MOVE PRO-MATCHED-REGISTRATION-DATE 00180700

180800\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00180800

180900 00180900

181000\* MOVE PRO-MATCHED-CASE-ORDER-IND 00181000

181100\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00181100

181200 00181200

181300\* MOVE PRO-MATCHED-PARTICIPANT-TYPE 00181300

181400\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00181400

181500 00181500

181600\* MOVE PRO-MATCHED-MEMBER-ID 00181600

181700\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00181700

181800 00181800

181900\* MOVE PRO-MATCHED-PERSON-DATE-DEATH 00181900

182000\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00182000

182100 00182100

182200\* MOVE PRO-MATCHED-ADDTL-FNAME1 00182200

182300\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00182300

182400 00182400

182500\* MOVE PRO-MATCHED-ADDTL-MNAME1 00182500

182600\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00182600

182700 00182700

182800\* MOVE PRO-MATCHED-ADDTL-LNAME1 00182800

182900\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00182900

183000 00183000

183100\* MOVE PRO-MATCHED-ADDTL-FNAME2 00183100

183200\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00183200

183300 00183300

183400\* MOVE PRO-MATCHED-ADDTL-MNAME2 00183400

183500\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00183500

183600 00183600

183700\* MOVE PRO-MATCHED-ADDTL-LNAME2 00183700

183800\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00183800

183900 00183900

184000\* MOVE PRO-MATCHED-ADDTL-FNAME3 00184000

184100\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00184100

184200 00184200

184300\* MOVE PRO-MATCHED-ADDTL-MNAME3 00184300

184400\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00184400

184500 00184500

184600\* MOVE PRO-MATCHED-ADDTL-LNAME3 00184600

184700\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00184700

184800 00184800

184900\* MOVE PRO-MATCHED-ADDTL-FNAME4 00184900

185000\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00185000

185100 00185100

185200\* MOVE PRO-MATCHED-ADDTL-MNAME4 00185200

185300\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00185300

185400 00185400

185500\* MOVE PRO-MATCHED-ADDTL-LNAME4 00185500

185600\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00185600

185700 00185700

185800\* MOVE PRO-ASSOCIATED-PERS1-SSN 00185800

185900\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00185900

186000 00186000

186100\* MOVE PRO-ASSOCIATED-PERS1-FNAME 00186100

186200\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00186200

186300 00186300

186400\* MOVE PRO-ASSOCIATED-PERS1-MNAME 00186400

186500\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00186500

186600 00186600

186700\* MOVE PRO-ASSOCIATED-PERS1-LNAME 00186700

186800\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00186800

186900 00186900

187000\* MOVE PRO-ASSOCIATED-PERS1-SEX 00187000

187100\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00187100

187200 00187200

187300\* MOVE PRO-ASSOCIATED-PERS1-PART-TYPE 00187300

187400\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00187400

187500 00187500

187600\* MOVE PRO-ASSOCIATED-PERS1-MEMBER-ID 00187600

187700\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00187700

187800 00187800

187900\* MOVE PRO-ASSOCIATED-PERS1-DOB 00187900

188000\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00188000

188100 00188100

188200\* MOVE PRO-ASSOCIATED-PERS1-DEATH-DTE 00188200

188300\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00188300

188400 00188400

188500\* MOVE PRO-ASSOCIATED-PERS2-SSN 00188500

188600\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00188600

188700 00188700

188800\* MOVE PRO-ASSOCIATED-PERS2-FNAME 00188800

188900\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00188900

189000 00189000

189100\* MOVE PRO-ASSOCIATED-PERS2-MNAME 00189100

189200\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00189200

189300 00189300

189400\* MOVE PRO-ASSOCIATED-PERS2-LNAME 00189400

189500\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00189500

189600 00189600

189700\* MOVE PRO-ASSOCIATED-PERS2-SEX 00189700

189800\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00189800

189900 00189900

190000\* MOVE PRO-ASSOCIATED-PERS2-PART-TYPE 00190000

190100\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00190100

190200 00190200

190300\* MOVE PRO-ASSOCIATED-PERS2-MEMBER-ID 00190300

190400\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00190400

190500 00190500

190600\* MOVE PRO-ASSOCIATED-PERS2-DOB 00190600

190700\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00190700

190800 00190800

190900\* MOVE PRO-ASSOCIATED-PERS2-DEATH-DTE 00190900

191000\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00191000

191100 00191100

191200\* MOVE PRO-ASSOCIATED-PERS3-SSN 00191200

191300\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00191300

191400 00191400

191500\* MOVE PRO-ASSOCIATED-PERS3-FNAME 00191500

191600\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00191600

191700 00191700

191800\* MOVE PRO-ASSOCIATED-PERS3-MNAME 00191800

191900\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00191900

192000 00192000

192100\* MOVE PRO-ASSOCIATED-PERS3-LNAME 00192100

192200\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00192200

192300 00192300

192400\* MOVE PRO-ASSOCIATED-PERS3-SEX 00192400

192500\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00192500

192600 00192600

192700\* MOVE PRO-ASSOCIATED-PERS3-PART-TYPE 00192700

192800\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00192800

192900 00192900

193000\* MOVE PRO-ASSOCIATED-PERS3-MEMBER-ID 00193000

193100\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00193100

193200 00193200

193300\* MOVE PRO-ASSOCIATED-PERS3-DOB 00193300

193400\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00193400

193500 00193500

193600\* MOVE PRO-ASSOCIATED-PERS3-DEATH-DTE 00193600

193700\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00193700

193800 00193800

193900 3100-EXIT. EXIT. 00193900

194000 00194000

194100 3200-PROCESS-1099. 00194100

194400 MOVE FCR-RESPONSE-REC TO WS-IRS1099-RECORD. 00194400

194500 00194500

194600\*\*\* 00194600

194700\* THE MOVE STATEMENTS ARE CODED TO MOVE THE DATA TO WHATEVER
00194700

194800\* AREA YOU WISH, EITHER TO BUILD A REPORT, WORKER ALERT, 00194800

194900\* STORE THEM IN YOUR DATABASE, ETC. 00194900

195000\* IF YOU WANT TO BUILD A CSENET TRANSACTION TO OBTAIN 00195000

195100\* INFORMATION FROM ANOTHER STATE, UNCOMMENT THE FOLLOWING
00195100

195200\* STATEMENT TO BUILD A CSENET TRIGGER RECORD. 00195200

195300\* NOTE: IF YOU CHOOSE TO BUILD A CSENET TRIGGER RECORD 00195300

195400\* PARAGRAPH 4100-CREATE-CSENET-TRIGGER WILL NEED TO 00195400

195500\* BE COMPLETED. 00195500

195600\*\*\* 00195600

195700 00195700

195800\* PERFORM 4100-CREATE-CSENET-TRIGGER THRU 4100-EXIT. 00195800

195900 00195900

196000\* IRS-SSN 00196000

196100\* TO XXXXXXXXXXXXXXXXXXXXXXXX. 00196100

196200 00196200

196300\* MOVE IRS-STATE-TERRITORY-FIPS 00196300

196400\* TO XXXXXXXXXXXXXXXXXXXXXXXX. 00196400

196500 00196500

196600\* MOVE IRS-COUNTY-FIPS 00196600

196700\* TO XXXXXXXXXXXXXXXXXXXXXXXX. 00196700

196800 00196800

196900\* MOVE IRS-CASE-ID 00196900

197000\* TO XXXXXXXXXXXXXXXXXXXXXXXX. 00197000

197100 00197100

197200\* MOVE IRS-1099-LAST-NAME 00197200

197300\* TO XXXXXXXXXXXXXXXXXXXXXXXX. 00197300

197400 00197400

197500\* MOVE IRS-1099-FIRST-NAME 00197500

197600\* TO XXXXXXXXXXXXXXXXXXXXXXXX. 00197600

197700 00197700

197800\* MOVE IRS-RESERVED-FOR-FCR 00197800

197900\* TO XXXXXXXXXXXXXXXXXXXXXXXX. 00197900

198000 00198000

198100\* MOVE IRS-1099-MATCH-CODE 00198100

198200\* TO XXXXXXXXXXXXXXXXXXXXXXXX. 00198200

198300 00198300

198400\* MOVE IRS-1099-PAYEE-NAME1 00198400

198500\* TO XXXXXXXXXXXXXXXXXXXXXXXX. 00198500

198600 00198600

198700\* MOVE IRS-1099-PAYEE-NAME2 00198700

198800\* TO XXXXXXXXXXXXXXXXXXXXXXXX. 00198800

198900 00198900

199000\* MOVE IRS-1099-PAYEE-STREET 00199000

199100\* TO XXXXXXXXXXXXXXXXXXXXXXXX. 00199100

199200 00199200

199300\* MOVE IRS-1099-PAYEE-CITY 00199300

199400\* TO XXXXXXXXXXXXXXXXXXXXXXXX. 00199400

199500 00199500

199600\* MOVE IRS-1099-PAYEE-STATE-CD 00199600

199700\* TO XXXXXXXXXXXXXXXXXXXXXXXX. 00199700

199800 00199800

199900\* MOVE IRS-1099-PAYEE-ZIP 00199900

200000\* TO XXXXXXXXXXXXXXXXXXXXXXXX. 00200000

200100 00200100

200200\* MOVE IRS-PAYOR-EIN 00200200

200300\* TO XXXXXXXXXXXXXXXXXXXXXXXX. 00200300

200400 00200400

200500\* MOVE IRS-PAYOR-NAME1 00200500

200600\* TO XXXXXXXXXXXXXXXXXXXXXXXX. 00200600

200700 00200700

200800\* MOVE IRS-PAYOR-NAME2 00200800

200900\* TO XXXXXXXXXXXXXXXXXXXXXXXX. 00200900

201000 00201000

201100\* MOVE IRS-PAYOR-STREET 00201100

201200\* TO XXXXXXXXXXXXXXXXXXXXXXXX. 00201200

201300 00201300

201400\* MOVE IRS-PAYOR-CITY-ST-ZIP 00201400

201500\* TO XXXXXXXXXXXXXXXXXXXXXXXX. 00201500

201600 00201600

201700\* MOVE IRS-1099-TAX-YEAR 00201700

201800\* TO XXXXXXXXXXXXXXXXXXXXXXXX. 00201800

201900 00201900

202000\* MOVE IRS-1099-ACCOUNT-CODE 00202000

202100\* TO XXXXXXXXXXXXXXXXXXXXXXXX. 00202100

202200 00202200

202300\* MOVE IRS-1099-DOCUMENT-CODE 00202300

202400\* TO XXXXXXXXXXXXXXXXXXXXXXXX. 00202400

202500 00202500

202600\* MOVE IRS-1099-AMOUNT-IND-1 00202600

202700\* TO XXXXXXXXXXXXXXXXXXXXXXXX. 00202700

202800 00202800

202900\* MOVE IRS-1099-AMOUNT-1 00202900

203000\* TO XXXXXXXXXXXXXXXXXXXXXXXX. 00203000

203100 00203100

203200\* MOVE IRS-1099-AMOUNT-IND-2 00203200

203300\* TO XXXXXXXXXXXXXXXXXXXXXXXX. 00203300

203400 00203400

203500\* MOVE IRS-1099-AMOUNT-2 00203500

203600\* TO XXXXXXXXXXXXXXXXXXXXXXXX. 00203600

203700 00203700

203800\* MOVE IRS-1099-AMOUNT-IND-3 00203800

203900\* TO XXXXXXXXXXXXXXXXXXXXXXXX. 00203900

204000 00204000

204100\* MOVE IRS-1099-AMOUNT-3 00204100

204200\* TO XXXXXXXXXXXXXXXXXXXXXXXX. 00204200

204300 00204300

204400\* MOVE IRS-1099-AMOUNT-IND-4 00204400

204500\* TO XXXXXXXXXXXXXXXXXXXXXXXX. 00204500

204600 00204600

204700\* MOVE IRS-1099-AMOUNT-4 00204700

204800\* TO XXXXXXXXXXXXXXXXXXXXXXXX. 00204800

204900 00204900

205000\* MOVE IRS-1099-AMOUNT-IND-5 00205000

205100\* TO XXXXXXXXXXXXXXXXXXXXXXXX. 00205100

205200 00205200

205300\* MOVE IRS-1099-AMOUNT-5 00205300

205400\* TO XXXXXXXXXXXXXXXXXXXXXXXX. 00205400

205500 00205500

205600\* MOVE IRS-1099-AMOUNT-IND-6 00205600

205700\* TO XXXXXXXXXXXXXXXXXXXXXXXX. 00205700

205800 00205800

205900\* MOVE IRS-1099-AMOUNT-6 00205900

206000\* TO XXXXXXXXXXXXXXXXXXXXXXXX. 00206000

206100 00206100

206200\* MOVE IRS-1099-AMOUNT-IND-7 00206200

206300\* TO XXXXXXXXXXXXXXXXXXXXXXXX. 00206300

206400 00206400

206500\* MOVE IRS-1099-AMOUNT-7 00206500

206600\* TO XXXXXXXXXXXXXXXXXXXXXXXX. 00206600

206700 00206700

206800\* MOVE IRS-1099-AMOUNT-IND-8 00206800

206900\* TO XXXXXXXXXXXXXXXXXXXXXXXX. 00206900

207000 00207000

207100\* MOVE IRS-1099-AMOUNT-8 00207100

207200\* TO XXXXXXXXXXXXXXXXXXXXXXXX. 00207200

207300 00207300

207400\* MOVE IRS-1099-AMOUNT-IND-9 00207400

207500\* TO XXXXXXXXXXXXXXXXXXXXXXXX. 00207500

207600 00207600

207700\* MOVE IRS-1099-AMOUNT-9 00207700

207800\* TO XXXXXXXXXXXXXXXXXXXXXXXX. 00207800

207900 00207900

208000\* MOVE IRS-1099-AMOUNT-IND-10 00208000

208100\* TO XXXXXXXXXXXXXXXXXXXXXXXX. 00208100

208200 00208200

208300\* MOVE IRS-1099-AMOUNT-10 00208300

208400\* TO XXXXXXXXXXXXXXXXXXXXXXXX. 00208400

208500 00208500

208600\* MOVE IRS-1099-AMOUNT-IND-11 00208600

208700\* TO XXXXXXXXXXXXXXXXXXXXXXXX. 00208700

208800 00208800

208900\* MOVE IRS-1099-AMOUNT-11 00208900

209000\* TO XXXXXXXXXXXXXXXXXXXXXXXX. 00209000

209100 00209100

209200\* MOVE IRS-1099-AMOUNT-IND-12 00209200

209300\* TO XXXXXXXXXXXXXXXXXXXXXXXX. 00209300

209400 00209400

209500\* MOVE IRS-1099-AMOUNT-12 00209500

209600\* TO XXXXXXXXXXXXXXXXXXXXXXXX. 00209600

209700 00209700

209800 3200-EXIT. EXIT. 00209800

209900 00209900

210000 3300-PROCESS-LOCATE. 00210000

210300 MOVE FCR-RESPONSE-REC TO WS-FCR-LOCATE-RESPONSE-RECORD. 00210300

210400 00210400

210500\*\*\* 00210500

210600\* THE MOVE STATEMENTS ARE CODED TO MOVE THE DATA TO WHATEVER
00210600

210700\* AREA YOU WISH, EITHER TO BUILD A REPORT, WORKER ALERT, 00210700

210800\* STORE THEM IN YOUR DATABASE, ETC. 00210800

210900\* IF YOU WANT TO BUILD A CSENET TRANSACTION TO OBTAIN 00210900

211000\* INFORMATION FROM ANOTHER STATE, UNCOMMENT THE FOLLOWING
00211000

211100\* STATEMENT TO BUILD A CSENET TRIGGER RECORD. 00211100

211200\* NOTE: IF YOU CHOOSE TO BUILD A CSENET TRIGGER RECORD 00211200

211300\* PARAGRAPH 4100-CREATE-CSENET-TRIGGER WILL NEED TO 00211300

211400\* BE COMPLETED. 00211400

211500\*\*\* 00211500

211600 00211600

211700\* PERFORM 4100-CREATE-CSENET-TRIGGER THRU 4100-EXIT. 00211700

211800 00211800

211900\* FCR-LOC-STATE-TERR-CD 00211900

212000\* TO XXXXXXXXXXXXXXXXXXXXXXXX. 00212000

212100 00212100

212200\* MOVE FCR-LOC-SOURCE-RESP-CD 00212200

212300\* TO XXXXXXXXXXXXXXXXXXXXXXXX. 00212300

212400 00212400

212500\* MOVE FCR-LOC-NAME-SENT-IND 00212500

212600\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00212600

212700 00212700

212800\* MOVE FCR-LOC-FIRST-NAME 00212800

212900\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00212900

213000 00213000

213100\* MOVE FCR-LOC-MID-NAME 00213100

213200\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00213200

213300 00213300

213400\* MOVE FCR-LOC-LAST-NAME 00213400

213500\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00213500

213600 00213600

213700\* MOVE FCR-LOC-ADDL-FNAME1 00213700

213800\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00213800

213900 00213900

214000\* MOVE FCR-LOC-ADDL-MNAME1 00214000

214100\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00214100

214200 00214200

214300\* MOVE FCR-LOC-ADDL-LNAME1 00214300

214400\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00214400

214500 00214500

214600\* MOVE FCR-LOC-ADDL-FNAME2 00214600

214700\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00214700

214800 00214800

214900\* MOVE FCR-LOC-ADDL-MNAME2 00214900

215000\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00215000

215100 00215100

215200\* MOVE FCR-LOC-ADDL-LNAME2 00215200

215300\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00215300

215400 00215400

215500\* MOVE FCR-LOC-NAME-RET-IND 00215500

215600\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00215600

215700 00215700

215800\* MOVE FCR-LOC-NAME-RETURNED 00215800

215900\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00215900

216000 00216000

216100\* MOVE FCR-LOC-SSN 00216100

216200\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00216200

216300 00216300

216400\* MOVE FCR-LOC-MEMBER-ID 00216400

216500\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00216500

216600 00216600

216700\* MOVE FCR-LOC-USER-FIELD 00216700

216800\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00216800

216900 00216900

217000\* MOVE FCR-LOC-FIPS-COUNTY-CD 00217000

217100\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00217100

217200 00217200

217300\* MOVE FCR-LOC-LOC-REQ-TYPE 00217300

217400\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00217400

217500 00217500

217600\* MOVE FCR-LOC-DATE-O-ADDRESS-IND 00217600

217700\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00217700

217800 00217800

217900\* MOVE FCR-LOC-DATE-OF-ADDRESS 00217900

218000\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00218000

218100 00218100

218200\* MOVE FCR-LOC-LOC-RESP-STATUS 00218200

218300\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00218300

218400 00218400

218500\* MOVE FCR-LOC-EMPLR-NAME 00218500

218600\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00218600

218700 00218700

218800\* MOVE FCR-LOC-ADDRESS-FMT-IND 00218800

218900\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00218900

219000 00219000

219100\* MOVE FCR-LOC-EMPLR-PERSN-ADDR 00219100

219200\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00219200

219300 00219300

219400\* MOVE FCR-LOC-SPECIFIC-LOC-SRC 00219400

219500\* TO XXXXXXXXXXXXXXXXXXXXXXXX 00219500

219600 00219600

219700 3300-EXIT. EXIT. 00219700

219800 00219800

219900 3400-PROCESS-NEWHIRE. 00219900

220000 MOVE FCR-RESPONSE-REC TO NDNH-PROACTIVE-RESPONSE. 00220000

220300 00220300

220400\*\*\* 00220400

220500\* THE MOVE STATEMENTS ARE CODED TO MOVE THE DATA TO WHATEVER
00220500

220600\* AREA YOU WISH, EITHER TO BUILD A REPORT, WORKER ALERT, 00220600

220700\* STORE THEM IN YOUR DATABASE, ETC. 00220700

220800\* IF YOU WANT TO BUILD A CSENET TRANSACTION TO OBTAIN 00220800

220900\* INFORMATION FROM ANOTHER STATE, UNCOMMENT THE FOLLOWING
00220900

221000\* STATEMENT TO BUILD A CSENET TRIGGER RECORD. 00221000

221100\* NOTE: IF YOU CHOOSE TO BUILD A CSENET TRIGGER RECORD 00221100

221200\* PARAGRAPH 4100-CREATE-CSENET-TRIGGER WILL NEED TO 00221200

221300\* BE COMPLETED. 00221300

221400\*\*\* 00221400

221500 00221500

221600\* PERFORM 4100-CREATE-CSENET-TRIGGER THRU 4100-EXIT. 00221600

221700 00221700

221800\* MOVE NDNH-RECORD-ID 00221800

221900\* TO XXXXXXXXXXXXXXXXXX 00221900

222000 00222000

222100\* MOVE NDNH-MATCH-TYPE 00222100

222200\* TO XXXXXXXXXXXXXXXXXX 00222200

222300 00222300

222400\* MOVE NDNH-STATE-TERRITORY-CD 00222400

222500\* TO XXXXXXXXXXXXXXXXXX 00222500

222600 00222600

222700\* MOVE NDNH-LOC-SOURCE-RESP-AGNCY 00222700

222800\* TO XXXXXXXXXXXXXXXXXX 00222800

222900 00222900

223000\* MOVE NDNH-NAME-SEND-MATCHED-IND 00223000

223100\* TO XXXXXXXXXXXXXXXXXX 00223100

223200 00223200

223300\* MOVE NDNH-FIRST-NAME 00223300

223400\* TO XXXXXXXXXXXXXXXXXX 00223400

223500 00223500

223600\* MOVE NDNH-MIDDLE-NAME 00223600

223700\* TO XXXXXXXXXXXXXXXXXX 00223700

223800 00223800

223900\* MOVE NDNH-LAST-NAME 00223900

224000\* TO XXXXXXXXXXXXXXXXXX 00224000

224100 00224100

224200\* MOVE NDNH-ADDNL-FNAME1 00224200

224300\* TO XXXXXXXXXXXXXXXXXX 00224300

224400 00224400

224500\* MOVE NDNH-ADDNL-MNAME1 00224500

224600\* TO XXXXXXXXXXXXXXXXXX 00224600

224700 00224700

224800\* MOVE NDNH-ADDNL-LNAME1 00224800

224900\* TO XXXXXXXXXXXXXXXXXX 00224900

225000 00225000

225100\* MOVE NDNH-ADDNL-FNAME2 00225100

225200\* TO XXXXXXXXXXXXXXXXXX 00225200

225300 00225300

225400\* MOVE NDNH-ADDNL-MNAME2 00225400

225500\* TO XXXXXXXXXXXXXXXXXX 00225500

225600 00225600

225700\* MOVE NDNH-ADDNL-LNAME2 00225700

225800\* TO XXXXXXXXXXXXXXXXXX 00225800

225900 00225900

226000\* MOVE NDNH-NAME-RETURNED-IND 00226000

226100\* TO XXXXXXXXXXXXXXXXXX 00226100

226200 00226200

226300\* MOVE NDNH-FIRST-NAME-RETURNED 00226300

226400\* TO XXXXXXXXXXXXXXXXXX 00226400

226500 00226500

226600\* MOVE NDNH-MIDDL-NAME-RETURNED 00226600

226700\* TO XXXXXXXXXXXXXXXXXX 00226700

226800 00226800

226900\* MOVE NDNH-LAST-NAME-RETURNED 00226900

227000\* TO XXXXXXXXXXXXXXXXXX 00227000

227100 00227100

227200\* MOVE NDNH-SSN-RETURNED 00227200

227300\* TO XXXXXXXXXXXXXXXXXX 00227300

227400 00227400

227500\* MOVE NDNH-MEMBER-ID 00227500

227600\* TO XXXXXXXXXXXXXXXXXX 00227600

227700 00227700

227800\* MOVE NDNH-USER-FIELD 00227800

227900\* TO XXXXXXXXXXXXXXXXXX 00227900

228000 00228000

228100\* MOVE NDNH-FIPS-COUNTY-CODE 00228100

228200\* TO XXXXXXXXXXXXXXXXXX 00228200

228300 00228300

228400\* MOVE NDNH-LOCATE-REQUEST-TYPE 00228400

228500\* TO XXXXXXXXXXXXXXXXXX 00228500

228600 00228600

228700\* MOVE NDNH-DATE-OF-ADDRESS 00228700

228800\* TO XXXXXXXXXXXXXXXXXX 00228800

228900 00228900

229000\* MOVE NDNH-LOCATE-RESPONSE-CODE 00229000

229100\* TO XXXXXXXXXXXXXXXXXX 00229100

229200 00229200

229300\* MOVE NDNH-CORRECTED-MULTI-SSN 00229300

229400\* TO XXXXXXXXXXXXXXXXXX 00229400

229500 00229500

229600\* MOVE NDNH-EMPLOYER-NAME 00229600

229700\* TO XXXXXXXXXXXXXXXXXX 00229700

229800 00229800

229900\* MOVE NDNH-STREET-ADDR1 00229900

230000\* TO XXXXXXXXXXXXXXXXXX 00230000

230100 00230100

230200\* MOVE NDNH-STREET-ADDR2 00230200

230300\* TO XXXXXXXXXXXXXXXXXX 00230300

230400 00230400

230500\* MOVE NDNH-STREET-ADDR3 00230500

230600\* TO XXXXXXXXXXXXXXXXXX 00230600

230700 00230700

230800\* MOVE NDNH-STREET-ADDR4 00230800

230900\* TO XXXXXXXXXXXXXXXXXX 00230900

231000 00231000

231100\* MOVE NDNH-CITY 00231100

231200\* TO XXXXXXXXXXXXXXXXXX 00231200

231300 00231300

231400\* MOVE NDNH-STATE 00231400

231500\* TO XXXXXXXXXXXXXXXXXX 00231500

231600 00231600

231700\* MOVE NDNH-ZIP-CODE 00231700

231800\* TO XXXXXXXXXXXXXXXXXX 00231800

231900 00231900

232000\* MOVE NDNH-FOREIGN-CNTRY-CD 00232000

232100\* TO XXXXXXXXXXXXXXXXXX 00232100

232200 00232200

232300\* MOVE NDNH-FOREIGN-CNTRY-NAME 00232300

232400\* TO XXXXXXXXXXXXXXXXXX 00232400

232500 00232500

232600\* MOVE LOCATE-SPECIFIC-INFO 00232600

232700\* TO XXXXXXXXXXXXXXXXXX 00232700

232800 00232800

232900 00232900

233000\* IF ITS-A-UI-RECORD 00233000

233100\* MOVE LOCATE-SPECIFIC-INFO TO NDNH-UI-FORMAT 00233100

233200\* TO XXXXXXXXXXXXXXXXXX 00233200

233300 00233300

233400\* MOVE UI-REPORTING-STATE 00233400

233500\* TO XXXXXXXXXXXXXXXXXX 00233500

233600 00233600

233700\* MOVE UI-BENEFIT-AMOUNT 00233700

233800\* TO XXXXXXXXXXXXXXXXXX 00233800

233900 00233900

234000\* MOVE NDNH-UI-SSN-MATCH-IND 00234000

234100\* TO XXXXXXXXXXXXXXXXXX 00234100

234200 00234200

234300\* MOVE UI-REPORTING-QUARTER 00234300

234400\* TO XXXXXXXXXXXXXXXXXX 00234400

234500\* END-IF. 00234500

234600 00234600

234700\* IF ITS-A-QW-RECORD 00234700

234800\* MOVE LOCATE-SPECIFIC-INFO TO NDNH-QW-FORMAT 00234800

234900\* TO XXXXXXXXXXXXXXXXXX 00234900

235000 00235000

235100\* MOVE QW-REPORTING-STATE 00235100

235200\* TO XXXXXXXXXXXXXXXXXX 00235200

235300 00235300

235400\* MOVE QW-ADDRESS-TYPE-IND 00235400

235500\* TO XXXXXXXXXXXXXXXXXX 00235500

235600 00235600

235700\* MOVE QW-WAGE-AMOUNT 00235700

235800\* TO XXXXXXXXXXXXXXXXXX 00235800

235900 00235900

236000\* MOVE QW-FEIN 00236000

236100\* TO XXXXXXXXXXXXXXXXXX 00236100

236200 00236200

236300\* MOVE QW-REPORTING-QUARTER 00236300

236400\* TO XXXXXXXXXXXXXXXXXX 00236400

236500 00236500

236600\* MOVE QW-REPORTING-AGENCY 00236600

236700\* TO XXXXXXXXXXXXXXXXXX 00236700

236800 00236800

236900\* MOVE QW-DOD-AGENCY-STATUS-IND 00236900

237000\* TO XXXXXXXXXXXXXXXXXX 00237000

237100 00237100

237200\* MOVE QW-STATE-EIN 00237200

237300\* TO XXXXXXXXXXXXXXXXXX 00237300

237400\* END-IF. 00237400

237500 00237500

237600\* IF ITS-A-QW-RECORD 00237600

237700\* MOVE LOCATE-SPECIFIC-INFO TO NDNH-QW-FORMAT 00237700

237800\* TO XXXXXXXXXXXXXXXXXX 00237800

237900 00237900

238000\* MOVE W4-REPORTING-STATE 00238000

238100\* TO XXXXXXXXXXXXXXXXXX 00238100

238200 00238200

238300\* MOVE W4-ADDRESS-TYPE-IND 00238300

238400\* TO XXXXXXXXXXXXXXXXXX 00238400

238500 00238500

238600\* MOVE W4-DATE-OF-BIRTH 00238600

238700\* TO XXXXXXXXXXXXXXXXXX 00238700

238800 00238800

238900\* MOVE W4-DATE-OF-HIRE 00238900

239000\* TO XXXXXXXXXXXXXXXXXX 00239000

239100 00239100

239200\* MOVE W4-FEIN 00239200

239300\* TO XXXXXXXXXXXXXXXXXX 00239300

239400 00239400

239500\* MOVE W4-SSN-MATCH-IND 00239500

239600\* TO XXXXXXXXXXXXXXXXXX 00239600

239700 00239700

239800\* MOVE W4-REPORTING-FED-AGENCY 00239800

239900\* TO XXXXXXXXXXXXXXXXXX 00239900

240000 00240000

240100\* MOVE W4-DOD-AGENCY-STATUS-IND 00240100

240200\* TO XXXXXXXXXXXXXXXXXX 00240200

240300 00240300

240400\* MOVE W4-STATE-EIN 00240400

240500\* TO XXXXXXXXXXXXXXXXXX 00240500

240600 00240600

240700\* MOVE W4-STATE-OF-HIRE 00240700

240800\* TO XXXXXXXXXXXXXXXXXX 00240800

240900\* END-IF. 00240900

241000 3400-EXIT. EXIT. 00241000

241100 00241100

241200\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00241200

241300\* 4000-ALERT-WORKER \* 00241300

241400\* THIS PARAGRAPH IS WHERE WORKER ALERTS SHOULD BE ISSUED. \*
00241400

241500\* CODE WILL NEED TO BE WRITTEN TO NAVIGATE THE CSE DATABASE \*
00241500

241600\* TO INSERT THE WORKER ALERT MESSAGE. THE MESSAGE SHOULD \*
00241600

241700\* BE CONSTRUCTED IN THE PARAGRAPH THAT CALLS THIS ROUTINE \*
00241700

241800\* AND MOVED TO A WORKING-STORAGE VARIABLE CALLED \* 00241800

241900\* WS-WORKER-ALERT-MESSAGE. THIS MESSAGE SHOULD THEN BE \*
00241900

242000\* WRITTEN TO THE DATABASE IN THIS PARAGRAPH. \* 00242000

242100\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00242100

242200 00242200

242300 4000-ALERT-WORKER. 00242300

242400\*\*\*\*\*\*\*\*\* 00242400

242500\* INSERT YOUR CODE HERE TO NAVIGATE THE DATABASE AND THE WORKER
00242500

242600\* ALERT MESSAGE WRITTEN FROM WS-WORKER-ALERT-MESSAGE. 00242600

242700\*\*\*\*\*\*\*\*\* 00242700

242800 00242800

242900 4000-EXIT. EXIT. 00242900

243000 00243000

243100 4100-CREATE-CSENET-TRIGGER. 00243100

243200\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00243200

243300\* 4100-CREATE-CSENET-TRIGGER \* 00243300

243400\* IT IS ASSUMED THAT ALL STATES THAT USE CSENET HAVE A \*
00243400

243500\* SYSTEM TO BUILD CSENET TRANSACTIONS BASED ON TRIGGER \*
00243500

243600\* RECORDS CREATED BY THE CSE SYSTEM. THIS IS WHERE THOSE \*
00243600

243700\* TRIGGER RECORDS SHOULD BE BUILT AND WRITTEN TO THE TRIGGER \*
00243700

243800\* FILE. \* 00243800

243900\* NOTE: BEFORE YOU BUILD A CSENET TRIGGER RECORD YOU SHOULD \*
00243900

244000\* CHECK YOUR CSE DATABASE TO SEE IF A) THIS IS ONE OF \* 00244000

244100\* YOUR CASES THAT ANOTHER STATE HAS ADDED TO THE FCR OR\*
00244100

244200\* B) IS A CASE THAT YOUR STATE ALREADY KNOWS ABOUT. \* 00244200

244300\* THE SITUATION COULD ARISE WHERE A LOOP COULD FORM \* 00244300

244400\* BETWEEN CSENET AND THE FCR. FOR THIS REASON CSENET \* 00244400

244500\* TRANSACTIONS SHOULD NOT BE BUILT INDISCRIMINATELY. \* 00244500

244600\* \* 00244600

244700\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00244700

244800 00244800

244900\*\* BUILD THE CSENET TRIGGER RECORD. A WORKING-STORAGE 00244900

245000\*\* RECORD LAYOUT WILL NEED TO BE WRITTEN OR THE RECORD 00245000

245100\*\* LAYOUT FOR THE CSENET-FILE \'FD\' NEEDS TO BE CHANGED
00245100

245200\*\* TO REFLECT THE CSENET TRIGGER FORMAT. 00245200

245300 00245300

245400\*\* WRITE CSENET-REC. 00245400

245500 00245500

245600 4100-EXIT. EXIT. 00245600

245700 00245700

245800 4200-ISSUE-WAGE-WITHHOLDING. 00245800

245900\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00245900

246000\* 4200-ISSUE-WAGE-WITHHOLDING. \* 00246000

246100\* THIS PARAGRAPH SHOULD BE USED IF THE STATE WISHES TO \*
00246100

246200\* ISSUE AUTOMATIC WAGE WITHHOLDINGS BASED ON THE INFORMATION \*
00246200

246300\* RECEIVED FROM THE LOCATE TRANSACTIONS. THIS PARAGRAPH WILL\*
00246300

246400\* NEED TO BE CODED ACCORDING TO HOW EACH STATE ISSUES WAGE \*
00246400

246500\* WITHHOLDINGS. THIS PARAGRAPH WILL NEED TO BE CALLED IN \*
00246500

246600\* EACH CIRCUMSTANCE THE STATE WISHES TO ISSUE THE WAGE \*
00246600

246700\* WITHHOLDING. \* 00246700

246800\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00246800

246900 00246900

247000\*\* BUILD THE WAGE WITHHOLDING RECORD HERE TO CONFORM TO 00247000

247100\*\* YOUR STATE\'S STRUCTURE. 00247100

247200 00247200

247300 4200-EXIT. EXIT. 00247300

247400 00247400

247500 5000-UPDATE-AUDIT-FILE. 00247500

247600\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00247600

247700\* 5000-UPDATE-AUDIT-FILE IS WHERE THE AUDIT FILE WILL BE \*
00247700

247800\* UPDATED TO REFLECT THE DISPOSITION OF THE RECORD ON THE FCR.\*
00247800

247900\* IF AN EVENT/DIARY ENTRY IS USED INSTEAD OF THE AUDIT FILE, \*
00247900

248000\* THE EVENT/DIARY INSERT CODE SHOULD BE WRITTEN HERE. \* 00248000

248100\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
00248100

248300 00248300

248400\* READ FCR-AUDIT-FILE. 00248400

248500\* IF AUDIT-FILE-STATUS \> \'00\' 00248500

248600\* DISPLAY \' AUDIT RECORD NOT FOUND: \' FCR-AUDIT-RECORD 00248600

248700\* ELSE 00248700

248800\* MOVE FCR-AUDIT-RECORD 00248800

248900\* TO WS-FCR-AUDIT-RECORD 00248900

249000\* 00249000

249100\* MOVE WS-ACKNOWLEDGEMENT-CODE 00249100

249200\* TO FCR-AUDIT-RESPONSE-CODE 00249200

249300\* 00249300

249400\* MOVE WS-FCR-AUDIT-RECORD 00249400

249500\* TO FCR-AUDIT-RECORD 00249500

249600 00249600

249700\* MOVE FORMAT-DATE2 00249700

249800\* TO FCR-AUDIT-DATE-RESPONSE 00249800

249900\* 00249900

250000\* REWRITE FCR-AUDIT-RECORD 00250000

250100\* 00250100

250200\* INVALID KEY 00250200

250300\* DISPLAY \' ERROR RE-WRITING AUDIT-RECORD: \' 00250300

250400\* FCR-AUDIT-RECORD 00250400

250500\* END-IF. 00250500

250600 00250600

250700 5000-EXIT. EXIT. 00250700

250800 00250800

250900 5500-PRINT-HEADER-ERRORS. 00250900

251000 SET THE-BATCH-HAS-WARNINGS TO TRUE. 00251000

251100 IF HDR-LINE-CNTR \> 52 00251100

251200 ADD 1 TO HDR-PAGE-CNTR 00251200

251300 MOVE FORMATTED-DATE TO HDR-ERROR-DATE 00251300

251400 MOVE HDR-PAGE-CNTR TO HDR-PAGE-CNT 00251400

251500 WRITE HEADER-ERROR-REC FROM 00251500

251600 HEADER-ERROR-HEADER AFTER ADVANCING TOP-OF-PAGE 00251600

251700 WRITE HEADER-ERROR-REC FROM 00251700

251800 HEADER-DETAIL-HEADER AFTER ADVANCING 2 00251800

251900 WRITE HEADER-ERROR-REC FROM 00251900

252000 DASH-LINE AFTER ADVANCING 1 00252000

252100 MOVE 4 TO HDR-LINE-CNTR 00252100

252200 END-IF. 00252200

252300 INITIALIZE HEADER-ERROR-DETAIL-LINE. 00252300

252400 MOVE FCR-RESP-BATCH-NUMBER TO HED-BATCH-NUM. 00252400

252500 MOVE FCR-RESP-DATE-STAMP-CC TO FMT-ERR-CC. 00252500

252600 MOVE FCR-RESP-DATE-STAMP-YY TO FMT-ERR-YY. 00252600

252700 MOVE FCR-RESP-DATE-STAMP-MM TO FMT-ERR-MM. 00252700

252800 MOVE FCR-RESP-DATE-STAMP-DD TO FMT-ERR-DD. 00252800

252900 MOVE FORMAT-ERROR-DATE TO HED-DATE. 00252900

253000 MOVE FCR-RESP-ERRORS TO HOLD-HDR-ERROR-CODES. 00253000

253100 MOVE SPACES TO HEADER-ERROR-REC. 00253100

253200 WRITE HEADER-ERROR-REC AFTER ADVANCING 1. 00253200

253300 ADD 1 TO HDR-LINE-CNTR. 00253300

253400 PERFORM 5600-CHECK-ERRORS THRU 5600-EXIT 00253400

253500 VARYING SUB1 FROM +1 BY +1 00253500

253600 UNTIL SUB1 \> +5. 00253600

253700 PERFORM 5550-LOOP-THRU-BATCH THRU 5550-EXIT 00253700

253800 UNTIL ITS-A-TRAILER-RECORD. 00253800

253900 5500-EXIT. EXIT. 00253900

254000 00254000

254100 5550-LOOP-THRU-BATCH. 00254100

254200 READ FCR-RESPONSE-FILE 00254200

254300 AT END SET NO-MORE-RESPONSES TO TRUE 00254300

254400 SET ITS-A-TRAILER-RECORD TO TRUE. 00254400

254500 MOVE FRR-RECORD-ID TO DETERMINE-HEADER-TYPE. 00254500

254600 5550-EXIT. EXIT. 00254600

254700 00254700

254800 5600-CHECK-ERRORS. 00254800

254900 IF HOLD-HDR-ERROR-TABLE (SUB1) = SPACES 00254900

255000 MOVE +6 TO SUB1 00255000

255100 ELSE 00255100

255200 PERFORM 5700-GET-ERROR-MESSAGE THRU 5700-EXIT 00255200

255300 VARYING SUB2 FROM +1 BY +1 00255300

255400 UNTIL SUB2 \> 11 00255400

255500 END-IF. 00255500

255600 5600-EXIT. EXIT. 00255600

255700 00255700

255800 5700-GET-ERROR-MESSAGE. 00255800

255900 IF HOLD-HDR-ERROR-TABLE (SUB1) = HDR-ERR-CODE (SUB2) 00255900

256000 MOVE HDR-ERR-MESSAGE (SUB2) TO HED-ERROR-MESSAGE 00256000

256100 MOVE HDR-ERR-CODE (SUB2) TO HED-ERROR-CODE 00256100

256200 MOVE HDR-ERR-SEVERITY(SUB2) TO ERROR-SEVERITY-IND 00256200

256300 IF THE-ERROR-IS-SEVERE 00256300

256400 SET THE-BATCH-WAS-REJECTED TO TRUE 00256400

256500 MOVE RETRANSMIT-MESSAGE TO HED-ERROR-MESSAGE2 00256500

256600 END-IF 00256600

256700 WRITE HEADER-ERROR-REC FROM HEADER-ERROR-DETAIL-LINE 00256700

256800 AFTER ADVANCING 1 00256800

256900 MOVE +11 TO SUB2 00256900

257000 ADD 1 TO HDR-LINE-CNTR 00257000

257100 INITIALIZE HEADER-ERROR-DETAIL-LINE 00257100

257200 END-IF. 00257200

257300 5700-EXIT. EXIT. 00257300

257400 00257400

257500 6000-PRINT-CASE-ERRORS. 00257500

257600 IF CASE-LINE-CNTR \> 52 00257600

257700 ADD 1 TO CASE-PAGE-CNTR 00257700

257800 MOVE FORMATTED-DATE TO CASE-ERROR-DATE 00257800

257900 MOVE CASE-PAGE-CNTR TO CASE-PAGE-CNT 00257900

258000 WRITE CASE-ERROR-REC FROM 00258000

258100 CASE-ERROR-HEADER AFTER ADVANCING TOP-OF-PAGE 00258100

258200 WRITE CASE-ERROR-REC FROM 00258200

258300 CASE-DETAIL-HEADER AFTER ADVANCING 2 00258300

258400 WRITE CASE-ERROR-REC FROM 00258400

258500 DASH-LINE AFTER ADVANCING 1 00258500

258600 MOVE 4 TO CASE-LINE-CNTR 00258600

258700 END-IF. 00258700

258800 INITIALIZE ERROR-DETAIL-LINE. 00258800

258900 MOVE FCR-CASE-CASE-ID TO ERR-CASE-ID. 00258900

259000 MOVE FCR-CASE-ERROR-CODES TO HOLD-ERROR-CODES. 00259000

259100 MOVE SPACES TO CASE-ERROR-REC. 00259100

259200 WRITE CASE-ERROR-REC AFTER ADVANCING 1. 00259200

259300 ADD 1 TO CASE-LINE-CNTR. 00259300

259400 PERFORM 6100-CHECK-ERRORS THRU 6100-EXIT 00259400

259500 VARYING SUB1 FROM +1 BY +1 00259500

259600 UNTIL SUB1 \> +5. 00259600

259700 6000-EXIT. EXIT. 00259700

259800 00259800

259900 6100-CHECK-ERRORS. 00259900

260000 IF HOLD-ERROR-TABLE (SUB1) = SPACES 00260000

260100 MOVE +6 TO SUB1 00260100

260200 ELSE 00260200

260300 PERFORM 6200-GET-ERROR-MESSAGE THRU 6200-EXIT 00260300

260400 VARYING SUB2 FROM +1 BY +1 00260400

260500 UNTIL SUB2 \> 79 00260500

260600 END-IF. 00260600

260700 6100-EXIT. EXIT. 00260700

260800 00260800

260900 6200-GET-ERROR-MESSAGE. 00260900

261000 IF HOLD-ERROR-TABLE (SUB1) = ERR-CODE (SUB2) 00261000

261100 MOVE ERR-MESSAGE (SUB2) TO ERR-ERROR-MESSAGE 00261100

261200 MOVE ERR-CODE (SUB2) TO ERR-ERROR-CODE 00261200

261300 WRITE CASE-ERROR-REC FROM ERROR-DETAIL-LINE 00261300

261400 AFTER ADVANCING 1 00261400

261500 MOVE +80 TO SUB2 00261500

261600 ADD 1 TO CASE-LINE-CNTR 00261600

261700 INITIALIZE ERROR-DETAIL-LINE 00261700

261800 END-IF. 00261800

261900 6200-EXIT. EXIT. 00261900

262000 00262000

262100 7000-PRINT-PARTICIPANT-ERRORS. 00262100

262200 IF PART-LINE-CNTR \> 52 00262200

262300 ADD 1 TO PART-PAGE-CNTR 00262300

262400 MOVE FORMATTED-DATE TO PART-ERROR-DATE 00262400

262500 MOVE PART-PAGE-CNTR TO PART-PAGE-CNT 00262500

262600 WRITE PART-ERROR-REC FROM 00262600

262700 PART-ERROR-HEADER AFTER ADVANCING TOP-OF-PAGE 00262700

262800 WRITE PART-ERROR-REC FROM 00262800

262900 DETAIL-HEADER AFTER ADVANCING 2 00262900

263000 WRITE PART-ERROR-REC FROM 00263000

263100 DASH-LINE AFTER ADVANCING 1 00263100

263200 MOVE 4 TO PART-LINE-CNTR 00263200

263300 END-IF. 00263300

263400 INITIALIZE ERROR-DETAIL-LINE. 00263400

263500 MOVE FCR-PART-CASE-ID TO ERR-CASE-ID. 00263500

263600 MOVE FCR-PART-MEMBER-ID TO ERR-MEMBER-ID. 00263600

263700 MOVE FCR-PART-SSN TO FORMAT-SSN. 00263700

263800 MOVE SSN-F1-FIRST-THREE TO SSN-F2-FIRST-THREE. 00263800

263900 MOVE SSN-F1-FOUR-FIVE TO SSN-F2-FOUR-FIVE. 00263900

264000 MOVE SSN-F1-LAST-FOUR TO SSN-F2-LAST-FOUR. 00264000

264100 MOVE FORMATTED-SSN TO ERR-SSN. 00264100

264200 MOVE FCR-PART-ERROR-CODES TO HOLD-ERROR-CODES. 00264200

264300 MOVE SPACES TO PART-ERROR-REC. 00264300

264400 WRITE PART-ERROR-REC AFTER ADVANCING 1. 00264400

264500 ADD 1 TO PART-LINE-CNTR. 00264500

264600 PERFORM 7100-CHECK-ERRORS THRU 7100-EXIT 00264600

264700 VARYING SUB1 FROM +1 BY +1 00264700

264800 UNTIL SUB1 \> +5. 00264800

264900 7000-EXIT. 00264900

265000 00265000

265100 7100-CHECK-ERRORS. 00265100

265200 IF HOLD-ERROR-TABLE (SUB1) = SPACES 00265200

265300 MOVE +6 TO SUB1 00265300

265400 ELSE 00265400

265500 PERFORM 7200-GET-ERROR-MESSAGE THRU 7200-EXIT 00265500

265600 VARYING SUB2 FROM +1 BY +1 00265600

265700 UNTIL SUB2 \> 79 00265700

265800 END-IF. 00265800

265900 7100-EXIT. EXIT. 00265900

266000 00266000

266100 7200-GET-ERROR-MESSAGE. 00266100

266200 IF HOLD-ERROR-TABLE (SUB1) = ERR-CODE (SUB2) 00266200

266300 MOVE ERR-MESSAGE (SUB2) TO ERR-ERROR-MESSAGE 00266300

266400 MOVE ERR-CODE (SUB2) TO ERR-ERROR-CODE 00266400

266500 WRITE PART-ERROR-REC FROM ERROR-DETAIL-LINE 00266500

266600 AFTER ADVANCING 1 00266600

266700 MOVE +80 TO SUB2 00266700

266800 ADD 1 TO PART-LINE-CNTR 00266800

266900 INITIALIZE ERROR-DETAIL-LINE 00266900

267000 END-IF. 00267000

267100 7200-EXIT. EXIT. 00267100

267200 00267200

267300 8000-PRINT-QUERY-ERRORS. 00267300

267400 IF QUERY-LINE-CNTR \> 52 00267400

267500 ADD 1 TO QUERY-PAGE-CNTR 00267500

267600 MOVE FORMATTED-DATE TO QUERY-ERROR-DATE 00267600

267700 MOVE QUERY-PAGE-CNTR TO QUERY-PAGE-CNT 00267700

267800 WRITE QUERY-ERROR-REC FROM 00267800

267900 QUERY-ERROR-HEADER AFTER ADVANCING TOP-OF-PAGE 00267900

268000 WRITE QUERY-ERROR-REC FROM 00268000

268100 DETAIL-HEADER AFTER ADVANCING 2 00268100

268200 WRITE QUERY-ERROR-REC FROM 00268200

268300 DASH-LINE AFTER ADVANCING 1 00268300

268400 MOVE 4 TO QUERY-LINE-CNTR 00268400

268500 END-IF. 00268500

268600 INITIALIZE ERROR-DETAIL-LINE. 00268600

268700 MOVE QRY-CASE-ID TO ERR-CASE-ID. 00268700

268800 MOVE QRY-MEMBER-ID TO ERR-MEMBER-ID. 00268800

268900 MOVE QRY-SSN TO FORMAT-SSN. 00268900

269000 MOVE SSN-F1-FIRST-THREE TO SSN-F2-FIRST-THREE. 00269000

269100 MOVE SSN-F1-FOUR-FIVE TO SSN-F2-FOUR-FIVE. 00269100

269200 MOVE SSN-F1-LAST-FOUR TO SSN-F2-LAST-FOUR. 00269200

269300 MOVE FORMATTED-SSN TO ERR-SSN. 00269300

269400 MOVE QRY-ERROR-CODES TO HOLD-ERROR-CODES. 00269400

269500 MOVE SPACES TO QUERY-ERROR-REC. 00269500

269600 WRITE QUERY-ERROR-REC AFTER ADVANCING 1. 00269600

269700 ADD 1 TO QUERY-LINE-CNTR. 00269700

269800 PERFORM 8100-CHECK-ERRORS THRU 8100-EXIT 00269800

269900 VARYING SUB1 FROM +1 BY +1 00269900

270000 UNTIL SUB1 \> +5. 00270000

270100 8000-EXIT. EXIT. 00270100

270200 00270200

270300 8100-CHECK-ERRORS. 00270300

270400 IF HOLD-ERROR-TABLE (SUB1) = SPACES 00270400

270500 MOVE +6 TO SUB1 00270500

270600 ELSE 00270600

270700 PERFORM 8200-GET-ERROR-MESSAGE THRU 8200-EXIT 00270700

270800 VARYING SUB2 FROM +1 BY +1 00270800

270900 UNTIL SUB2 \> 79 00270900

271000 END-IF. 00271000

271100 8100-EXIT. EXIT. 00271100

271200 00271200

271300 8200-GET-ERROR-MESSAGE. 00271300

271400 IF HOLD-ERROR-TABLE (SUB1) = ERR-CODE (SUB2) 00271400

271500 MOVE ERR-MESSAGE (SUB2) TO ERR-ERROR-MESSAGE 00271500

271600 MOVE ERR-CODE (SUB2) TO ERR-ERROR-CODE 00271600

271700 WRITE QUERY-ERROR-REC FROM ERROR-DETAIL-LINE 00271700

271800 AFTER ADVANCING 1 00271800

271900 MOVE +80 TO SUB2 00271900

272000 ADD 1 TO QUERY-LINE-CNTR 00272000

272100 INITIALIZE ERROR-DETAIL-LINE 00272100

272200 END-IF. 00272200

272300 8200-EXIT. EXIT. 00272300

272400 00272400

272500 9000-PRINT-BATCH-COUNTS. 00272500

272600 IF REC-COUNT-LINE-CNT \> 55 00272600

272700 ADD 1 TO REC-COUNT-PAGE-CNT 00272700

272800 MOVE 5 TO REC-COUNT-LINE-CNT 00272800

272900 MOVE FORMATTED-DATE TO REC-COUNT-DATE 00272900

273000 MOVE REC-COUNT-PAGE-CNT TO REC-COUNT-PAGE 00273000

273100 WRITE PRINT-REC FROM RECORD-COUNT-HEADER 00273100

273200 AFTER ADVANCING TOP-OF-PAGE 00273200

273300 WRITE PRINT-REC FROM RECORD-COUNT-DETAIL-HEADER 00273300

273400 AFTER ADVANCING 2 00273400

273500 WRITE PRINT-REC FROM RECORD-COUNT-DETAIL-HEADER2 00273500

273600 AFTER ADVANCING 1 00273600

273700 WRITE PRINT-REC FROM DASH-LINE AFTER ADVANCING 1 00273700

273800 END-IF. 00273800

273900 IF HELD-IS-A-ROUTINE OR HELD-IS-A-PENDED 00273900

274000 INITIALIZE RECORD-COUNT-DETAIL 00274000

274100 IF HELD-IS-A-ROUTINE 00274100

274200 MOVE ROUTINE-LIT TO RCD-HEADER-TYPE 00274200

274300 ELSE 00274300

274400 MOVE QUERY-LIT TO RCD-HEADER-TYPE 00274400

274500 END-IF 00274500

274600 MOVE FCR-RESP-BATCH-NUMBER TO RCD-BATCH-NUM 00274600

274700 MOVE CASE-LIT TO RCD-RECORD-TYPE 00274700

274800 MOVE CASE-ACCEPTED-COUNT TO RCD-ACCEPTED 00274800

274900 MOVE CASE-REJECTED-COUNT TO RCD-REJECTED 00274900

275000 MOVE CASE-PENDED-COUNT TO RCD-PENDED 00275000

275100 MOVE TRLR-CASE-RECS-ACCEPTED TO SNT-ACCEPTED 00275100

275200 MOVE TRLR-CASE-RECS-REJECTED TO SNT-REJECTED 00275200

275300 MOVE TRLR-CASE-RECS-PENDING TO SNT-PENDED 00275300

275400 MOVE TRLR-CASE-RECS-RCVD TO SNT-TOTAL 00275400

275500 COMPUTE TOTAL-REC-COUNT = (CASE-ACCEPTED-COUNT + 00275500

275600 CASE-REJECTED-COUNT + CASE-PENDED-COUNT) 00275600

275700 MOVE TOTAL-REC-COUNT TO RCD-TOTAL 00275700

275800 WRITE PRINT-REC FROM RECORD-COUNT-DETAIL 00275800

275900 AFTER ADVANCING 2 00275900

276000 INITIALIZE RECORD-COUNT-DETAIL 00276000

276100 MOVE PERSON-LIT TO RCD-RECORD-TYPE 00276100

276200 MOVE PERSON-ACCEPTED-COUNT TO RCD-ACCEPTED 00276200

276300 MOVE PERSON-REJECTED-COUNT TO RCD-REJECTED 00276300

276400 MOVE PERSON-PENDED-COUNT TO RCD-PENDED 00276400

276500 MOVE TRLR-PERS-RECS-ACCEPTED TO SNT-ACCEPTED 00276500

276600 MOVE TRLR-PERS-RECS-REJECTED TO SNT-REJECTED 00276600

276700 MOVE TRLR-PERS-RECS-PENDING TO SNT-PENDED 00276700

276800 MOVE TRLR-PERS-RECS-RCVD TO SNT-TOTAL 00276800

276900 COMPUTE TOTAL-REC-COUNT = (PERSON-ACCEPTED-COUNT + 00276900

277000 PERSON-REJECTED-COUNT + PERSON-PENDED-COUNT) 00277000

277100 MOVE TOTAL-REC-COUNT TO RCD-TOTAL 00277100

277200 WRITE PRINT-REC FROM RECORD-COUNT-DETAIL 00277200

277300 AFTER ADVANCING 1 00277300

277400 INITIALIZE RECORD-COUNT-DETAIL 00277400

277500 MOVE QUERY-LIT TO RCD-RECORD-TYPE 00277500

277600 MOVE QUERY-ACCEPTED-COUNT TO RCD-ACCEPTED 00277600

277700 MOVE QUERY-REJECTED-COUNT TO RCD-REJECTED 00277700

277800 MOVE QUERY-PENDED-COUNT TO RCD-PENDED 00277800

277900 MOVE TRLR-QUERY-RECS-ACCEPTED TO SNT-ACCEPTED 00277900

278000 MOVE TRLR-QUERY-RECS-REJECTED TO SNT-REJECTED 00278000

278100 MOVE TRLR-QUERY-RECS-PENDING TO SNT-PENDED 00278100

278200 MOVE TRLR-QUERY-RECS-RCVD TO SNT-TOTAL 00278200

278300 COMPUTE TOTAL-REC-COUNT = (QUERY-ACCEPTED-COUNT + 00278300

278400 QUERY-REJECTED-COUNT + QUERY-PENDED-COUNT) 00278400

278500 MOVE TOTAL-REC-COUNT TO RCD-TOTAL 00278500

278600 WRITE PRINT-REC FROM RECORD-COUNT-DETAIL 00278600

278700 AFTER ADVANCING 1 00278700

278800 IF (CASE-ACCEPTED-COUNT = TRLR-CASE-RECS-ACCEPTED) 00278800

278900 AND (CASE-REJECTED-COUNT = TRLR-CASE-RECS-REJECTED) 00278900

279000 AND (CASE-PENDED-COUNT = TRLR-CASE-RECS-PENDING) 00279000

279100 AND (PERSON-ACCEPTED-COUNT = TRLR-PERS-RECS-ACCEPTED) 00279100

279200 AND (PERSON-REJECTED-COUNT = TRLR-PERS-RECS-REJECTED) 00279200

279300 AND (PERSON-PENDED-COUNT = TRLR-PERS-RECS-PENDING) 00279300

279400 AND (QUERY-ACCEPTED-COUNT = TRLR-QUERY-RECS-ACCEPTED) 00279400

279500 AND (QUERY-REJECTED-COUNT = TRLR-QUERY-RECS-REJECTED) 00279500

279600 AND (QUERY-PENDED-COUNT = TRLR-QUERY-RECS-PENDING) 00279600

279700 CONTINUE 00279700

279800 ELSE 00279800

279900 MOVE SPACES TO PRINT-REC 00279900

280000 MOVE OUT-OF-BALANCE-LIT TO PRINT-REC 00280000

280100 WRITE PRINT-REC AFTER ADVANCING 1 00280100

280200 END-IF 00280200

280300 END-IF. 00280300

280400 IF HELD-IS-A-LOCATE 00280400

280500 INITIALIZE RECORD-COUNT-DETAIL 00280500

280600 MOVE LOCATE-LIT TO RCD-HEADER-TYPE 00280600

280700 MOVE FCR-RESP-BATCH-NUMBER TO RCD-BATCH-NUM 00280700

280800 MOVE PROACTIVE-LIT TO RCD-RECORD-TYPE 00280800

280900 MOVE PROACTIVE-COUNT TO RCD-ACCEPTED 00280900

281000 MOVE TRLR-QRY-PRO-MATCH-RECS TO SNT-ACCEPTED 00281000

281100 WRITE PRINT-REC FROM RECORD-COUNT-DETAIL 00281100

281200 AFTER ADVANCING 1 00281200

281300 INITIALIZE RECORD-COUNT-DETAIL 00281300

281400 MOVE IRS-1099-LIT TO RCD-RECORD-TYPE 00281400

281500 MOVE IRS-1099-COUNT TO RCD-ACCEPTED 00281500

281600 MOVE TRLR-1099-RECS TO SNT-ACCEPTED 00281600

281700 WRITE PRINT-REC FROM RECORD-COUNT-DETAIL 00281700

281800 AFTER ADVANCING 1 00281800

281900 INITIALIZE RECORD-COUNT-DETAIL 00281900

282000 MOVE EXTERNAL-LIT TO RCD-RECORD-TYPE 00282000

282100 MOVE LOCATE-COUNT TO RCD-ACCEPTED 00282100

282200 MOVE TRLR-FPLS-RESP-RECS TO SNT-ACCEPTED 00282200

282300 WRITE PRINT-REC FROM RECORD-COUNT-DETAIL 00282300

282400 AFTER ADVANCING 1 00282400

282500 INITIALIZE RECORD-COUNT-DETAIL 00282500

282600 MOVE NDNH-LIT TO RCD-RECORD-TYPE 00282600

282700 MOVE NDNH-COUNT TO RCD-ACCEPTED 00282700

282800 MOVE TRLR-NDNH-RESP-RECS TO SNT-ACCEPTED 00282800

282900 WRITE PRINT-REC FROM RECORD-COUNT-DETAIL 00282900

283000 AFTER ADVANCING 1 00283000

283100 END-IF. 00283100

283200 9000-EXIT. EXIT. 00283200

283300 00283300