| View previous topic :: View next topic |
| Author |
Message |
Amit79kr
Beginner
Joined: 06 Jul 2007
Posts: 12
Topics: 4
|
 Posted: Wed Dec 03, 2008 9:34 am Post subject: Looking up a value in a variable length file across record |
 |
|
Hi,
I have a requirement for looking up a particular value as X in variable VAR-FLAG in a variable length file. The file looks something like this-
---------------------------X-----
---------------------X-----------
-------X---------------------------------------------------
-----------------------------------X--------------------------
-------------X
This VAR-FLAG can appear anywhere in the record at start at end as it is part of an ODO occurs clause. ODO (Occurs Depending ON) clause is defined as varying from 0 to 150 times depending on something. The value X is not unique in record and can appear as value in some other variable too.
Can anyone suggest how can I check this particular variable if it is having X value using DFSORT.
FYI |
|
| Back to top |
|
 |
Frank Yaeger
Sort Forum Moderator
Joined: 02 Dec 2002
Posts: 1618
Topics: 31
Location: San Jose
|
| Posted: Wed Dec 03, 2008 11:49 am Post subject: |
|
|
I don't understand what you're trying to do. Your explanation is quite confusing.
Are you looking for the keyword 'VAR-FLAG' in the records, or are you looking for a constant of 'X' in the records, or what? Please explain more clearly. A better example would help. If you are trying to find something in the records, you need to give the "rules" for finding it. If you can't give "rules", then it can't be programmed.
| Quote: | | The value X is not unique in record and can appear as value in some other variable too. |
So what are the "rules" for identifying whatever you want to identify? How is DFSORT supposed to know how to find what you want it to look for?
_________________
Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort |
|
| Back to top |
|
|
Terry_Heinze
Supermod
Joined: 31 May 2004
Posts: 391
Topics: 4
Location: Richfield, MN, USA
|
| Posted: Wed Dec 03, 2008 1:19 pm Post subject: |
|
|
Amit can clarify but I think he's saying that he's only interested in the literal 'X' if it is the value in any of the fields named VAR-FLAG which occurs a variable number of times in the record. Any 'X' that exists outside of the ODO part of the record is to be ignored. "Should you decide to accept this mission, Frank...". 
_________________
....Terry |
|
| Back to top |
|
|
Frank Yaeger
Sort Forum Moderator
Joined: 02 Dec 2002
Posts: 1618
Topics: 31
Location: San Jose
|
| Posted: Wed Dec 03, 2008 2:10 pm Post subject: |
|
|
Terry,
Sorry, but that doesn't help. How does one identify a field named VAR-FLAG in the input record? How does one identify an 'X' that exists outside of the ODO part of the record. I need "rules" for "processing" the input records that I can program to.
_________________
Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort |
|
| Back to top |
|
|
Terry_Heinze
Supermod
Joined: 31 May 2004
Posts: 391
Topics: 4
Location: Richfield, MN, USA
|
| Posted: Wed Dec 03, 2008 2:34 pm Post subject: |
|
|
I agree -- if my understanding is right, it can't be done with a sort product. In order to program the solution in COBOL, one would need to know the position of the beginning of the variable portion of the record and the number of occurrences in that record.
_________________
....Terry |
|
| Back to top |
|
|
Amit79kr
Beginner
Joined: 06 Jul 2007
Posts: 12
Topics: 4
|
| Posted: Thu Dec 04, 2008 1:52 am Post subject: |
|
|
Sorry folks, I believe my english was not correct. I will try to give you the details of what I am looking for -
My input file is a VSAM file KSDS
MAX REC SZ - 32752
AVG REC SZ - 322
| Code: |
03 :IND:-REC-TYP1-DOPU.
05 :IND:-DOPU-DATA OCCURS 0 TO 150 TIMES
DEPENDING ON :IND:-NBR-DOPU
INDEXED BY :IND:-DOPU-DATA-NDX.
10 :IND:-DOPU-DATE-IN PIC 9(07) COMP-3.
10 :IND:-DOPU-DATE-LO-REAS PIC 9(07) COMP-3.
10 :IND:-DOPU-DATE-BAT-RES PIC 9(07) COMP-3.
10 :IND:-DOPU-DATE-TRIGGER PIC 9(07) COMP-3.
10 :IND:-DOPU-OFC PIC 9(03) COMP-3.
10 :IND:-DOPU-CNI PIC 9(11) COMP-3.
10 :IND:-DOPU-FIX PIC 9(03) COMP-3.
10 :IND:-DOPU-NPD-LINES PIC 9(03) COMP-3.
10 :IND:-DOPU-SYS PIC X(01).
10 :IND:-DOPU-WRK.
15 :IND:-DOPU-TSER PIC X(02).
15 :IND:-DOPU-TSER-REAS PIC X(03).
10 :IND:-DOPU-STAT PIC X(02).
10 :IND:-DOPU-PDN-CD PIC X(3).
10 :IND:-DOPU-MGR PIC X(2).
10 :IND:-DOPU-PRO PIC 9(07) COMP-3.
10 :IND:-DOPU-COM PIC X(68).
|
In the above code you can see that we have used ODO clause which varies from 0 to 150 depending on which is at position 537 in the file. Which again can vary as we have ODO clause defined before this as well hence the position alters everytime.
The only part as usual which is fixed is the KEY of VSAM file. Having record type as one part of it, in this case which we are interested is record type 1.
We are looking into two variables
| Code: | | :IND:-DOPU-FIX & :IND:-DOPU-STAT |
. We need to select values from the file if these variables are having something like
0 & 0
0 & 60
1 & 60
The above are only some of the cases.
Now you can see that it varies from 0 to 150 and we have atleast 2 ODO clauses before the above ODO clause. So whole record varies in lenghth drasticaly and the positions are not really fixed.
If I want to select the records based on the above condition how can I do it using sort?
Please let me know if the comments are not clear or anything else required, I shall try and get through that too. |
|
| Back to top |
|
|
Amit79kr
Beginner
Joined: 06 Jul 2007
Posts: 12
Topics: 4
|
| Posted: Sat Dec 06, 2008 12:11 pm Post subject: |
|
|
Hi Frank,
Can this thing be done? Or is unrealistic? I am waiting for response.....else I will use eazytreive or COBOL... |
|
| Back to top |
|
|
Frank Yaeger
Sort Forum Moderator
Joined: 02 Dec 2002
Posts: 1618
Topics: 31
Location: San Jose
|
| Posted: Sat Dec 06, 2008 8:03 pm Post subject: |
|
|
Sorry, I don't speak COBOL so it's difficult for me to figure out what you want to do. But if you are saying that you can have from 0 to 150 "sections" as indicated by a counter and you want to extract data from each of the sections that are there, you would probably need to use 150 IFTHEN clauses to do it. That may or may not be practical (you could "generate" the control statements instead of hardcoding them).
Kolusu knows COBOL and would probably have an easier time figuring out what you want and if it can be done. He'll be back from vacation on Monday. You might want to send him a private message asking him to take a look.
_________________
Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort |
|
| Back to top |
|
|
Amit79kr
Beginner
Joined: 06 Jul 2007
Posts: 12
Topics: 4
|
| Posted: Sun Dec 07, 2008 5:54 am Post subject: |
|
|
| Thank you. |
|
| Back to top |
|
|
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12376
Topics: 75
Location: San Jose
|
| Posted: Mon Dec 08, 2008 11:40 am Post subject: |
|
|
Amit79kr,
Post your entire cobol layout of the file.
_________________
Kolusu
www.linkedin.com/in/kolusu |
|
| Back to top |
|
|
Amit79kr
Beginner
Joined: 06 Jul 2007
Posts: 12
Topics: 4
|
| Posted: Mon Dec 08, 2008 2:53 pm Post subject: |
|
|
Hi Kolusu,
Below given is the complete layout (copybook) of my file -
| Code: |
005100 03 :IND:-REC-TYP1-FIXED.
005200 05 :IND:-FILE-KEY-AREA.
005300 10 :IND:-FILE-FLN-ALT-KEY.
005400 15 :IND:-ADJ-OFFICE PIC 9(03) COMP-3.
005500 15 :IND:-FLN PIC 9(11) COMP-3.
005600 15 :IND:-RECORD-TYPE-FLN-AIX PIC X(01).
005700 10 :IND:-FILE-SSN-ALT-KEY.
005800 15 :IND:-EMP-ID.
005900 20 :IND:-EMP-ID-1 PIC X(1).
006000 20 :IND:-EMP-SSN PIC X(09).
006100 15 :IND:-RECORD-TYPE-AIX PIC X.
006200 10 :IND:-FILE-KEY.
006300 15 :IND:-ICN PIC 9(11) COMP-3.
006400 15 :IND:-RECORD-TYPE PIC X(1).
006500 88 :IND:-REC-TYPE1-TOPS VALUE '1'.
006600 88 :IND:-REC-TYPE2-HCDS VALUE '2'.
006700 88 :IND:-REC-TYPE3-MCDS VALUE '3'.
006800 88 :IND:-REC-TYPE4-NEIC VALUE '4'.
006900 15 :IND:-ICN-SUFFIX PIC 9(3) COMP-3.
007100 05 :IND:-CLAIM-DATE-STAMP-1 PIC S9(07) COMP-3.
007200 05 :IND:-CLAIM-TIME-STAMP-1 PIC S9(09) COMP-3.
007400 05 :IND:-ENGINE-IND PIC X.
007500 88 :IND:-EAST-REGION VALUE 'E'.
007600 88 :IND:-WEST-REGION VALUE 'W'.
007700 88 :IND:-ARCS-REGION VALUE 'A'.
007800 88 :IND:-BELL-REGION VALUE 'B'.
007900 88 :IND:-NORTH-REGION VALUE 'N'.
008000 88 :IND:-SOUTH-REGION VALUE 'S'.
008100 88 :IND:-CENTRAL-REGION VALUE 'C'.
008100 88 :IND:-GEO-REGION VALUE 'G'.
008100 88 :IND:-OMNI-REGION VALUE 'O'.
008100 88 :IND:-QARK-REGION VALUE 'Q'.
008100 88 :IND:-KING-REGION VALUE 'K'.
008100 88 :IND:-XFIL-REGION VALUE 'X'.
NEWENG 88 :IND:-DART-REGION VALUE 'D'.
NEWENG 88 :IND:-FOXX-REGION VALUE 'F'.
NEWENG 88 :IND:-YOGI-REGION VALUE 'Y'.
NEWENG 88 :IND:-ZEUS-REGION VALUE 'Z'.
MYTH 88 :IND:-MYTH-REGION VALUE 'M'.
UNOA 88 :IND:-UNOA-REGION VALUE 'U'.
08015P 88 :IND:-HULA-REGION VALUE 'H'.
08015P 88 :IND:-JAVA-REGION VALUE 'J'.
08015P 88 :IND:-LUNA-REGION VALUE 'L'.
08015P 88 :IND:-RITA-REGION VALUE 'R'.
008500 05 :IND:-RECORD-TYPE-IND.
008600 10 :IND:-RECORD-TYPE2-IND PIC X.
FE0509 88 :IND88:TYPE2-EXISTS VALUE 'Y'.
008800 10 :IND:-RECORD-TYPE3-IND PIC X.
FE0509 88 :IND88:TYPE3-EXISTS VALUE 'Y'.
009000 10 :IND:-RECORD-TYPE4-IND PIC X.
FE0509 88 :IND88:TYPE4-EXISTS VALUE 'Y'.
009300 05 :IND:-PICK-FLAG PIC X.
FE0509 88 :IND88:TOPS-UPDATED VALUE 'P' 'M' 'A' 'N'
009500 'J' 'L'.
009400 88 TOPS-PAID-CLOSED-REJ VALUE 'P' 'A' 'J' 'L'.
009600 88 CLAIM-AUTO-PAID VALUE 'A'.
009700 88 CLAIM-AUTO-PEND VALUE 'N'.
009800 88 CLAIM-MANUAL-PAID VALUE 'P'.
009900 88 CLAIM-MANUAL-PEND VALUE 'M'.
010000 88 CLAIM-WAS-REJECTED VALUE 'J'.
010100 88 CLAIM-WAS-CLOSED VALUE 'L'.
010200 88 CLAIM-WAS-SELECTED VALUE 'S' 'T' 'F'
010300 'D' 'R' 'Q'
010400 'B' 'O'.
FE0509 88 :IND88:CLAIM-WAS-TRANSFERRED VALUE 'T' 'B' 'O'.
FE0509 88 :IND88:CLAIM-WAS-DELETED VALUE 'D'.
010700 88 CLAIM-CLEAN-UP VALUE 'C'.
010700 88 CLAIM-IN-MESSAGE-QUEUE VALUE 'G'.
010800 88 CLAIM-STATUS-DEP-NOTFND VALUE '2'.
010900 88 CLAIM-STATUS-EMP-NOTFND VALUE '1'.
011000 88 DISCOUNTED-PROVIDER VALUE '$'.
011200 05 :IND:-EMP-POL-NO PIC X(6).
011300 05 :IND:-CLAIM-FIRST-NAME PIC X(10).
011400 05 :IND:-CLAIM-RELATIONSHIP PIC X(2).
011500 05 :IND:-CLAIM-SEL-OR-NBR PIC X(9).
011600 05 :IND:-CLAIM-SOURCE-IND PIC X.
011700 88 :IND:-HOSP-CLAIM VALUE 'H' '6' '8'
DL0702 'F' 'R'
011800 'N' 'U' 'A' 'K'.
011900 88 :IND:-MED-CLAIM VALUE 'M' '5' '7' '9'
012000 'O' 'V' 'B' 'D'
012100 'E' 'G' 'I' 'J'
DL0702 'L' 'P' 'X'
012300 'Q' 'S' 'W' 'Y'
012400 'Z' 'C' '4'.
012500 88 :IND:-PAPERLESS-CLAIM VALUE 'H' 'M' 'N' 'O'
012600 'U' 'V' '6' '7'
012700 '8' '9' 'A' 'B'
012800 'D' 'E' 'G' 'I'
012900 'K' 'L' 'P' 'R'
013000 'X' 'Q' 'S' 'W'
DL0702 'F' '4' '5'
013100 'Y' 'Z' 'C'.
013200 88 :IND:-NEIC-CLAIM VALUE 'H' 'M'.
DL0702 88 :IND:-B2B-MED-CLAIM VALUE 'D'.
DL0702 88 :IND:-837-MED-CLAIM VALUE 'E'.
013500 88 :IND:-HCN-MED-CLAIM VALUE 'G'.
013600 88 :IND:-HCDS-CLAIM VALUE 'H'.
013800 88 :IND:-UB92-KEYED-CLAIM VALUE 'K'.
013900 88 :IND:-HCFA-KEYED-CLAIM VALUE 'L'.
014000 88 :IND:-MCDS-CLAIM VALUE 'M'.
DL0702 88 :IND:-837-HOSP-CLAIM VALUE 'F'.
014200 88 :IND:-UB92-ELEC-CLAIM VALUE 'N'.
014300 88 :IND:-NORRELL-MED-CLAIM VALUE 'O'.
DL0702 88 :IND:-PORTAL-MED-CLAIM VALUE 'P'.
DL0702 88 :IND:-837-XOVER-CLAIM VALUE 'Q'.
DL0702 88 :IND:-837-PARTA-CLAIM VALUE 'R'.
014600 88 :IND:-USBH-HOSP-CLAIM VALUE 'U'.
014700 88 :IND:-USBH-MED-CLAIM VALUE 'V'.
014800 88 :IND:-MEDC-XOVER-CLAIM VALUE 'X'.
06999B 88 :IND:-CFE-MED-RESERVED VALUE 'Q' 'W'
015000 'Y' 'Z'.
06999B 88 :IND:-RTA-PROF-CLAIM VALUE 'S'.
015100 88 :IND:-MANUAL-CLAIM VALUE '3'.
015200 88 :IND:-TOPS-CLAIM VALUE '4' '5'.
015300 88 :IND:-TOPS-FE-HOSP VALUE '4'.
015400 88 :IND:-TOPS-FE-CDS VALUE '5'.
015500 88 :IND:-CDS-CLAIM VALUE '6' '7'.
015600 88 :IND:-CDS-HOSP VALUE '6'.
015700 88 :IND:-CDS-MED VALUE '7'.
015800 88 :IND:-FE-PAPERLESS-HOSP VALUE '8' 'A'.
015900 88 :IND:-FE-PAPERLESS-MED VALUE '9' 'B' 'O'.
016000 88 :IND:-TOPS-INPUT VALUE 'T'.
016100 88 :IND:-MEDC-FE-CLAIM VALUE 'C' 'N' 'P'.
016100 88 :IND:-ELECTRONIC-CLAIM VALUE 'H' 'M' 'C' 'X'
DL0702 'D' 'E' 'F' 'Q'
DL0702 'R'
016200 'U' 'V' 'N' 'P'. V1
016500 05 :IND:-AUTO-IND PIC X(1).
016800 05 :IND:-IMAGE-IND PIC X.
TH0700 05 :IND:-JOB-65-66-IND PIC X.
017000 05 :IND:-FORCE-BALANCE PIC X.
017100 05 :IND:-MOVE-REV-L04 PIC X(1).
017200 05 :IND:-PND-RSLV-ID PIC X(6).
017400 05 :IND:-PAPERLESS PIC X.
017500 05 :IND:-PRODUCT-CODE PIC X(2).
017600 05 :IND:-PAY-OFC PIC 9(3) COMP-3.
017700 05 :IND:-PAY-SYS PIC X.
017800 05 :IND:-NBR-SUFFIXES PIC 9(3) COMP-3.
017900 05 :IND:-IDX-PROV-TYPE PIC X(2).
018000 05 :IND:-SPEC-WQ-IND PIC X(01).
018500 05 :IND:-ST-ISSUE PIC X(02).
018600 05 :IND:-CLM-PRTY PIC X(01).
018700 05 :IND:-POLICY-GRP PIC X(06).
018800 05 :IND:-MICROFILM-INFO.
018900 10 :IND:-FILM-LOC PIC 9(3) COMP-3.
DL0299 10 :IND:-UFE-UID-SPLIT PIC X(02).
019000 10 FILLER PIC X(04).
019100 05 :IND:-PROV-FLAG PIC X.
019200 05 :IND:-PROV-TYPE-TOPS PIC X(2).
019800 05 :IND:-PRS-IND PIC X(1).
019900 88 PRS-APPLIES VALUE '1'.
020000 88 PRS-CLAIM-NOT-AVAIL VALUE '2'.
020100 88 PRS-COMPLETED-REVIEW VALUE '3'.
020200 05 :IND:-PRS-FILTER-DAYS PIC 9(3) COMP-3.
020300 05 :IND:-PRS-PEND-TOPS PIC X(1).
FE0509 88 :IND88:PRS-CLAIM-PENDED-IN-TOPS VALUE 'Y'.
020500 05 :IND:-PRS-NXT-LINE-NBR PIC 9(3) COMP-3.
020600 05 :IND:-STATUS PIC X(4).
020700 05 :IND:-NBR-PMT-SCREENS PIC 9(3) COMP-3.
020800 05 :IND:-PRICE-IND PIC X.
021000 05 :IND:-TOPS-PRS-IND PIC X.
021100 05 :IND:-USBH-IND PIC X.
TH1198 05 :IND:-ESRD-IND PIC X.
JL0399 05 :IND:-PDI-HEALTH-PLAN PIC X(4).
TH0799 05 :IND:-IMCS-RUNOUT-IND PIC X(1).
DAMAG 05 :IND:-CLM-REVIEW-BY PIC X(1).
DAMAG 88 :IND:-MAG-REVIEW VALUE 'M'.
DL0703 88 :IND:-ICES-REVIEW VALUE 'I'.
DAMAG 88 :IND:-PRS-REVIEW VALUE 'P'.
DAMAG 88 :IND:-BOTH-REVIEW VALUE 'B'.
021600 05 :IND:-TRIG-REL-FMR PIC X.
021700 05 :IND:-MRI-PLAN-VAR PIC X(04).
021800 05 :IND:-PRE-EXIST-MONTHS PIC X(02).
021900 05 :IND:-SQ-EPI-IND PIC X.
022000 05 :IND:-SQ-PROV-IND PIC X.
022100 05 :IND:-SQ-EDS1-IND PIC X.
022200 05 :IND:-WAIVER-IND PIC X.
022300 05 :IND:-DX-SPLIT-IND PIC X.
022400 88 :IND:-DX-SPLIT VALUE 'Y'.
022510 05 :IND:-VENDOR-ID PIC X(2).
022510 05 :IND:-MULT-EPIS PIC X.
022510 05 :IND:-DENY-CANC-TYPE PIC X.
FE0509 05 :IND:-CLOSE-RMK PIC X(3).
022510 05 :IND:-MEDB-MULT-E6 PIC X(1).
05 :IND:-SAZ-GRP PIC X(2).
05 :IND:-SAZ-WRKQ-SETUP PIC X(1).
05 :IND:-FMR-GRP-IND PIC X(1).
022510 05 :IND:-SAZ-LNAME-3 PIC X(3).
022510 05 :IND:-PRODUCT-CCM PIC X(3).
022510 05 :IND:-METLIFE-CTL-NO.
022510 10 :IND:-METLIFE-DCC PIC X(02).
022510 10 :IND:-METLIFE-FLN PIC X(10).
022510 05 :IND:-UHC-IND PIC X(1).
019900 88 UHC-APPLIES VALUE '1'.
020000 88 UHC-CLAIM-NOT-AVAIL VALUE '2'.
020100 88 UHC-COMPLETED-REVIEW VALUE '3'.
022510 05 :IND:-PROV-STATUS PIC X(1).
022510 05 :IND:-NY-ELIGIBLE-IND PIC X(1).
05 :IND:-MDCR-BYPASS-EDIT PIC X(1).
022510 05 :IND:-SUSPEND-IND PIC X(1).
022510 05 :IND:-XMET-CONVERSION-DATE PIC S9(5) COMP-3.
FE0509 05 :IND:-NY-SURCHARGE PIC 9(7)V99 COMP-3.
JL0198 05 :IND:-GE-CLAIM-TYPE PIC X(01).
JL0198 88 :IND:-GE-PART-A VALUE 'A'.
JL0198 88 :IND:-GE-PART-B VALUE 'B'.
JL0198 88 :IND:-GE-RX VALUE 'R'.
JL0198 88 :IND:-GE-EXTENDED-CARE VALUE 'E'.
JL0198 88 :IND:-GE-OH-SURGERY VALUE 'O'.
022510 05 :IND:-ENCOUNTER-IND PIC X(1).
022600 05 :IND:-URGENT-CARE PIC X.
JC1200 05 :IND:-PDI-PROVIDER-TIN-NUMBER-10 PIC 9(10).
FE0509 05 :IND:-PDI-PROVIDER-TIN-SUFFIX PIC 9(5).
JC1200 05 :IND:-PDI-PROVIDER-GRP-NME.
JC1200 10 :IND:-PDI-PROVIDER-NM-LST PIC X(20).
JC1200 10 :IND:-PDI-PROVIDER-NM-FST PIC X(10).
JC1200 05 :IND:-ZP-BYPASS-IND PIC X(1).
KF1200 05 :IND:-PROMPT-PAY-DATA.
KF1200 10 :IND:-ADDRESSEE-MAIL PIC X(1).
KF1200 10 :IND:-LETTER-COMPLETE-CLM PIC 9(5).
KF1200 10 :IND:-CLEAN-TRIGGER-DATE PIC 9(8) COMP-3.
KF1200 10 :IND:-LETTER-INCOMPLETE-CLM PIC 9(5).
KF1200 10 :IND:-DIRTY-TRIGGER-DATE PIC 9(8) COMP-3.
KF1200 10 :IND:-CLEAN-DIRTY-DEFINITION-IND PIC X(2).
KF1200 10 :IND:-CLEAN-DIRTY-IND PIC X(1).
KF1200 10 :IND:-CLEAN-DIRTY-DATE PIC 9(8) COMP-3.
KF1200 10 :IND:-FMR-FAIL-IND PIC X.
KF1200 10 :IND:-SENT-FAIL-IND PIC X.
KF1200 10 :IND:-SENT-FAIL-DATE PIC 9(8) COMP-3.
DL1200 05 :IND:-MALLINCKRODT-VIS PIC X.
TH1200 05 :IND:-ZP-ROUTE-IND PIC X(1).
KF0101 05 :IND:-PROVIDER-MPIN PIC X(9).
KF0101 05 :IND:-PROVIDER-SA-ADDR-SEQ PIC X(9).
JC0201 05 :IND:-EARLIEST-DOS PIC S9(7) COMP-3.
JC0201 05 :IND:-LATEST-DOS PIC S9(7) COMP-3.
JC0201 05 :IND:-MBR-MARKET PIC X(7).
JC0201 05 :IND:-COMP-CD PIC X(2).
JC0301 05 :IND:-OPT-OUT-IND PIC X(1).
JC0301 05 :IND:-MRI-PAT-DOB PIC S9(9) COMP-3.
JC0301 05 :IND:-MBR-IPA PIC X(5).
DL0801 05 :IND:-HMO-ACCT PIC X(3).
DA1201 05 :IND:-ORIG-ICN PIC 9(10) COMP-3.
DA1201 05 :IND:-TOPS-ORIG-DRAFT-NBR PIC 9(10) COMP-3.
JN1201 05 :IND:-UNET-DRG PIC X(3).
JN1201 05 :IND:-CAI-INDICATOR PIC X(1).
DA1201 05 :IND:-CLM-FIL-IND PIC X(02).
JN0202 05 :IND:-CNVT-TO-SRC PIC X(01).
DA0702 05 :IND:-EDS-UPD-APPLIED PIC X(01).
NT0605 05 :IND:-ATG-JOB-SEQ-DIGIT PIC X(01).
DA0702 05 :IND:-CLAIM-TYPE-EXCEPTIONS PIC X(01).
DA0702 05 :IND:-DOL-TRIGGER-DT PIC 9(8) COMP-3.
DA0702 05 :IND:-DOL-SENT-FAIL-IND PIC X(01).
DA0702 05 :IND:-DOL-SENT-FAIL-DT PIC 9(8) COMP-3.
FE0509 05 :IND:-DOL-CLM-RMK PIC X(03).
DA0702 05 :IND:-SPLIT-SRCE-REC PIC X(01).
DL0702 05 :IND:-CLOSE-EB-IND PIC X(01).
DL0702 05 :IND:-ATG-JOB-NBR PIC X(10).
FE0509 05 :IND:-ATG-RMK-CD PIC X(03).
DL0702 05 :IND:-ATG-OTS-REASON-CD PIC X(03).
DL0702 05 :IND:-ATG-LETTER-NBR PIC X(03).
DL0702 05 :IND:-CORRECTION-TRAN-CD PIC X(02).
FEB04A 05 :IND:-ACN-IND PIC X(01).
VC1002 05 :IND:-RECYCLE-IND PIC X(01).
DL1002 05 :IND:-RPR-STATUS-INDICATOR PIC X(01).
DL1002 05 :IND:-RPR-VENDOR-INDICATOR PIC X(01).
DL1002 05 :IND:-RPR-VENDOR-TRG-RLS PIC 9(03) COMP-3.
TD0203 05 :IND:-UB92-FAC-CONTR-METH PIC X(01).
TD0203 05 :IND:-UB92-SURG-IND PIC X(01).
JC0203 05 :IND:-CQRCM-TYPE PIC X(1).
JC0203 05 :IND:-CQRCM-SEND-TO PIC X(1).
JC0203 05 :IND:-CQRCM-SEND-CNT PIC 9(1).
JR0303 05 :IND:-PHI-IND PIC X(01).
TC0403 05 :IND:-SKIP-RECIP-STATE-IND PIC X.
TC0403 88 SKIP-RECIP-DERIVATION VALUE '1' '2'.
FE0509 88 :IND88:SKIP-RECIP-SET-ONLINE VALUE '1'.
TC0403 88 SKIP-RECIP-SET-BATCH VALUE '2'.
DL0403 05 :IND:-UB92-ORIG-POS PIC X(02).
JUN03 05 :IND:-ORG-ID PIC X(05).
JUN03 05 :IND:-RELEASED-FROM-COMET PIC X(01).
JUN03 05 :IND:-CQRCM-DT-SENT PIC 9(5) COMP-3.
JC0405 05 :IND:-PROV-SA-STATE PIC X(02).
DL1205 05 :IND:-INAPR-PROV-REF-IND PIC X(01).
08105T 05 :IND:-IO-IND PIC X(01).
12772D 05 :IND:-EDS4-UPDATE-IND PIC X(01).
12772D 88 :IND88:EDS4-UPDATED VALUE 'U'.
12772D 88 :IND88:EDS4-RELEASED VALUE 'R'.
05630D 05 :IND:-RV-IND PIC X(01).
13848H 05 :IND:-DOL-SPLIT-IND PIC X(01).
13848H 88 :IND:-NEEDS-SPLIT VALUE 'Y'.
13848H 88 :IND:-HAS-SPLIT VALUE 'S'.
17616S 05 :IND:-REPRICE-IND PIC X(01).
JC0203 05 :IND:-CQRCM-RULES OCCURS 5 TIMES.
JC0203 10 :IND:-CQRCM-TYPE-OF-RULE PIC X(01).
JC0203 10 :IND:-CQRCM-BUS-RULE-CD PIC X(06).
TD0203 05 :IND:-FACILITY-TABLE.
TD0203 10 :IND:-FAC-ICN-TABLE OCCURS 10 TIMES.
TD0203 15 :IND:-FAC-ICN PIC 9(11) COMP-3.
TD0203 15 :IND:-FAC-ICN-SUFF PIC 9(03) COMP-3.
TD0203 05 :IND:-FAC-ICN-COUNT PIC 9(02).
022700 05 :IND:-NBR-CLMINF PIC S9(4) COMP.
022800 05 :IND:-NBR-DOPU PIC S9(4) COMP.
022900 05 :IND:-NBR-OF-LINES PIC S9(4) COMP.
DA1201 05 :IND:-NBR-REC4 PIC S9(4) COMP.
DA1201 05 :IND:-NBR-REC4-INS PIC S9(4) COMP.
HT0604 05 :IND:-NLI-DATA-AREA.
HT0604 10 :IND:-LTR1-RELEASE-DATE PIC S9(8) COMP-3.
HT0604 10 :IND:-LTR1-RPT-DAYS PIC 9(04).
HT0604 10 :IND:-LTR1-PROV PIC X(03).
HT0604 10 :IND:-LTR1-MEM PIC X(03).
HT0604 10 :IND:-LTR2-RELEASE-DATE PIC S9(8) COMP-3.
HT0604 10 :IND:-LTR2-RPT-DAYS PIC 9(04).
HT0604 10 :IND:-LTR2-PROV PIC X(03).
HT0604 10 :IND:-LTR2-MEM PIC X(03).
HT0604 10 :IND:-LTR3-RELEASE-DATE PIC S9(8) COMP-3.
HT0604 10 :IND:-LTR3-RPT-DAYS PIC 9(04).
HT0604 10 :IND:-LTR3-PROV PIC X(03).
CS0410 05 :IND:-NEW-COINS-IND PIC X(01).
CS0410 05 :IND:-NEW-COINS-CTR PIC 9(01).
FE0509 05 :IND:-RECALL-CLOSE-DENY PIC X(03)
TD1204 OCCURS 2 TIMES.
RP1204 05 :IND:-MEDRX-SIGNATURE PIC X(26).
SD0412 05 :IND:-NS58-NS1E-IND PIC X(01).
RS0503 05 :IND:-BYPASS-PROV-FLAG PIC X(01).
SD0503 05 :IND:-NDB-RTN-CODE PIC X(04).
SD0503 05 :IND:-RTN-ADDRESS-IND PIC X(01).
HT0504 05 :IND:-WORKFLOW-ID.
HT0504 10 :IND:-PAYOR PIC X(02).
HT0504 10 :IND:-PROF-FACILITY PIC X(01).
HT0504 10 :IND:-IN-OUT-PATIENT PIC X(01).
HT0504 10 :IND:-COM-MCARE-MCAIDE PIC X(02).
HT0504 10 :IND:-OPTION-A-B PIC X(01).
HT0504 10 :IND:-WORKFLOW-ID-FILLER PIC X(03).
SN0405 05 :IND:-SBI-IND PIC X(01).
SN0605 88 SBI-CLAIM-PSEUDOPENDED VALUE '1'.
SN0605 88 SBI-CLAIM-SENT-TO-VENDOR VALUE '2'.
SN0605 88 SBI-CLAIM-PAID VALUE '3'.
SN0605 88 SBI-CLAIM-DENIED VALUE '4'.
SN0605 88 SBI-CLAIM-CLOSED VALUE '5'.
SN0605 88 SBI-RECALL-AND-PAY VALUE '7'.
SN0605 88 SBI-RECALL-AND-DENY VALUE '8'.
SN0605 88 SBI-CLAIM-RECALLED VALUE '9'.
RL0506 05 :IND:-EDS-UNDO-IND PIC X(01).
BK0605 05 :IND:-ATG-HOLD-PND-CD PIC X(03).
MB0509 05 :IND:-SUBSTITUTION-IND PIC X(01).
MB0509 05 :IND:-ORS-ID PIC X(15).
MB0509 05 :IND:-ADJ-ACTION PIC X(01).
MB0509 88 :IND:-ADJ-CLM-OVERPAYMENT VALUE '1'.
MB0509 88 :IND:-ADJ-CLM-UNDERPAYMENT VALUE '2'.
MB0509 88 :IND:-ADJ-CLM-NO-CHANGE VALUE '3'.
MB0509 88 :IND:-ADJ-FULL-OVERPAY-GT20 VALUE '4'.
MB0509 88 :IND:-ADJ-NOT-FULL-OVERPAY VALUE '5'.
MB0509 05 :IND:-ADJ-REQUESTOR PIC X(01).
MB0509 88 :IND:-ADJ-PROV-PHONE-REQ VALUE '1'.
MB0509 88 :IND:-ADJ-PROV-PORTAL-REQ VALUE '2'.
MB0509 88 :IND:-ADJ-MEMBER-REQ VALUE '3'.
MB0509 05 :IND:-ADJ-RECEIPT-DT PIC 9(08).
RP0509 05 :IND:-MULT-PROC-DOPU-IND PIC X(01).
AA1205 05 :IND:-GOLDEN-RULE-IND PIC X(01).
JA1205 05 :IND:-UPCT-SYS-ID PIC X(03).
08265A 05 :IND:-PTI-OVERIDE PIC X(01).
08265A 05 :IND:-PTI-DETERMINED PIC X(01).
08265A 05 :IND:-PTI-ORG-DERIVED PIC X(04).
08265A 05 :IND:-PTI-SELECTED PIC X(01).
08265A 05 :IND:-PTI-ORG-SELECTED PIC X(04).
08265A 05 :IND:-ADDITIONAL-PTI-IND PIC X(01).
08265A 05 :IND:-MEDC-PROC-IND PIC X(01).
08265A 05 :IND:-MEDC-COB-MSPLT-IND PIC X(01).
07935A 05 :IND:-ORIG-FAC-CONTR-METH PIC X(01).
07935A 05 :IND:-NDB-CONTR-ID PIC S9(09) COMP-3.
07935A 05 :IND:-ALT-REAS-REJ-CODE PIC X(02).
07935A 05 :IND:-ALT-PRICE-ATTMPT-CTR PIC 9(01).
07935A 05 :IND:-ALT-PRICE-MANUAL-IND PIC X(01).
06999B 05 :IND:-RTA-INFO.
12528P 10 :IND:-RTA-ID.
12528P 15 :IND:-RTA-SUBM-TYPE PIC X.
12528P 88 :IND:-RTA-CLM VALUE 'R'.
12528P 88 :IND:-RTA-PRED-CLM VALUE 'X'.
12528P 88 :IND:-RTA-BNDLG-CLM VALUE 'Y'.
12528P 15 :IND:-RTA-REST PIC X(23).
06999B 10 :IND:-RTA-REPLY-MQ PIC X(48).
06999B 10 :IND:-RTA-PRTY PIC 9(1).
12528D 88 :IND:-STP-CLM VALUE 0 THRU 3.
12528D 88 :IND:-PRE-RTA VALUE 4.
06999B 88 :IND:-RTA-PRTY-CLM VALUE 5 THRU 9.
06999B 10 :IND:-RTA-RESPONSE PIC X(1).
12471R 88 :IND:-ENDTORTA-MULTIND VALUE 'M'.
06999B 88 :IND:-ENDTORTA-XCOB VALUE 'X'.
06999B 88 :IND:-ENDTORTA-MULTSFX VALUE 'S'.
06999B 88 :IND:-ENDTORTA-XCOBMSFX VALUE 'B'.
06999B 88 :IND:-ENDTORTA-AA VALUE 'A'.
06999B 10 :IND:-RTA-835-IND PIC X(1).
06999B 10 :IND:-RTA-REPLY-QMGR PIC X(10) VALUE SPACES.
04357G 05 :IND:-MEDC-CALC-PD PIC X(01).
10088T 05 :IND:-SUFX-DIAG-PT-VAL PIC X(05).
10088M 05 :IND:-LTR-NBR PIC X(03).
10088M 05 :IND:-POL-LFTM-MAX-PCT PIC 9(03).
12830J 05 :IND:-OBLIGOR-ID PIC X(02).
12830J 05 :IND:-SHARED-ARGMNT PIC X(02).
12830J 05 :IND:-PPA-MARKET-TYPE PIC S9(2) COMP-3. 00170005
12471R 05 :IND:-MULTIIND-GROUPING PIC 9(02).
12471R 05 :IND:-FAC-CLAIM-JOBNO PIC X(03).
12471R 05 :IND:-H-MEDC-PIF-IND PIC X(01).
09708R 05 :IND:-OI-PAID-LINE-DERIVD PIC X(01).
12471R 05 :IND:-ERROR-WARN-TBL OCCURS 20 TIMES.
12471R 10 :IND:-ERROR-WARN-LIT PIC X(01).
12471R 10 :IND:-ERROR-WARN-NBR PIC S9(5) COMP-3.
11192S 05 :IND:-BEN-CATG-REC-ID PIC S9(09) COMP.
11046R 05 :IND:-DENY-CD-AFTER-CLOSE PIC X(03).
10721E 05 :IND:-API-RECALL-RULE PIC X(02).
12672R 05 :IND:-TF-LOGIC-TO-BE-INVOKED PIC X(01).
12672R 88 IND-INVOKE-TF-LOGIC VALUE 'Y'.
15679R 05 :IND:-CORP-TAX-ID PIC X(09).
15679R 05 :IND:-SUBM-FST-NAME PIC X(25).
15679R 05 :IND:-SUBM-LST-NAME PIC X(35).
15679R 05 :IND:-PROC-STATUS PIC X(01).
15679R 05 :IND:-PROC-FLOW-HDR PIC X(11).
17252C 05 :IND:-SUBMTR-ID PIC X(15).
13376S 05 :IND:-MCR-CRITERIA-MATCH PIC X(01).
17635R 05 :IND:-PRATE-REASON-CODE PIC X(01).
17618S 05 :IND:-MLI-SUPPRESS-IND PIC X(01).
17618S 05 :IND:-THRESHOLD-AMT PIC 9(04).
17618S 05 :IND:-FIXED-FILLER1 PIC X(45).
023000 03 :IND:-REC-TYP1-CLM.
023100 05 :IND:-CLAIM-DATA OCCURS 0 TO 1 TIMES
023200 DEPENDING ON :IND:-NBR-CLMINF.
13376R 10 FILLER PIC X(569).
DA1201 03 :IND:-REC-TYP4-FIXED-DATA.
DA1201 05 :IND:-REC4-DATA OCCURS 0 TO 1 TIMES
DA1201 DEPENDING ON :IND:-NBR-REC4.
12633S 10 FILLER PIC X(1169).
DA1201 03 :IND:-REC-TYP4-INSURED-DATA.
DA1201 05 :IND:-INSUREDS-DATA OCCURS 0 TO 3 TIMES
DA1201 DEPENDING ON :IND:-NBR-REC4-INS
DA1201 INDEXED BY :IND:-REC4-INS-NDX.
DA1201 10 FILLER PIC X(290).
031900 03 :IND:-REC-TYP1-VAR.
032000 05 :IND:-LINE-DATA OCCURS 0 TO 7 TIMES
032100 DEPENDING ON :IND:-NBR-OF-LINES
032200 INDEXED BY :IND:-LINE-DATA-NDX.
032300 10 :IND:-PLACE-OF-SERVICE PIC X(2).
032400 10 :IND:-MED-SERVICE-CODE PIC X(6).
032500 10 :IND:-FIRST-DATE-SERVICE PIC S9(7) COMP-3.
032600 10 :IND:-LAST-DATE-SERVICE PIC S9(7) COMP-3.
FE0509 10 :IND:-NO-TIMES-SERVICE PIC S9(5) COMP-3.
032800 10 :IND:-OVERRIDE-CODE PIC X(2).
032900 10 :IND:-PAYEE-CODE PIC X.
033000 10 :IND:-PROVIDER-POS-NO PIC S9 COMP-3.
FE0509 10 :IND:-MPI-REMARK-CODE PIC X(3).
DA1201 10 :IND:-CHARGE-AMOUNT PIC S9(9)V99 COMP-3.
DA1201 10 :IND:-NOT-COV-AMOUNT PIC S9(9)V99 COMP-3.
DA1201 10 :IND:-BASE-COV-AMOUNT PIC S9(9)V99 COMP-3.
DA1201 10 :IND:-BASE-DED-AMT PIC S9(9)V99 COMP-3.
033600 10 :IND:-BASE-DED-DESC PIC X(2).
033700 10 :IND:-BASE-PCT PIC S9(3) COMP-3.
DA1201 10 :IND:-BASE-AMT PIC S9(9)V99 COMP-3.
DA1201 10 :IND:-SUP-AMT PIC S9(9)V99 COMP-3.
DA1201 10 :IND:-MM-COV-AMT PIC S9(9)V99 COMP-3.
DA1201 10 :IND:-MM-DED-AMT PIC S9(9)V99 COMP-3.
034200 10 :IND:-MM-DED-DESC PIC X(2).
034300 10 :IND:-MM-PCT PIC S9(3) COMP-3.
DA1201 10 :IND:-MM-AMT PIC S9(9)V99 COMP-3.
DA1201 10 :IND:-CR-RES-AMT PIC S9(9)V99 COMP-3.
034900 10 :IND:-LINE-NBR PIC 9(03) COMP-3.
FE0509 10 :IND:-LINE-REMARK-CODE-3 PIC X(03).
035100 10 :IND:-LINE-DISP PIC X(02).
035200 10 :IND:-LINE-PEND-STATUS PIC X(01).
SG0307 10 :IND:-LINE-DISP-SOURCE PIC X(03).
JG0307 10 :IND:-LINE-PAID-AS-CODE PIC X(05).
YL0903 10 :IND:-LINE-835-RPT-IND PIC X(01).
035400 10 :IND:-LINE-CREATE-SOURCE PIC X(02).
035500 10 :IND:-LINE-MSG PIC X(05).
035900 10 :IND:-LINE-PMT-SCREEN PIC 9(3) COMP-3.
FE0509 10 :IND:-DOL-CLOSURE-CD OCCURS 4 TIMES PIC X(03).
DA0702 10 :IND:-DX-PTR-FESPI PIC X(05).
JC0203 10 :IND:-CQRCM-AION-COMET-CHG PIC X(01).
JC0203 88 :IND:-CQRCM-CHG-BY-AION VALUE 'A'.
JC0203 88 :IND:-CQRCM-CHG-BY-COMET VALUE 'C'.
RK0509 10 :IND:-MEDCR-INT-AMTD PIC S9(9)V99 COMP-3.
RK0509 10 :IND:-MEDCR-PEN-AMT PIC S9(9)V99 COMP-3.
AJ1205 10 :IND:-ORIG-BILL-AMT PIC S9(9)V99 COMP-3.
08766A 10 :IND:-TRANSLATED-CL-SERV-CD PIC XX.
13376R 10 :IND:-PNLTY-LINE-TABLE OCCURS 2 TIMES.
13376R 12 :IND:-LN-PNLTY-NTFY-TYP-CD PIC X(02).
13376R 12 :IND:-LN-PNLTY-AMT PIC S9(07)V99 COMP-3.
13376R 12 :IND:-LN-PNLTY-REMARK-CD PIC X(03).
13376R 12 :IND:-LN-PNLTY-BYPASS-CD PIC X(01).
13406S 10 :IND:-TOPS-DETERMINED-SCHED PIC X(01).
14111R 10 :IND:-MED-SERVICE-CODE-LVL PIC X(01).
13376K 10 :IND:-LN-PNLTY-USE-TYP OCCURS 2 TIMES
13376K PIC X(01).
13376K 10 FILLER PIC X(19).
036200 03 :IND:-REC-TYP1-DOPU.
036300 05 :IND:-DOPU-DATA OCCURS 0 TO 150 TIMES
036400 DEPENDING ON :IND:-NBR-DOPU
036500 INDEXED BY :IND:-DOPU-DATA-NDX.
036600 10 :IND:-DOPU-DATE-IN PIC 9(07) COMP-3.
036700 10 :IND:-DOPU-DATE-LO-REAS PIC 9(07) COMP-3.
036800 10 :IND:-DOPU-DATE-BAT-RES PIC 9(07) COMP-3.
036900 10 :IND:-DOPU-DATE-TRIGGER PIC 9(07) COMP-3.
037000 10 :IND:-DOPU-OFC PIC 9(03) COMP-3.
037100 10 :IND:-DOPU-CNI PIC 9(11) COMP-3.
037200 10 :IND:-DOPU-FIX PIC 9(03) COMP-3.
037300 10 :IND:-DOPU-NPD-LINES PIC 9(03) COMP-3.
037400 10 :IND:-DOPU-SYS PIC X(01).
037500 10 :IND:-DOPU-WRK.
037600 15 :IND:-DOPU-TSER PIC X(02).
FE0509 15 :IND:-DOPU-TSER-REAS PIC X(03).
037800 10 :IND:-DOPU-STAT PIC X(02).
FE0509 10 :IND:-DOPU-PDN-CD PIC X(3).
038000 10 :IND:-DOPU-MGR PIC X(2).
038100 10 :IND:-DOPU-PRO PIC 9(07) COMP-3.
DL0103 10 :IND:-DOPU-COM PIC X(68).
DL0103 10 :IND:-DOPU-B4-REPRICE-PND-L PIC 9(02).
JC0700 10 :IND:-DOPU-FMR-DQ-IND PIC X(01).
DL1002 10 :IND:-DOPU-B4-REPRICE-IND PIC X(01).
038400 10 :IND:-DOPU-PN-WRKQ-IND PIC X(01).
JL0399 10 :IND:-DOPU-PDI-WRKQ-IND PIC X(01).
038600 10 :IND:-DOPU-TRIG-RC PIC X(02).
HT0604 10 :IND:-DOPU-AION-SEND-TO PIC X(01).
HT0604 10 :IND:-DOPU-AION-TYPE PIC X(01).
HT0604 10 :IND:-DOPU-AION-CHNG PIC X(01).
HT0604 10 :IND:-DOPU-COMET-SEND-TO PIC X(01).
HT0604 10 :IND:-DOPU-COMET-TYPE PIC X(01).
HT0604 10 :IND:-DOPU-COMET-REL PIC X(01).
SN0405 10 :IND:-DOPU-SBI-IND PIC X(01).
PD0405 10 :IND:-DOPU-AUTO-IND PIC X(01).
PD0405 10 :IND:-DOPU-UPDT-SYS PIC X(01).
15679R 10 :IND:-DOPU-SENT-FMR-IN PIC X(01).
15679R 10 :IND:-DOPU-FILLER PIC X(15).
|
Amit |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
