IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Need to delete record based on key


IBM Mainframe Forums -> COBOL Programming
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
rupesh gullu

New User


Joined: 12 Dec 2008
Posts: 96
Location: Gurgaon

PostPosted: Mon May 31, 2010 8:15 am
Reply with quote

Hi,

I have two i/p files one is Sav-file and other is Pcn file. sav file is KSDS and pcn file is seq file. i need to take pcn value from pcn file and based on key will delete the rec from sav file. key contains pcn, rec-type and suffix value. thus full key comprises of pcn,rec-type and suffix.
here are the following scenrios:

Rec-type can have values as 1,2,3,5 and for each rec-type it will have suffix 1-9. e.g for one pcn say 123456 we have rec-type as 1 and suffix as 1 so key is 12345611 ...like wise we can have key as 12345612 here suffix is 2 for rec-type 1 and so on..

this if key is found in need to delete it from sav-file.
can u please help me how should i code for this.

regrads,
rupesh gupta
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Mon May 31, 2010 8:44 am
Reply with quote

Hello,

Post a representative sample of both files showing all of the combinations you need to handle.

Then post what should be the outcome of running ypur program. You don't need complete records or very many of them - just enough to demonstrate what you need to have happen.

When posting this data use the Code tag to preserve alignment of the data.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Mon May 31, 2010 8:56 am
Reply with quote

Is this a batch or CICS program?

You'll need to do a START with generic key, read records and delete them until the generic key no longer matches. Be aware that this is a HELP forum, not a WRITE-YOUR-CODE-FOR-YOU forum. If you ask for code, you need to be prepared to pay for the professional work product of the responders (which is what you are asking for), and the rate is typically 1000 U.S. dollars per day or fraction thereof. Unless you are willing to pay for the code, please don't ask for it.
Back to top
View user's profile Send private message
icemanroh

New User


Joined: 23 Aug 2008
Posts: 25
Location: Mumbai

PostPosted: Tue Jun 01, 2010 11:29 am
Reply with quote

Robert Sample wrote:
If you ask for code, you need to be prepared to pay for the professional work product of the responders (which is what you are asking for), and the rate is typically 1000 U.S. dollars per day or fraction thereof. Unless you are willing to pay for the code, please don't ask for it.

icon_lol.gif

Rupesh,
Can you provide the File format of both the files?
Back to top
View user's profile Send private message
rupesh gullu

New User


Joined: 12 Dec 2008
Posts: 96
Location: Gurgaon

PostPosted: Tue Jun 01, 2010 12:10 pm
Reply with quote

Hi,

file which is having only pcn is a seqentioal file haivng records layout as
Code:

01  ICN-INPUT-RECORD.                       
    10 ICN-INPUT-KEY.                       
       15 INP-ICN               PIC 9(11).   


Sav file in which I need to remove the records is a vsam file KSDS.
Layout for this file is attached. I just want to have a pseudo code ...
Also can i delete records based upon partial key value .. if i dont know the full key.

regards,
rupesh gupta

do not post attachments, not everybody can see them, attachment inlined

Code:
004800***************************************************************** EMC6SAV1
004900*   EMC SAVE FILE RECORD TYPE 1                                   EMC6SAV1
TD0702*   WHEN SAV-CLAIM-SOURCE-IND IS UPDATED, MUST UPDATE EMC6SRC1    EMC6SAV1
TD0702*   AND EMCCLAIM COPIES ALSO                                      EMC6SAV1
FEB04A***************************************************************** EMC6SAV1
FEB04A*  RENAME SAV-OON-INDICATOR TO SAV-ACN-IND.
005000***************************************************************** EMC6SAV1
SG0307*  INCREASE  SAV-LINE-DISP-SOURCE     PIC X(02) TO X(03)          EMC6SAV1
JG0307*  ADD SAV-LINE-PAID-AS-CODE SAV-LINE-OPTION-A-B
YL0903***************************************************************** EMC6SAV1
YL0903*  SEPTEMBER 2003 RELEASE   - HIPAA TCS TOPS                      PRSCLMIN
YL0903*    SAV-LINE-OPTION-A-B REPLACED BY                              PRSCLMIN
YL0903*    SAV-LINE-835-RPT-IND                                         PRSCLMIN
UNOA  *  SEPTEMBER 2003 RELEASE   - NEW UNOA ENGINE                     PRSCLMIN
UNOA  *    SAV-LINE-835-RPT-IND                                         PRSCLMIN
YL1103*                                                                 PRSCLMIN
YL1103* NOVEMBER 2003 RELEASE - REMOVAL 835-INDICATOR                   EMC6SAV1
YL1103*    (SAV-PROV-835-REQ) HAS BEEN REMOVED                          EMC6SAV1
YL1103*     - REPLACED BY 1 BYTE FILLER.                                EMC6SAV1
YL1103*                                                                 EMC6SAV1
BK0604* SAVE FILE LENGTH EXPANDED BY 100 BYTES, PRIMARILY TO ACCOMMODATEEMC6SAV1
BK0604* MHE REQUIREMENTS FOR MULTIPLE NOTIFICATION LETTERS AND ALSO TO  EMC6SAV1
BK0604* GIVE US ADDITIONAL ROOM FOR ANY ENHANCEMENTS.                   EMC6SAV1
HT0604*                                                                 EMC6SAV1
HT0604* ADD ADDITIONAL 7 FIELDS (TOTAL OF 10 BYTES) TO THE              EMC6SAV1
HT0604* SAV-REC-TYP1-HIST(OCCURS 0 TO 150 TIMES). CHANGED LREC 119      EMC6SAV1
HT0604* TO 129.                                                         EMC6SAV1
HT0604*                                                                 EMC6SAV1
CS0410* OCTOBER 2004 RELEASE - AUTOMATE NEW COINS SPLIT                 EMC6SAV1
CS0410*                                                                 EMC6SAV1
TD1204* ADDED CLOSE-RECALL,REDUCED FILLER BY 4,SEE TD1204
RP1204* ADDED MEDRX-SIGNATURE REDUCED FILLER BY 26
SD0412* SPRF-400003512.  ADDED SAV-NS58-NS1E-IND AND REDUCED FILLER
SD0412* BY 1 BYTE. NOW FILLER BECAME SAV-REC-TYP1-FILLER PIC X(22).
SD0503* SPRF# 400003710-06 - NS19 PROVIDER TIN NOT FOUND. ADDES THE
SD0503* FOLLOWING FIELDS.  - SAV-NDB-RTN-CODE
SD0503*                    - SAV-RTN-ADDRESS-IND
RS0503* 03/01/05 - 400003710-12- PIT (NO) PROVIDER FLAG               *
RS0503*           ENHANCEMENT.                                       *
HT0504*                                                               *
HT0504* ADD NEW WORKFLOW ID(SAV-WORKFLOW-ID)IN THE SAV-REC-TYP1-FIXE    D *
HT0504* AREA FOR RECIPROCITY INITIATIVE(SPRF# 400004492).             *
HT0504*                                                               *
SN0405* 04/2005 - SUSAN NICHOLS - 400005493 ADDED SAV-SBI-IND         *
SN0405*                                     AND   SAV-HIST-SBI-IND    *
PD0405* 04/2005 - ALLOW MULTI-SUFFIX PROCESSING IN COMET,             *
PD0405*           ADDED SAV-HIST-AUTO-IND, SAV-HIST-UPDT-SYS          *
NT0605* 06/2005 - ADDED SAV-ATG-JOB-SEQ-DIGIT FOR ATG PROCESSING FOR
NT0605*           VENDOR-ID = TG
RL0506* RL0506  - MARK - ADDED SAV-EDS-UNDO-IND
FE0509* 09/2005 - FIELD EXPANSION SPRF - 400001912 CHANGES FOR        *
FE0509*           SEPTEMBER 2005 RELEASE                              *
AA1205*   ANGEL  ANTONIO  12/05  ADD GOLDEN RULE IND FOR SPRF 4-3937  *
AA1205*                          DEPENDENT TERMINATION LETTERS        *
JA1205*   JACOB  APPASAMY 12/05  ADD UPCT SYS ID     FOR SPRF 4-4028  *
JA1205*                          UP GENERIC CONVERSION TOOLS          *
AJ1205* ASHISH   12/05           ADDED SAV-ORIG-BILL-AMT FOR SPRF 6565*
DL1205*   DAYNE            12/05 ADDED INAPR-PROV-REF-IND SPRF 4-7795 *
08265A* TONY     03/06 - A       ADDED THE FOLLOWING FIELDS           *
08265A*                          PTI-OVERIDE, PTI-DETERMINED,         *
08265A*                          PTI-ORG-DERIVED,PTI-SELECTED,        *
08265A*                          PTI-ORG-SELECTED,ADDITIONAL-PTI-IND, *
08265A*                          MEDC-PROC-IND AND MEDC-COB-MSPLT-IND *
08766A* RON DWYER 03/06 - A      SPRF 4-8766 SITE OF SERV FEE SCHED:
08766A*                          ADD TRANSLATED PLACE OF SERVICE.
07935A* H. ENG    03/06 - A      TWO WAY PRICING ADDED NDB-CONTR-ID,  *
07935A*                    ORIG-FAC-CONTR-METH, ALT-REAS-REJ-CODE,    *
07935A*                    ALT-PRICE-ATTMPT-CTR, ALT-PRICE-MANUAL-IND *
06999B*   BHASKAR   RELEASE 0605
08015P* PRAVEEN  MAY 06 - P      SPRF #4-8015 CREATION OF NEW REGIONS * PRSCLMIN
08015P*                          ADDED ENGINE-IND FOR 4 NEW REGIONS   * PRSCLMIN
04357G* JUNE 06 RELEASE SUDHINDRA RG - G NEW FIELD SAV-MEDC-CALC-PD   *
04357G*                    WAS ADDED FOR SPRF 4-4357 MEDICARE EDITING *
10088T* JUNE 06 RELEASE T MANALO  SPRF 4-10088 ADD NEW SUFX-DIAG-PT-VAL
10088M* JUNE 06 RELEASE MATT B    SPRF 4-10088 ADD GENERIC LTR # &    *
10088M*                                        LIFETIME PERCENT       *
08105T* AUG  06 RELEASE TURANGI.C SPRF 4-8105  ADDED SAV-IO-IND       *
10088M*                                                               *
12772D* SEPT 06 RELEASE R DWYER   SPRF 4-12772 HSS/APC PRICING        *
05630D* SEPT 06 RELEASE R DWYER   SPRF 4-5630 RV-INDICATOR            *
12633S* SEPT 06 RELEASE R .ASHOK  SPRF 4-12633 *                        PRSCLMIN
12633S*             ADDED SAV-OTH-PHYSICIAN-ID - 16 BYTES IN EMC6SAV4 * PRSCLMIN
12471R* OCT 06 RELEASE  RAMPRASADH SPRF 4-12471 REAL TIME ADJUDICATION*
12471R*                            ADDED NEW FIELDS FOR SOURCE FILE   *
12471R*                            ELIMINATION.                       *
12471R*                                                               *
09708R* OCT 06 RELEASE  IGOR       SPRF 4-9708  ADDED FIELDS TO       *
09708R*                            SAV-LINE-DATA                      *
11046R* OCT 06 RELEASE  RAM        SPRF 4-11046 ALLOW PROVIDER BILLING*
11046R*                 MUTHUSAMY  AFTER COB/STUDENT DENIAL           *
12830J* OCT 06 RELEASE  ASHISH     ADDED OBLIG-ID,SHARED-ARGMNT-ID    *
12830J*                            AND PPA-MARKET-TYPE TO FIXED PART  *
11192S* DEC 06 RELEASE  SUE APGAR        SPRF 4-11192                 *
11192S*                 ADDED NEW FIELD`S SAV-BEN-CATG-REC-ID         *
11192S*                                   SAV-BEN-ACC-CAT             *
11192S*                                   SAV-BEN-ACC-TYPE            *
13406S* DEC 06 RELEASE  SHREEKAR   SPRF 4-13406/13419 ADDED NEW FIELD *
13406S*                            SAV-TOPS-DET-RC-SCHED              *
13848H* DEC 06 RELEASE  HENRY      SPRF 4-13848       ADDED NEW FIELD *
13848H*                            SAV-DOL-SPLIT-IND                  *
09708R* DEC 06 RELEASE  IGOR       CONVERTED SOME FIELDS TO FILLER    *
09708R*                            WHICH COULD BE USED IN FUTURE      *
11192M* DEC 06 RELEASE  MILAN      COMMENTED OUT FIELDS FOR SPRF 11192*
11192M*                            SAV-BEN-ACC-CAT                    *
11192M*                            SAV-BEN-ACC-TYPE                   *
10564S* JAN 07 RELESE   SAMPATH    ADDED NEW NPI FIELDS FOR SPRF 10564*
10564S*                            INTO EMC6CLM1:SAV-BILLING-NPI,     *
10564S*                            SAV-RENDERING-NPI,SAV-REFERING-NPI *
10564S*                            SAV-ATTENDING-NPI. SO INCREASED *
10564S*                            -CLAIM-DATA BY 40 BYTES FROM 392 TO*
10564S*                            432.                               *
10721E* MAR 07 RELESE   KARTHIK    SPRF# 4-10721 GHMO PHASE V         * KV0703
10721E*                 VEMBU      ADDED SAV-API-RECALL-RULE X(02)    * KV0703
10721E*                            ADDED FILLER 98 BYTES              * KV0703
10721E*                            MAX LENGTH OF REC TYP1 IS 26635    * KV0703
12528P* MAR 07 RELEASE POORNIMA   RTA-4 PRERTA RELEASE CHANGES        *
12528P*                              CHANGE DEFINITION FOR SAV-RTA-ID *
12528D*                              INCLUDED PRIORITY FOR PRERTA CLM *
14569S* JUN 07 RELEASE SAMPATH  BACKED OUT 4-14569 CHANGES FROM JUN 07*
12672R* JUN 07 RELEASE RAJEEVA   SPRF 4-12672 PROVIDER TIMELY FILING  *
12672R*                          CONTRACT. ADDED NEW FIELD            *
12672R*                          :SAV:-TF-LOGIC-TO-BE-INVOKED .       *
12672R* JUN 07 RELEASE RANGA     ADDED 88 LEVEL SWITCH.               *
13376R* JUN 07 RELEASE RAJEEVA   SPRF 4-13376 ITI (INPAT TRANS INIT)  *
13376R*                          ADDED NEW FIELDS UNDER -CLAIM-DATA   *
13376R*                           SAV-CLM-PNLTY-TBL-NBR               *
13376R*                           SAV-CLM-PNLTY-NTFY-TYP-CD           *
13376R*                           SAV-CLM-PNLTY-AMT                   *
13376R*                           SAV-CLM-PNLTY-REMARK-CD             *
13376R*                           SAV-CLM-PNLTY-REV-CODE              *
13376R*                           SAV-CLM-PNLTY-DAYS                  *
13376R*                          ADDED 50 BYTES EXTRA FILLER UNDER    *
13376R*                          -CLAIM-DATA.                         *
13376R*                          ADDED IN TOTAL 117 BYTES IN EMC6CLM1.*
13376R*                          (FIELDS->67 BYTES, EXTRA FILLER->50) *
13376R*                          SO INCREASED -CLAIM-DATA FROM 452 TO *
13376R*                          569 FOR JUNE.                        *
13376R*                          ADDED NEW FIELDS UNDER -LINE-DATA    *
13376R*                           SAV:-LN-PNLTY-NTFY-TYP-CD           *
13376R*                           SAV:-LN-PNLTY-AMT                   *
13376R*                           SAV:-LN-PNLTY-REMARK-CD             *
13376R*                           SAV:-LN-PNLTY-BYPASS-CD             *
13376R* JUN 07 RELEASE RANGA     REARRANGED THE FIELDS FOR 13376 TO   *
13376R*                          USE :SAV:-REC-TYP1-FILLER X(4) AND   *
13376R*                          FILLER X(18). MOVED THE 22 BYTE      *
13376R*                          FILLER AT THE END OF :SAV:-LINE-DATA *
15679R* JUN 07 RELEASE RAJEEVA   SPRF# 5-15679                        *
15679R*                          ADDED NEW FIELDS IN FIXED TYPE 1 BY  *
15679R*                          ADJUSTING FILLER. NEW FIELDS ARE :   *
15679R*                          :SAV:-CORP-TAX-ID                    *
15679R*                          :SAV:-SUBM-FST-NAME                  *
15679R*                          :SAV:-SUBM-LST-NAME                  *
15679R*                          :SAV:-PROC-STATUS                    *
15679R*                          :SAV:-PROC-FLOW-HDR                  *
15679R*                          ADDED NEW FIELDS IN HISTORY SEG BY   *
15679R*                          ADJUSTING FILLER. NEW FIELD IS :     *
15679R*                          :SAV:-HIST-SENT-FMR-IN               *
14111R* JUN 07 RELEASE RAJEEVA   SPRF# 4-14111 - 2007 COC BENEFIT     *
14111R*                          CHANGE.  ADDED NEW FIELD UNDER       *
14111R*                          SAV-LINE-DATA.                       *
17252C* REL0708 AMZAD  SPRF#4-17252 AUGUST RELEASE CHANGES            *
13376K* REL0708 K. DZIEDZIC      SPRF 4-13376 ITI (INPAT TRANS INIT)  *
13376K*                          ADDED SAV-LN-PNLTY-USE-TYP           *
13376S* REL0708 SUBHASHREE   SPRF#4-13376  AUGUST RELEASE 07 CHANGES  *
13376S*                          ADDED SAV-MCR-CRITERIA-MATCH         *
17616S* REL0708 M. SILVA     SPRF#4-17616  Q3 SPECIAL PROJECTS        *
17616S*                          ADDED SAV-REPRICE-IND                *
17635R* REL0711 RAJEEVA      SPRF#4-17635                             *
17635R*                          ADDED NEW FIELDS AND FILLER 50 BYTES *
17635R*                          UNDER GRP VAR :SAV:-REC-TYP1-FIXED   *
17635R*                          A) :SAV:-PRATE-REASON-CODE           *
17635R*                          B) :SAV:-FIXED-FILLER1 (50 BYTES)    *
17618S* REL0711 M. SILVA     SPRF#4-17618 Q4 SPECIAL PROJECTS         *
17618S*                        ADDED MLI-IND AND THRESHOLD-AMT CHANGED*
17618S*                       SAV-MLI-IND TO SAV-MLI-SUPPRESS-IND     *
000******************************************************************** EMC6SAV1
24137R* Q3-09 DRG  EXPANSION  - 400024137 CHANGES FOR Q3-09 RELEASE   *
24137R* RACHEL THOMAS          EXPAND SAV:-UNET-DRG TO 5 BYTES AND    *
24137R*                        REDUCE THE FILLER.                     *
H68182* CHAKRADHAR KARRI     - UPDATING SAVEFILE WITH CLAIM SOURCE IND*
H68182*                        TO INCLUDE '6' '7'AND 'S'. HPSD# 68182 *
24137R*****************************************************************
000******************************************************************** EMC6SAV1
005100     03  :SAV:-REC-TYP1-FIXED.                                    EMC6SAV1
005200         05  :SAV:-FILE-KEY-AREA.                                 EMC6SAV1
005300             10 :SAV:-FILE-FLN-ALT-KEY.                           EMC6SAV1
005400                 15 :SAV:-ADJ-OFFICE      PIC 9(03)  COMP-3.      EMC6SAV1
005500                 15 :SAV:-FLN             PIC 9(11)  COMP-3.      EMC6SAV1
005600                 15 :SAV:-RECORD-TYPE-FLN-AIX PIC X(01).          EMC6SAV1
005700             10 :SAV:-FILE-SSN-ALT-KEY.                           EMC6SAV1
005800                 15 :SAV:-EMP-ID.                                 EMC6SAV1
005900                     20 :SAV:-EMP-ID-1         PIC X(1).          EMC6SAV1
006000                     20 :SAV:-EMP-SSN          PIC X(09).         EMC6SAV1
006100                 15 :SAV:-RECORD-TYPE-AIX      PIC X.             EMC6SAV1
006200             10 :SAV:-FILE-KEY.                                   EMC6SAV1
006300                 15 :SAV:-ICN              PIC 9(11) COMP-3.      EMC6SAV1
006400                 15 :SAV:-RECORD-TYPE      PIC X(1).              EMC6SAV1
006500                     88 :SAV:-REC-TYPE1-TOPS VALUE '1'.           EMC6SAV1
006600                     88 :SAV:-REC-TYPE2-HCDS VALUE '2'.           EMC6SAV1
006700                     88 :SAV:-REC-TYPE3-MCDS VALUE '3'.           EMC6SAV1
006800                     88 :SAV:-REC-TYPE4-NEIC VALUE '4'.           EMC6SAV1
006900                 15 :SAV:-ICN-SUFFIX      PIC 9(3)  COMP-3.       EMC6SAV1
007000******  SAVE CLAIM DATE & TIME STAMP ***************************  EMC6SAV1
007100         05  :SAV:-CLAIM-DATE-STAMP-1  PIC S9(07) COMP-3.         EMC6SAV1
007200         05  :SAV:-CLAIM-TIME-STAMP-1  PIC S9(09) COMP-3.         EMC6SAV1
007300******  TOPS REGION INDICATOR **********************************  EMC6SAV1
007400         05  :SAV:-ENGINE-IND          PIC X.                     EMC6SAV1
007500             88  :SAV:-EAST-REGION       VALUE 'E'.               EMC6SAV1
007600             88  :SAV:-WEST-REGION       VALUE 'W'.               EMC6SAV1
007700             88  :SAV:-ARCS-REGION       VALUE 'A'.               EMC6SAV1
007800             88  :SAV:-BELL-REGION       VALUE 'B'.               EMC6SAV1
007900             88  :SAV:-NORTH-REGION      VALUE 'N'.               EMC6SAV1
008000             88  :SAV:-SOUTH-REGION      VALUE 'S'.               EMC6SAV1
008100             88  :SAV:-CENTRAL-REGION    VALUE 'C'.               EMC6SAV1
008100             88  :SAV:-GEO-REGION        VALUE 'G'.               EMC6SAV1
008100             88  :SAV:-OMNI-REGION       VALUE 'O'.               EMC6SAV1
008100             88  :SAV:-QARK-REGION       VALUE 'Q'.               EMC6SAV1
008100             88  :SAV:-KING-REGION       VALUE 'K'.               EMC6SAV1
008100             88  :SAV:-XFIL-REGION       VALUE 'X'.               EMC6SAV1
NEWENG             88  :SAV:-DART-REGION       VALUE 'D'.               EMC6SAV1
NEWENG             88  :SAV:-FOXX-REGION       VALUE 'F'.               EMC6SAV1
NEWENG             88  :SAV:-YOGI-REGION       VALUE 'Y'.               EMC6SAV1
NEWENG             88  :SAV:-ZEUS-REGION       VALUE 'Z'.               EMC6SAV1
MYTH               88  :SAV:-MYTH-REGION       VALUE 'M'.               EMC6SAV1
UNOA               88  :SAV:-UNOA-REGION       VALUE 'U'.               EMC6SAV1
08015P             88  :SAV:-HULA-REGION       VALUE 'H'.               EMC6SAV1
08015P             88  :SAV:-JAVA-REGION       VALUE 'J'.               EMC6SAV1
08015P             88  :SAV:-LUNA-REGION       VALUE 'L'.               EMC6SAV1
08015P             88  :SAV:-RITA-REGION       VALUE 'R'.               EMC6SAV1
008400******  RECORD TYPE INDICATORS ***********************************EMC6SAV1
008500         05  :SAV:-RECORD-TYPE-IND.                               EMC6SAV1
008600             10  :SAV:-RECORD-TYPE2-IND    PIC X.                 EMC6SAV1
FE0509                 88  :SAV88:TYPE2-EXISTS            VALUE 'Y'.    EMC6SAV1
008800             10  :SAV:-RECORD-TYPE3-IND    PIC X.                 EMC6SAV1
FE0509                 88  :SAV88:TYPE3-EXISTS            VALUE 'Y'.    EMC6SAV1
009000             10  :SAV:-RECORD-TYPE4-IND    PIC X.                 EMC6SAV1
FE0509                 88  :SAV88:TYPE4-EXISTS            VALUE 'Y'.    EMC6SAV1
009200******  SAVE CLAIM STATUS FLAG *********************************  EMC6SAV1
009300         05  :SAV:-PICK-FLAG           PIC X.                     EMC6SAV1
FE0509             88  :SAV88:TOPS-UPDATED     VALUE 'P' 'M' 'A' 'N'    EMC6SAV1
009500                                               'J' 'L'.           EMC6SAV1
009400             88  TOPS-PAID-CLOSED-REJ    VALUE 'P' 'A' 'J' 'L'.   EMC6SAV1
009600             88  CLAIM-AUTO-PAID         VALUE 'A'.               EMC6SAV1
009700             88  CLAIM-AUTO-PEND         VALUE 'N'.               EMC6SAV1
009800             88  CLAIM-MANUAL-PAID       VALUE 'P'.               EMC6SAV1
009900             88  CLAIM-MANUAL-PEND       VALUE 'M'.               EMC6SAV1
010000             88  CLAIM-WAS-REJECTED      VALUE 'J'.               EMC6SAV1
010100             88  CLAIM-WAS-CLOSED        VALUE 'L'.               EMC6SAV1
010200             88  CLAIM-WAS-SELECTED      VALUE 'S' 'T' 'F'        EMC6SAV1
010300                                               'D' 'R' 'Q'        EMC6SAV1
010400                                               'B' 'O'.           EMC6SAV1
FE0509             88  :SAV88:CLAIM-WAS-TRANSFERRED   VALUE 'T' 'B' 'O'.EMC6SAV1
FE0509             88  :SAV88:CLAIM-WAS-DELETED       VALUE 'D'.        EMC6SAV1
010700             88  CLAIM-CLEAN-UP          VALUE 'C'.               EMC6SAV1
010700             88  CLAIM-IN-MESSAGE-QUEUE  VALUE 'G'.               EMC6SAV1
010800             88  CLAIM-STATUS-DEP-NOTFND VALUE '2'.               EMC6SAV1
010900             88  CLAIM-STATUS-EMP-NOTFND VALUE '1'.               EMC6SAV1
011000             88  DISCOUNTED-PROVIDER     VALUE '$'.               EMC6SAV1
011100******  :SAV:E STATUS SCREEN INFO ****************************    EMC6SAV1
011200         05  :SAV:-EMP-POL-NO          PIC X(6).                  EMC6SAV1
011300         05  :SAV:-CLAIM-FIRST-NAME    PIC X(10).                 EMC6SAV1
011400         05  :SAV:-CLAIM-RELATIONSHIP  PIC X(2).                  EMC6SAV1
011500         05  :SAV:-CLAIM-SEL-OR-NBR    PIC X(9).                  EMC6SAV1
011600         05  :SAV:-CLAIM-SOURCE-IND    PIC X.                     EMC6SAV1
011700             88  :SAV:-HOSP-CLAIM        VALUE 'H' '6' '8'        EMC6SAV1
DL0702                                               'F' 'R'
011800                                               'N' 'U' 'A' 'K'.   EMC6SAV1
011900             88  :SAV:-MED-CLAIM         VALUE 'M' '5' '7' '9'    EMC6SAV1
012000                                               'O' 'V' 'B' 'D'    EMC6SAV1
012100                                               'E' 'G' 'I' 'J'    EMC6SAV1
DL0702                                               'L' 'P' 'X'        EMC6SAV1
012300                                               'Q' 'S' 'W' 'Y'    EMC6SAV1
012400                                               'Z' 'C' '4'.       EMC6SAV1
012500             88  :SAV:-PAPERLESS-CLAIM   VALUE 'H' 'M' 'N' 'O'    EMC6SAV1
012600                                               'U' 'V' '6' '7'    EMC6SAV1
012700                                               '8' '9' 'A' 'B'    EMC6SAV1
012800                                               'D' 'E' 'G' 'I'    EMC6SAV1
012900                                               'K' 'L' 'P' 'R'    EMC6SAV1
013000                                               'X' 'Q' 'S' 'W'    EMC6SAV1
DL0702                                               'F' '4' '5'
013100                                               'Y' 'Z' 'C'.       EMC6SAV1
013200             88  :SAV:-NEIC-CLAIM        VALUE 'H' 'M'.           EMC6SAV1
DL0702             88  :SAV:-B2B-MED-CLAIM     VALUE 'D'.               EMC6SAV1
DL0702             88  :SAV:-837-MED-CLAIM     VALUE 'E'.               EMC6SAV1
013500             88  :SAV:-HCN-MED-CLAIM     VALUE 'G'.               EMC6SAV1
013600             88  :SAV:-HCDS-CLAIM        VALUE 'H'.               EMC6SAV1
013800             88  :SAV:-UB92-KEYED-CLAIM  VALUE 'K'.               EMC6SAV1
013900             88  :SAV:-HCFA-KEYED-CLAIM  VALUE 'L'.               EMC6SAV1
014000             88  :SAV:-MCDS-CLAIM        VALUE 'M'.               EMC6SAV1
DL0702             88  :SAV:-837-HOSP-CLAIM    VALUE 'F'.               EMC6SAV1
014200             88  :SAV:-UB92-ELEC-CLAIM   VALUE 'N'.               EMC6SAV1
014300             88  :SAV:-NORRELL-MED-CLAIM VALUE 'O'.               EMC6SAV1
DL0702             88  :SAV:-PORTAL-MED-CLAIM  VALUE 'P'.               EMC6SAV1
DL0702             88  :SAV:-837-XOVER-CLAIM   VALUE 'Q'.               EMC6SAV1
DL0702             88  :SAV:-837-PARTA-CLAIM   VALUE 'R'.               EMC6SAV1
014600             88  :SAV:-USBH-HOSP-CLAIM   VALUE 'U'.               EMC6SAV1
014700             88  :SAV:-USBH-MED-CLAIM    VALUE 'V'.               EMC6SAV1
014800             88  :SAV:-MEDC-XOVER-CLAIM  VALUE 'X'.               EMC6SAV1
06999B*            88  :SAV:-CFE-MED-RESERVED  VALUE 'Q' 'S' 'W'        EMC6SAV1
06999B*                                              'Y' 'Z'.           EMC6SAV1
06999B             88  :SAV:-CFE-MED-RESERVED  VALUE 'Q' 'W'            EMC6SAV1
015000                                               'Y' 'Z'.           EMC6SAV1
06999B             88  :SAV:-RTA-PROF-CLAIM    VALUE 'S'.
015100             88  :SAV:-MANUAL-CLAIM      VALUE '3'.               EMC6SAV1
015200             88  :SAV:-TOPS-CLAIM        VALUE '4' '5'.           EMC6SAV1
015300             88  :SAV:-TOPS-FE-HOSP      VALUE '4'.               EMC6SAV1
015400             88  :SAV:-TOPS-FE-CDS       VALUE '5'.               EMC6SAV1
015500             88  :SAV:-CDS-CLAIM         VALUE '6' '7'.           EMC6SAV1
015600             88  :SAV:-CDS-HOSP          VALUE '6'.               EMC6SAV1
015700             88  :SAV:-CDS-MED           VALUE '7'.               EMC6SAV1
015800             88  :SAV:-FE-PAPERLESS-HOSP VALUE '8' 'A'.
015900             88  :SAV:-FE-PAPERLESS-MED  VALUE '9' 'B' 'O'.
016000             88  :SAV:-TOPS-INPUT        VALUE 'T'.               EMC6SAV1
016100             88  :SAV:-MEDC-FE-CLAIM     VALUE 'C' 'N' 'P'.       EMC6SAV1
016100             88  :SAV:-ELECTRONIC-CLAIM  VALUE 'H' 'M' 'C' 'X'    EMC6SAV1
DL0702                                               'D' 'E' 'F' 'Q'
DL0702                                               'R'
016200                                               'U' 'V' 'N' 'P'          V1
H68182                                               '6' '7' 'S'.
016500         05  :SAV:-AUTO-IND             PIC X(1).                 EMC6SAV1
016600* IMAGE-IND - Y = CLAIM HAS BEEN IMAGED AS OPPPOSED TO FILMED     EMC6SAV1
016800         05  :SAV:-IMAGE-IND            PIC X.                    EMC6SAV1
TH0700         05  :SAV:-JOB-65-66-IND        PIC X.                    EMC6SAV1
017000         05  :SAV:-FORCE-BALANCE        PIC X.                    EMC6SAV1
017100         05  :SAV:-MOVE-REV-L04         PIC X(1).                 EMC6SAV1
017200         05  :SAV:-PND-RSLV-ID          PIC X(6).                 EMC6SAV1
017300***************************************************************   EMC6SAV1
017400         05 :SAV:-PAPERLESS             PIC X.                    EMC6SAV1
017500         05 :SAV:-PRODUCT-CODE          PIC X(2).                 EMC6SAV1
017600         05 :SAV:-PAY-OFC               PIC 9(3) COMP-3.          EMC6SAV1
017700         05 :SAV:-PAY-SYS               PIC X.                    EMC6SAV1
017800         05 :SAV:-NBR-SUFFIXES          PIC 9(3) COMP-3.          EMC6SAV1
017900         05 :SAV:-IDX-PROV-TYPE         PIC X(2).                 EMC6SAV1
018000         05 :SAV:-SPEC-WQ-IND           PIC X(01).                EMC6SAV1
018500         05 :SAV:-ST-ISSUE              PIC X(02).                EMC6SAV1
018600         05 :SAV:-CLM-PRTY              PIC X(01).                EMC6SAV1
018700         05 :SAV:-POLICY-GRP            PIC X(06).                EMC6SAV1
018800         05 :SAV:-MICROFILM-INFO.                                 EMC6SAV1
018900             10  :SAV:-FILM-LOC       PIC 9(3)  COMP-3.           EMC6SAV1
DL0299             10  :SAV:-UFE-UID-SPLIT  PIC X(02).                  EMC6SAV1
019000             10  FILLER               PIC X(04).                  EMC6SAV1
019100         05  :SAV:-PROV-FLAG            PIC X.                    EMC6SAV1
019200         05  :SAV:-PROV-TYPE-TOPS       PIC X(2).                 EMC6SAV1
019300*                                                                 EMC6SAV1
019400*-------------------------------------------------------------    EMC6SAV1
019500* NEW FIELDS  FOR AUGUST  XX ADDITIONAL BYTES                     EMC6SAV1
019600*--------------------------------------------------------------   EMC6SAV1
019700*                                                                 EMC6SAV1
019800         05  :SAV:-PRS-IND              PIC X(1).                 EMC6SAV1
019900             88  PRS-APPLIES               VALUE '1'.             EMC6SAV1
020000             88  PRS-CLAIM-NOT-AVAIL       VALUE '2'.             EMC6SAV1
020100             88  PRS-COMPLETED-REVIEW      VALUE '3'.             EMC6SAV1
020200         05  :SAV:-PRS-FILTER-DAYS      PIC 9(3) COMP-3.          EMC6SAV1
020300         05  :SAV:-PRS-PEND-TOPS        PIC X(1).                 EMC6SAV1
FE0509             88  :SAV88:PRS-CLAIM-PENDED-IN-TOPS  VALUE 'Y'.      EMC6SAV1
020500         05  :SAV:-PRS-NXT-LINE-NBR     PIC 9(3) COMP-3.          EMC6SAV1
020600         05  :SAV:-STATUS               PIC X(4).                 EMC6SAV1
020700         05  :SAV:-NBR-PMT-SCREENS      PIC 9(3) COMP-3.          EMC6SAV1
020800         05  :SAV:-PRICE-IND            PIC X.                    EMC6SAV1
021000         05  :SAV:-TOPS-PRS-IND         PIC X.                    EMC6SAV1
021100         05  :SAV:-USBH-IND             PIC X.                    EMC6SAV1
TH1198         05  :SAV:-ESRD-IND             PIC X.                    EMC6SAV1
JL0399         05  :SAV:-PDI-HEALTH-PLAN      PIC X(4).                 EMC6SAV1
TH0799         05  :SAV:-IMCS-RUNOUT-IND      PIC X(1).                 EMC6SAV1
DAMAG          05  :SAV:-CLM-REVIEW-BY        PIC X(1).                 EMC6SAV1
DAMAG              88  :SAV:-MAG-REVIEW       VALUE 'M'.
DL0703             88  :SAV:-ICES-REVIEW      VALUE 'I'.
DAMAG              88  :SAV:-PRS-REVIEW       VALUE 'P'.
DAMAG              88  :SAV:-BOTH-REVIEW      VALUE 'B'.
021600         05  :SAV:-TRIG-REL-FMR         PIC X.                    EMC6SAV1
021700         05  :SAV:-MRI-PLAN-VAR         PIC X(04).                EMC6SAV1
021800         05  :SAV:-PRE-EXIST-MONTHS     PIC X(02).
021900         05  :SAV:-SQ-EPI-IND           PIC X.
022000         05  :SAV:-SQ-PROV-IND          PIC X.
022100         05  :SAV:-SQ-EDS1-IND          PIC X.
022200         05  :SAV:-WAIVER-IND           PIC X.                    EMC6SAV1
022300         05  :SAV:-DX-SPLIT-IND         PIC X.                    EMC6SAV1
022400             88  :SAV:-DX-SPLIT         VALUE 'Y'.
022510         05  :SAV:-VENDOR-ID            PIC X(2).                 EMC6SAV1
022510         05  :SAV:-MULT-EPIS            PIC X.                    EMC6SAV1
022510         05  :SAV:-DENY-CANC-TYPE       PIC X.                    EMC6SAV1
FE0509         05  :SAV:-CLOSE-RMK            PIC X(3).                 EMC6SAV1
022510         05  :SAV:-MEDB-MULT-E6         PIC X(1).                 EMC6SAV1
               05  :SAV:-SAZ-GRP              PIC X(2).
               05  :SAV:-SAZ-WRKQ-SETUP       PIC X(1).
               05  :SAV:-FMR-GRP-IND          PIC X(1).
022510         05  :SAV:-SAZ-LNAME-3          PIC X(3).                 EMC6SAV1
022510         05  :SAV:-PRODUCT-CCM          PIC X(3).                 EMC6SAV1
022510         05  :SAV:-METLIFE-CTL-NO.                                EMC6SAV1
022510             10 :SAV:-METLIFE-DCC       PIC X(02).                EMC6SAV1
022510             10 :SAV:-METLIFE-FLN       PIC X(10).                EMC6SAV1
022510         05  :SAV:-UHC-IND              PIC X(1).                 EMC6SAV1
019900             88  UHC-APPLIES               VALUE '1'.             EMC6SAV1
020000             88  UHC-CLAIM-NOT-AVAIL       VALUE '2'.             EMC6SAV1
020100             88  UHC-COMPLETED-REVIEW      VALUE '3'.             EMC6SAV1
022510         05  :SAV:-PROV-STATUS          PIC X(1).                 EMC6SAV1
022510         05  :SAV:-NY-ELIGIBLE-IND      PIC X(1).                 EMC6SAV1
               05  :SAV:-MDCR-BYPASS-EDIT     PIC X(1).
022510         05  :SAV:-SUSPEND-IND          PIC X(1).                 EMC6SAV1
022510         05  :SAV:-XMET-CONVERSION-DATE PIC S9(5) COMP-3.         EMC6SAV1
FE0509         05  :SAV:-NY-SURCHARGE         PIC 9(7)V99 COMP-3.       EMC6SAV1
JL0198         05  :SAV:-GE-CLAIM-TYPE        PIC X(01).                EMC6SAV1
JL0198             88  :SAV:-GE-PART-A        VALUE 'A'.
JL0198             88  :SAV:-GE-PART-B        VALUE 'B'.
JL0198             88  :SAV:-GE-RX            VALUE 'R'.
JL0198             88  :SAV:-GE-EXTENDED-CARE VALUE 'E'.
JL0198             88  :SAV:-GE-OH-SURGERY    VALUE 'O'.
022510         05  :SAV:-ENCOUNTER-IND        PIC X(1).                 EMC6SAV1
022600         05  :SAV:-URGENT-CARE          PIC X.                    EMC6SAV1
JC1200         05  :SAV:-PDI-PROVIDER-TIN-NUMBER-10 PIC 9(10).
FE0509         05  :SAV:-PDI-PROVIDER-TIN-SUFFIX   PIC 9(5).
JC1200         05  :SAV:-PDI-PROVIDER-GRP-NME.
JC1200             10 :SAV:-PDI-PROVIDER-NM-LST    PIC X(20).
JC1200             10 :SAV:-PDI-PROVIDER-NM-FST    PIC X(10).
JC1200         05  :SAV:-ZP-BYPASS-IND             PIC X(1).
KF1200         05  :SAV:-PROMPT-PAY-DATA.
KF1200             10  :SAV:-ADDRESSEE-MAIL        PIC X(1).
KF1200             10  :SAV:-LETTER-COMPLETE-CLM   PIC 9(5).
KF1200             10  :SAV:-CLEAN-TRIGGER-DATE    PIC 9(8) COMP-3.
KF1200             10  :SAV:-LETTER-INCOMPLETE-CLM PIC 9(5).
KF1200             10  :SAV:-DIRTY-TRIGGER-DATE    PIC 9(8) COMP-3.
KF1200             10  :SAV:-CLEAN-DIRTY-DEFINITION-IND PIC X(2).
KF1200             10  :SAV:-CLEAN-DIRTY-IND       PIC X(1).
KF1200             10  :SAV:-CLEAN-DIRTY-DATE      PIC 9(8) COMP-3.
KF1200             10  :SAV:-FMR-FAIL-IND          PIC X.
KF1200             10  :SAV:-SENT-FAIL-IND         PIC X.
KF1200             10  :SAV:-SENT-FAIL-DATE        PIC 9(8) COMP-3.
DL1200         05  :SAV:-MALLINCKRODT-VIS          PIC X.
TH1200         05  :SAV:-ZP-ROUTE-IND         PIC X(1).
KF0101         05  :SAV:-PROVIDER-MPIN        PIC X(9).
KF0101         05  :SAV:-PROVIDER-SA-ADDR-SEQ PIC X(9).
JC0201         05  :SAV:-EARLIEST-DOS         PIC S9(7) COMP-3.
JC0201         05  :SAV:-LATEST-DOS           PIC S9(7) COMP-3.
JC0201         05  :SAV:-MBR-MARKET           PIC X(7).
JC0201         05  :SAV:-COMP-CD              PIC X(2).
JC0301         05  :SAV:-OPT-OUT-IND          PIC X(1).
JC0301****  PLEASE NOTE, FOLLOWING IN CCYYMMDD FORMAT
JC0301         05  :SAV:-MRI-PAT-DOB          PIC S9(9) COMP-3.
JC0301         05  :SAV:-MBR-IPA              PIC X(5).
DL0801         05  :SAV:-HMO-ACCT             PIC X(3).
DA1201         05  :SAV:-ORIG-ICN             PIC 9(10) COMP-3.
DA1201         05  :SAV:-TOPS-ORIG-DRAFT-NBR  PIC 9(10) COMP-3.
24137R*        05  :SAV:-UNET-DRG             PIC X(3).
24137R         05  :SAV:-UNET-DRG             PIC X(5).
JN1201         05  :SAV:-CAI-INDICATOR        PIC X(1).
DA1201         05  :SAV:-CLM-FIL-IND          PIC X(02).
JN0202         05  :SAV:-CNVT-TO-SRC          PIC X(01).
DA0702         05  :SAV:-EDS-UPD-APPLIED      PIC X(01).
NT0605         05  :SAV:-ATG-JOB-SEQ-DIGIT    PIC X(01).
NT0605*****    05  FILLER                     PIC X(01).
DA0702         05  :SAV:-CLAIM-TYPE-EXCEPTIONS PIC X(01).
DA0702         05  :SAV:-DOL-TRIGGER-DT       PIC 9(8)  COMP-3.
DA0702         05  :SAV:-DOL-SENT-FAIL-IND    PIC X(01).
DA0702         05  :SAV:-DOL-SENT-FAIL-DT     PIC 9(8)  COMP-3.
FE0509         05  :SAV:-DOL-CLM-RMK          PIC X(03).
DA0702         05  :SAV:-SPLIT-SRCE-REC       PIC X(01).
DL0702         05  :SAV:-CLOSE-EB-IND         PIC X(01).
DL0702         05  :SAV:-ATG-JOB-NBR          PIC X(10).
FE0509         05  :SAV:-ATG-RMK-CD           PIC X(03).
DL0702         05  :SAV:-ATG-OTS-REASON-CD    PIC X(03).
DL0702         05  :SAV:-ATG-LETTER-NBR       PIC X(03).
DL0702         05  :SAV:-CORRECTION-TRAN-CD   PIC X(02).
FEB04A         05  :SAV:-ACN-IND              PIC X(01).
VC1002         05  :SAV:-RECYCLE-IND          PIC X(01).
DL1002         05  :SAV:-RPR-STATUS-INDICATOR PIC X(01).
DL1002         05  :SAV:-RPR-VENDOR-INDICATOR PIC X(01).
DL1002         05  :SAV:-RPR-VENDOR-TRG-RLS   PIC 9(03) COMP-3.
TD0203         05  :SAV:-UB92-FAC-CONTR-METH  PIC X(01).
TD0203         05  :SAV:-UB92-SURG-IND        PIC X(01).
JC0203******* ADD 3 CQR FIELDS AND REDUCE FILLER FROM 25 TO 22 ***
JC0203         05  :SAV:-CQRCM-TYPE           PIC X(1).
JC0203         05  :SAV:-CQRCM-SEND-TO        PIC X(1).
JC0203         05  :SAV:-CQRCM-SEND-CNT       PIC 9(1).
JR0303         05  :SAV:-PHI-IND              PIC X(01).
TC0403         05  :SAV:-SKIP-RECIP-STATE-IND PIC X.
TC0403             88  SKIP-RECIP-DERIVATION  VALUE '1' '2'.
FE0509             88  :SAV88:SKIP-RECIP-SET-ONLINE  VALUE '1'.
TC0403             88  SKIP-RECIP-SET-BATCH   VALUE '2'.
DL0403         05  :SAV:-UB92-ORIG-POS        PIC X(02).
JUN03          05  :SAV:-ORG-ID               PIC X(05).
JUN03          05  :SAV:-RELEASED-FROM-COMET  PIC X(01).
JUN03          05  :SAV:-CQRCM-DT-SENT        PIC 9(5) COMP-3.
JC0405         05  :SAV:-PROV-SA-STATE        PIC X(02).
DL1205         05  :SAV:-INAPR-PROV-REF-IND   PIC X(01).
08105T         05  :SAV:-IO-IND               PIC X(01).
12772D         05  :SAV:-EDS4-UPDATE-IND      PIC X(01).
12772D             88  :SAV88:EDS4-UPDATED  VALUE 'U'.
12772D             88  :SAV88:EDS4-RELEASED VALUE 'R'.
05630D         05  :SAV:-RV-IND               PIC X(01).
13848H         05  :SAV:-DOL-SPLIT-IND        PIC X(01).
13848H             88  :SAV:-NEEDS-SPLIT    VALUE 'Y'.                  VI000EMC
13848H             88  :SAV:-HAS-SPLIT      VALUE 'S'.                  VI000EMC
17616S         05  :SAV:-REPRICE-IND          PIC X(01).
12772D*13848H  05  :SAV:-FILLER-FIXED         PIC X(02).
08105T*12772D  05  :SAV:-FILLER-FIXED         PIC X(04).
JC0203         05  :SAV:-CQRCM-RULES          OCCURS 5 TIMES.
JC0203             10  :SAV:-CQRCM-TYPE-OF-RULE PIC X(01).
JC0203             10  :SAV:-CQRCM-BUS-RULE-CD PIC X(06).
TD0203         05  :SAV:-FACILITY-TABLE.
TD0203             10  :SAV:-FAC-ICN-TABLE OCCURS 10 TIMES.
TD0203                 15  :SAV:-FAC-ICN      PIC 9(11) COMP-3.
TD0203                 15  :SAV:-FAC-ICN-SUFF PIC 9(03) COMP-3.
TD0203         05  :SAV:-FAC-ICN-COUNT    PIC 9(02).
022700         05  :SAV:-NBR-CLMINF           PIC S9(4) COMP.           EMC6SAV1
022800         05  :SAV:-NBR-HIST             PIC S9(4) COMP.           EMC6SAV1
022900         05  :SAV:-NBR-OF-LINES         PIC S9(4) COMP.           EMC6SAV1
DA1201         05  :SAV:-NBR-REC4             PIC S9(4) COMP.           EMC6SAV1
DA1201         05  :SAV:-NBR-REC4-INS         PIC S9(4) COMP.           EMC6SAV1
BK0604* FIELDS ADDED FOR JUNE'04 RELEASE
HT0604         05  :SAV:-NLI-DATA-AREA.                                 EMC6SAV1
HT0604             10  :SAV:-LTR1-RELEASE-DATE PIC S9(8) COMP-3.
HT0604             10  :SAV:-LTR1-RPT-DAYS    PIC 9(04).
HT0604             10  :SAV:-LTR1-PROV        PIC X(03).
HT0604             10  :SAV:-LTR1-MEM         PIC X(03).
HT0604             10  :SAV:-LTR2-RELEASE-DATE PIC S9(8) COMP-3.
HT0604             10  :SAV:-LTR2-RPT-DAYS    PIC 9(04).
HT0604             10  :SAV:-LTR2-PROV        PIC X(03).
HT0604             10  :SAV:-LTR2-MEM         PIC X(03).
HT0604             10  :SAV:-LTR3-RELEASE-DATE PIC S9(8) COMP-3.
HT0604             10  :SAV:-LTR3-RPT-DAYS    PIC 9(04).
HT0604             10  :SAV:-LTR3-PROV        PIC X(03).
HT0604             10  :SAV:-LTR3-MEM         PIC X(03).
HT0604*        05  :SAV:-REC-TYP1-FILLER      PIC X(55).
CS0410         05  :SAV:-NEW-COINS-IND        PIC X(01).
CS0410         05  :SAV:-NEW-COINS-CTR        PIC 9(01).
TD1204*89*ADDED CLOSE-RECALL, REDUCED FILLER BY 4
FE0509         05  :SAV:-RECALL-CLOSE-DENY    PIC X(03)
TD1204                                       OCCURS 2 TIMES.
RP1204         05  :SAV:-MEDRX-SIGNATURE      PIC X(26).
SD0412         05  :SAV:-NS58-NS1E-IND        PIC X(01).
RS0503         05  :SAV:-BYPASS-PROV-FLAG     PIC X(01).
SD0503         05  :SAV:-NDB-RTN-CODE         PIC X(04).
SD0503         05  :SAV:-RTN-ADDRESS-IND      PIC X(01).
HT0504         05  :SAV:-WORKFLOW-ID.
HT0504             10  :SAV:-PAYOR            PIC X(02).
HT0504             10  :SAV:-PROF-FACILITY    PIC X(01).
HT0504             10  :SAV:-IN-OUT-PATIENT   PIC X(01).
HT0504             10  :SAV:-COM-MCARE-MCAIDE PIC X(02).
HT0504             10  :SAV:-OPTION-A-B       PIC X(01).
HT0504             10  :SAV:-WORKFLOW-ID-FILLER PIC X(03).
SN0405         05  :SAV:-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  :SAV:-EDS-UNDO-IND         PIC X(01).
BK0605         05  :SAV:-ATG-HOLD-PND-CD      PIC X(03).
MB0509         05  :SAV:-SUBSTITUTION-IND     PIC X(01).
MB0509         05  :SAV:-ORS-ID               PIC X(15).
MB0509         05  :SAV:-ADJ-ACTION           PIC X(01).
MB0509             88  :SAV:-ADJ-CLM-OVERPAYMENT    VALUE '1'.
MB0509             88  :SAV:-ADJ-CLM-UNDERPAYMENT   VALUE '2'.
MB0509             88  :SAV:-ADJ-CLM-NO-CHANGE      VALUE '3'.
MB0509             88  :SAV:-ADJ-FULL-OVERPAY-GT20  VALUE '4'.
MB0509             88  :SAV:-ADJ-NOT-FULL-OVERPAY   VALUE '5'.
MB0509         05  :SAV:-ADJ-REQUESTOR        PIC X(01).
MB0509             88  :SAV:-ADJ-PROV-PHONE-REQ     VALUE '1'.
MB0509             88  :SAV:-ADJ-PROV-PORTAL-REQ    VALUE '2'.
MB0509             88  :SAV:-ADJ-MEMBER-REQ         VALUE '3'.
MB0509         05  :SAV:-ADJ-RECEIPT-DT       PIC 9(08).
RP0509         05  :SAV:-MULT-PROC-HIST-IND   PIC X(01).
AA1205         05  :SAV:-GOLDEN-RULE-IND      PIC X(01).
JA1205         05  :SAV:-UPCT-SYS-ID          PIC X(03).
08265A         05  :SAV:-PTI-OVERIDE          PIC X(01).
08265A         05  :SAV:-PTI-DETERMINED       PIC X(01).
08265A         05  :SAV:-PTI-ORG-DERIVED      PIC X(04).
08265A         05  :SAV:-PTI-SELECTED         PIC X(01).
08265A         05  :SAV:-PTI-ORG-SELECTED     PIC X(04).
08265A         05  :SAV:-ADDITIONAL-PTI-IND   PIC X(01).
08265A         05  :SAV:-MEDC-PROC-IND        PIC X(01).
08265A         05  :SAV:-MEDC-COB-MSPLT-IND   PIC X(01).
07935A         05  :SAV:-ORIG-FAC-CONTR-METH  PIC X(01).
07935A         05  :SAV:-NDB-CONTR-ID         PIC S9(09) COMP-3.
07935A         05  :SAV:-ALT-REAS-REJ-CODE    PIC X(02).
07935A         05  :SAV:-ALT-PRICE-ATTMPT-CTR PIC 9(01).
07935A         05  :SAV:-ALT-PRICE-MANUAL-IND PIC X(01).
06999B         05  :SAV:-RTA-INFO.
12528P             10  :SAV:-RTA-ID.
12528P               15 :SAV:-RTA-SUBM-TYPE       PIC X.
12528P                 88 :SAV:-RTA-CLM           VALUE 'R'.
12528P                 88 :SAV:-RTA-PRED-CLM      VALUE 'X'.
12528P                 88 :SAV:-RTA-BNDLG-CLM     VALUE 'Y'.
12528P               15 :SAV:-RTA-REST            PIC X(23).
06999B             10  :SAV:-RTA-REPLY-MQ         PIC X(48).
06999B             10  :SAV:-RTA-PRTY             PIC 9(1).
12528D                 88  :SAV:-STP-CLM          VALUE 0 THRU 3.
12528D                 88  :SAV:-PRE-RTA          VALUE 4.
06999B                 88  :SAV:-RTA-PRTY-CLM     VALUE 5 THRU 9.
06999B             10  :SAV:-RTA-RESPONSE         PIC X(1).
12471R                 88  :SAV:-ENDTORTA-MULTSAV VALUE 'M'.
06999B                 88  :SAV:-ENDTORTA-XCOB    VALUE 'X'.
06999B                 88  :SAV:-ENDTORTA-MULTSFX VALUE 'S'.
06999B                 88  :SAV:-ENDTORTA-XCOBMSFX VALUE 'B'.
06999B                 88  :SAV:-ENDTORTA-AA      VALUE 'A'.
06999B             10  :SAV:-RTA-835-IND          PIC X(1).
06999B             10  :SAV:-RTA-REPLY-QMGR   PIC X(10) VALUE SPACES.
04357G         05  :SAV:-MEDC-CALC-PD         PIC X(01).
10088T         05  :SAV:-SUFX-DIAG-PT-VAL     PIC X(05).
10088M         05  :SAV:-LTR-NBR              PIC X(03).
10088M         05  :SAV:-POL-LFTM-MAX-PCT     PIC 9(03).
12830J         05  :SAV:-OBLIGOR-ID           PIC X(02).
12830J         05  :SAV:-SHARED-ARGMNT        PIC X(02).
12830J         05  :SAV:-PPA-MARKET-TYPE      PIC S9(2) COMP-3.         00170005
12471R         05  :SAV:-MULTISAV-GROUPING    PIC 9(02).
12471R         05  :SAV:-FAC-CLAIM-JOBNO      PIC X(03).
12471R         05  :SAV:-H-MEDC-PIF-IND       PIC X(01).
09708R         05  :SAV:-OI-PAID-LINE-DERIVD  PIC X(01).
12471R         05  :SAV:-ERROR-WARN-TBL  OCCURS 20 TIMES.
12471R             10  :SAV:-ERROR-WARN-LIT   PIC X(01).
12471R             10  :SAV:-ERROR-WARN-NBR   PIC S9(5) COMP-3.
11192S         05  :SAV:-BEN-CATG-REC-ID      PIC S9(09) COMP.
11046R         05  :SAV:-DENY-CD-AFTER-CLOSE  PIC X(03).
10088T*        05  :SAV:-REC-TYP1-FILLER      PIC X(04).
07935A*        05  :SAV:-REC-TYP1-FILLER      PIC X(05).
07935A*        05  :SAV:-REC-TYP1-FILLER      PIC X(07).
08265A*        05  :SAV:-REC-TYP1-FILLER      PIC X(15).
08265A*        05  :SAV:-REC-TYP1-FILLER      PIC X(29).
HT0504*        05  :SAV:-REC-TYP1-FILLER      PIC X(06).
SD0503*        05  :SAV:-REC-TYP1-FILLER      PIC X(16).
SD0412*        05  :SAV:-REC-TYP1-FILLER      PIC X(22).
SD1204*        05  :SAV:-REC-TYP1-FILLER      PIC X(23).
10721E         05  :SAV:-API-RECALL-RULE      PIC X(02).                KV0703
12672R         05  :SAV:-TF-LOGIC-TO-BE-INVOKED PIC X(01).
12672R             88 SAV-INVOKE-TF-LOGIC     VALUE 'Y'.
15679R         05  :SAV:-CORP-TAX-ID          PIC X(09).
15679R         05  :SAV:-SUBM-FST-NAME        PIC X(25).
15679R         05  :SAV:-SUBM-LST-NAME        PIC X(35).
15679R         05  :SAV:-PROC-STATUS          PIC X(01).
15679R         05  :SAV:-PROC-FLOW-HDR        PIC X(11).
17252C         05  :SAV:-SUBMTR-ID            PIC X(15).
13376S         05  :SAV:-MCR-CRITERIA-MATCH   PIC X(01).
17635R         05  :SAV:-PRATE-REASON-CODE    PIC X(01).
17618S         05  :SAV:-MLI-SUPPRESS-IND     PIC X(01).
17618S         05  :SAV:-THRESHOLD-AMT        PIC 9(04).
24137R*******  REDUCE FILLER FOR DRG EXPANSION        *******
24137R         05  :SAV:-FIXED-FILLER1        PIC X(43).
24137R*        05  :SAV:-FIXED-FILLER1        PIC X(45).
17635R*        05  :SAV:-FIXED-FILLER1        PIC X(50).
17252C*        05  :SAV:-FIXED-FILLER1        PIC X(01).
17252C*15679R  05  :SAV:-FIXED-FILLER1        PIC X(16).
12672R*15679R  05  :SAV:-FIXED-FILLER1        PIC X(97).
10721E*12672R  05  :SAV:-FIXED-FILLER1        PIC X(98).
023400***                                                               EMC6SAV1
023500*** ---------------------------------------------------------     EMC6SAV1
023600***   DATA AREA HAS BEEN BROKEN OUT INTO IT'S OWN INCLUDE         EMC6SAV1
023700***        (EMC6CLM1), THIS ALLOWS THE DATA ITEMS TO BE           EMC6SAV1
023800***        REFRENCED WITHOUT SUBSCRIPTING.                        EMC6SAV1
023900*** ---------------------------------------------------------     EMC6SAV1
024000***                                                               EMC6SAV1
023000     03  :SAV:-REC-TYP1-CLM.                                      EMC6SAV1
023100         05  :SAV:-CLAIM-DATA  OCCURS   0 TO 1 TIMES              EMC6SAV1
023200                               DEPENDING ON :SAV:-NBR-CLMINF.     EMC6SAV1
14569S*****BACKED OUT 4-14569 CHANGES FROM JUN 07
14569S*****FILLER OF 20 BYTES CAN BE UTILIZED FOR FUTURE RELEASE
13376R             10  FILLER        PIC X(569).
14569R*            10  FILLER        PIC X(452).
10564S*14569S      10  FILLER       PIC X(432).
DA1201***                                                               EMC6SAV1
DA1201*** ---------------------------------------------------------     EMC6SAV1
DA1201***   WITH THE DEC. 01-3 DELIVERABLE, :SAV:EFILE RECORD TYPE 4    EMC6SAV1
DA1201***   HAS BEEN ADDED TO :SAV:EFILE RECORD TYPE 1, MAY NOT HAVE    EMC6SAV1
DA1201***   DATA, EXAMPLE: TOPSONLY CLAIM.                              EMC6SAV1
DA1201*** ---------------------------------------------------------     EMC6SAV1
DA1201***                                                               EMC6SAV1
DA1201     03  :SAV:-REC-TYP4-FIXED-DATA.                               EMC6SAV1
DA1201         05  :SAV:-REC4-DATA   OCCURS   0 TO 1 TIMES              EMC6SAV1
DA1201                               DEPENDING ON :SAV:-NBR-REC4.       EMC6SAV1
12633S             10  FILLER       PIC X(1169).                        EMC6SAV1
DA1201***                                                               EMC6SAV1
DA1201     03  :SAV:-REC-TYP4-INSURED-DATA.                             EMC6SAV1
DA1201         05  :SAV:-INSUREDS-DATA OCCURS 0 TO 3 TIMES              EMC6SAV1
DA1201                               DEPENDING ON :SAV:-NBR-REC4-INS    EMC6SAV1
DA1201                               INDEXED BY :SAV:-REC4-INS-NDX.     EMC6SAV1
DA1201             10  FILLER       PIC X(290).                         EMC6SAV1
000000*-------------------------------------------------------------*   EMC6SAV1
031700*            TOPS PAYMENT SCREEN LINE DATA                    *   EMC6SAV1
031800*-------------------------------------------------------------*   EMC6SAV1
031900     03  :SAV:-REC-TYP1-VAR.                                      EMC6SAV1
032000         05  :SAV:-LINE-DATA   OCCURS   0 TO 7 TIMES              EMC6SAV1
032100                               DEPENDING ON :SAV:-NBR-OF-LINES    EMC6SAV1
032200                               INDEXED BY :SAV:-LINE-DATA-NDX.    EMC6SAV1
032300             10  :SAV:-PLACE-OF-SERVICE     PIC X(2).             EMC6SAV1
032400             10  :SAV:-MED-SERVICE-CODE     PIC X(6).             EMC6SAV1
032500             10  :SAV:-FIRST-DATE-SERVICE   PIC S9(7)     COMP-3. EMC6SAV1
032600             10  :SAV:-LAST-DATE-SERVICE    PIC S9(7)     COMP-3. EMC6SAV1
FE0509             10  :SAV:-NO-TIMES-SERVICE     PIC S9(5)     COMP-3. EMC6SAV1
032800             10  :SAV:-OVERRIDE-CODE        PIC X(2).             EMC6SAV1
032900             10  :SAV:-PAYEE-CODE           PIC X.                EMC6SAV1
033000             10  :SAV:-PROVIDER-POS-NO      PIC S9        COMP-3. EMC6SAV1
FE0509             10  :SAV:-MPI-REMARK-CODE      PIC X(3).             EMC6SAV1
DA1201             10  :SAV:-CHARGE-AMOUNT        PIC S9(9)V99  COMP-3. EMC6SAV1
DA1201             10  :SAV:-NOT-COV-AMOUNT       PIC S9(9)V99  COMP-3. EMC6SAV1
DA1201             10  :SAV:-BASE-COV-AMOUNT      PIC S9(9)V99  COMP-3. EMC6SAV1
DA1201             10  :SAV:-BASE-DED-AMT         PIC S9(9)V99  COMP-3. EMC6SAV1
033600             10  :SAV:-BASE-DED-DESC        PIC X(2).             EMC6SAV1
033700             10  :SAV:-BASE-PCT             PIC S9(3)     COMP-3. EMC6SAV1
DA1201             10  :SAV:-BASE-AMT             PIC S9(9)V99  COMP-3. EMC6SAV1
DA1201             10  :SAV:-SUP-AMT              PIC S9(9)V99  COMP-3. EMC6SAV1
DA1201             10  :SAV:-MM-COV-AMT           PIC S9(9)V99  COMP-3. EMC6SAV1
DA1201             10  :SAV:-MM-DED-AMT           PIC S9(9)V99  COMP-3. EMC6SAV1
034200             10  :SAV:-MM-DED-DESC          PIC X(2).             EMC6SAV1
034300             10  :SAV:-MM-PCT               PIC S9(3)     COMP-3. EMC6SAV1
DA1201             10  :SAV:-MM-AMT               PIC S9(9)V99  COMP-3. EMC6SAV1
DA1201             10  :SAV:-CR-RES-AMT           PIC S9(9)V99  COMP-3. EMC6SAV1
034600*                                                                 EMC6SAV1
034700* NEW PRS FIELDS - 14 * 70 =  980 BYTES EXTRA                     EMC6SAV1
034800*                                                                 EMC6SAV1
034900             10  :SAV:-LINE-NBR             PIC 9(03) COMP-3.     EMC6SAV1
FE0509             10  :SAV:-LINE-REMARK-CODE-3   PIC X(03).            EMC6SAV1
035100             10  :SAV:-LINE-DISP            PIC X(02).            EMC6SAV1
035200             10  :SAV:-LINE-PEND-STATUS     PIC X(01).            EMC6SAV1
SG0307             10  :SAV:-LINE-DISP-SOURCE     PIC X(03).            EMC6SAV1
JG0307             10  :SAV:-LINE-PAID-AS-CODE    PIC X(05).
YL0903             10  :SAV:-LINE-835-RPT-IND     PIC X(01).
035400             10  :SAV:-LINE-CREATE-SOURCE   PIC X(02).            EMC6SAV1
035500             10  :SAV:-LINE-MSG             PIC X(05).            EMC6SAV1
035900             10  :SAV:-LINE-PMT-SCREEN      PIC 9(3) COMP-3.      EMC6SAV1
DA0702*                                                                 EMC6SAV1
DA0702* NEW :SAV:E FIELDS 2 BYTES                                       EMC6SAV1
DA0702*                                                                 EMC6SAV1
FE0509             10  :SAV:-DOL-CLOSURE-CD OCCURS 4 TIMES PIC X(03).   EMC6SAV1
DA0702             10  :SAV:-DX-PTR-FESPI         PIC X(05).            EMC6SAV1
JC0203***** ADD CQR/COMET  ****
JC0203***** WHICH APPLICATION FIXED THE ERRORREOUS DATA       ****
JC0203             10  :SAV:-CQRCM-AION-COMET-CHG   PIC X(01).          EMC6SAV1
JC0203                 88  :SAV:-CQRCM-CHG-BY-AION VALUE 'A'.           EMC6SAV1
JC0203                 88  :SAV:-CQRCM-CHG-BY-COMET VALUE 'C'.          EMC6SAV1
RK0509             10  :SAV:-MEDCR-INT-AMTD       PIC S9(9)V99 COMP-3.
RK0509             10  :SAV:-MEDCR-PEN-AMT        PIC S9(9)V99 COMP-3.
AJ1205             10  :SAV:-ORIG-BILL-AMT        PIC S9(9)V99 COMP-3.
08766A             10  :SAV:-TRANSLATED-CL-SERV-CD PIC XX.
09708R*13376R      10  FILLER                      PIC X(18).
11192S*13376R      10  :SAV:-REC-TYP1-FILLER       PIC X(04).
13376R             10  :SAV:-PNLTY-LINE-TABLE    OCCURS 2 TIMES.
13376R                 12  :SAV:-LN-PNLTY-NTFY-TYP-CD  PIC  X(02).
13376R                 12  :SAV:-LN-PNLTY-AMT     PIC S9(07)V99 COMP-3.
13376R                 12  :SAV:-LN-PNLTY-REMARK-CD PIC  X(03).
13376R                 12  :SAV:-LN-PNLTY-BYPASS-CD PIC  X(01).
11192S*            10  :SAV:-BEN-ACC-CAT           PIC X(02).
11192S*            10  :SAV:-BEN-ACC-TYPE          PIC X(02).
13406S             10  :SAV:-TOPS-DETERMINED-SCHED PIC X(01).
14111R             10  :SAV:-MED-SERVICE-CODE-LVL  PIC X(01).
13376K             10  :SAV:-LN-PNLTY-USE-TYP    OCCURS 2 TIMES
13376K                                             PIC X(01).
13376K             10  FILLER                      PIC X(19).
14111R*            10  FILLER                      PIC X(21).
13376R*14111R      10  FILLER                      PIC X(22).
036000*                                                                 EMC6SAV1
036100****************************************************************  EMC6SAV1
036200     03  :SAV:-REC-TYP1-HIST.                                     EMC6SAV1
036300         05  :SAV:-HIST-DATA   OCCURS 0 TO 150 TIMES              EMC6SAV1
036400                               DEPENDING ON :SAV:-NBR-HIST        EMC6SAV1
036500                               INDEXED BY :SAV:-HIST-DATA-NDX.    EMC6SAV1
036600             10  :SAV:-HIST-DATE-IN         PIC 9(07) COMP-3.     EMC6SAV1
036700             10  :SAV:-HIST-DATE-OL-RES     PIC 9(07) COMP-3.     EMC6SAV1
036800             10  :SAV:-HIST-DATE-BAT-RES    PIC 9(07) COMP-3.     EMC6SAV1
036900             10  :SAV:-HIST-DATE-TRIGGER    PIC 9(07) COMP-3.     EMC6SAV1
037000             10  :SAV:-HIST-OFC             PIC 9(03) COMP-3.     EMC6SAV1
037100             10  :SAV:-HIST-ICN             PIC 9(11) COMP-3.     EMC6SAV1
037200             10  :SAV:-HIST-SUFFIX          PIC 9(03) COMP-3.     EMC6SAV1
037300             10  :SAV:-HIST-PND-LINES       PIC 9(03) COMP-3.     EMC6SAV1
037400             10  :SAV:-HIST-SYSTEM          PIC X(01).            EMC6SAV1
037500             10  :SAV:-HIST-WRK-QUEUE.                            EMC6SAV1
037600                 15 :SAV:-HIST-WRKQ         PIC X(02).            EMC6SAV1
FE0509                 15 :SAV:-HIST-WRKQ-REAS    PIC X(03).            EMC6SAV1
037800             10  :SAV:-HIST-STATUS          PIC X(02).            EMC6SAV1
FE0509             10  :SAV:-HIST-PND-CD          PIC X(3).             EMC6SAV1
038000             10  :SAV:-HIST-MGR-OFC         PIC X(2).             EMC6SAV1
038100             10  :SAV:-HIST-PROC-ID         PIC 9(07) COMP-3.     EMC6SAV1
DL0103             10  :SAV:-HIST-COMMENTS        PIC X(68).            EMC6SAV1
DL0103             10  :SAV:-HIST-B4-REPRICE-PND-L PIC 9(02).           EMC6SAV1
JC0700             10  :SAV:-HIST-FMR-DQ-IND      PIC X(01).            EMC6SAV1
DL1002             10  :SAV:-HIST-B4-REPRICE-IND  PIC X(01).            EMC6SAV1
038400             10  :SAV:-HIST-PN-WRKQ-IND     PIC X(01).            EMC6SAV1
JL0399             10  :SAV:-HIST-PDI-WRKQ-IND    PIC X(01).            EMC6SAV1
038600             10  :SAV:-HIST-TRIG-RC         PIC X(02).            EMC6SAV1
HT0604***  FOLLOWING ARE THE NEW FIELDS ADDED
HT0604             10  :SAV:-HIST-AION-SEND-TO    PIC X(01).
HT0604             10  :SAV:-HIST-AION-TYPE       PIC X(01).
HT0604             10  :SAV:-HIST-AION-CHNG       PIC X(01).
HT0604             10  :SAV:-HIST-COMET-SEND-TO   PIC X(01).
HT0604             10  :SAV:-HIST-COMET-TYPE      PIC X(01).
HT0604             10  :SAV:-HIST-COMET-REL       PIC X(01).
SN0405             10  :SAV:-HIST-SBI-IND         PIC X(01).
PD0405             10  :SAV:-HIST-AUTO-IND        PIC X(01).
PD0405             10  :SAV:-HIST-UPDT-SYS        PIC X(01).
15679R             10  :SAV:-HIST-SENT-FMR-IN     PIC X(01).
15679R             10  :SAV:-HIST-FILLER          PIC X(15).
FE0509*15679R      10  :SAV:-HIST-FILLER          PIC X(16).
**************************** BOTTOM OF DATA ****************

Back to top
View user's profile Send private message
icemanroh

New User


Joined: 23 Aug 2008
Posts: 25
Location: Mumbai

PostPosted: Tue Jun 01, 2010 2:15 pm
Reply with quote

I am assuming that ur key is as below.

Code:
 10 :SAV:-FILE-KEY.                                   
                 15 :SAV:-ICN              PIC 9(11) COMP-3.       
                 15 :SAV:-RECORD-TYPE      PIC X(1).               
                     88 :SAV:-REC-TYPE1-TOPS VALUE '1'.           
                     88 :SAV:-REC-TYPE2-HCDS VALUE '2'.           
                     88 :SAV:-REC-TYPE3-MCDS VALUE '3'.           
                     88 :SAV:-REC-TYPE4-NEIC VALUE '4'.           
                 15 :SAV:-ICN-SUFFIX      PIC 9(3)  COMP-3.


Can you try this & let me know if it is working for u? I tested it myself & it worked for me.

Code:
MOVE LOW-VALUES TO SAV:-FILE-KEY

MOVE INP-ICN TO SAV:-ICN

START Sav file                             
      KEY IS NOT LESS THAN SAV:-FILE-KEY     
      INVALID KEY  SET  WS-NOT-FOUND  TO TRUE
END-START                                         
                                                   
READ Sav file NEXT RECORD                 
END-READ                                           

DELETE  Sav file
END-DELETE 
Back to top
View user's profile Send private message
rupesh gullu

New User


Joined: 12 Dec 2008
Posts: 96
Location: Gurgaon

PostPosted: Tue Jun 01, 2010 2:47 pm
Reply with quote

Rohit,

I tried ur code and hs worked for me as well. Thanks for help.

One thing i need to ask..Next record will read the next ocurance of same pcn. and if found will delete it. I am right?

so it means we can delet record based on partial key

reagrds,
rupesh gupta
Back to top
View user's profile Send private message
icemanroh

New User


Joined: 23 Aug 2008
Posts: 25
Location: Mumbai

PostPosted: Tue Jun 01, 2010 2:50 pm
Reply with quote

rupesh gullu wrote:
Next record will read the next ocurance of same pcn. and if found will delete it. I am right?

Yes

Quote:
so it means we can delet record based on partial key

Yes. But try avoid using it. If the data is very sensitive, especially financial data, then I won't recommend using partial key for delete.

Hey and what about my 1000 US dollars?? icon_wink.gif
Back to top
View user's profile Send private message
rupesh gullu

New User


Joined: 12 Dec 2008
Posts: 96
Location: Gurgaon

PostPosted: Tue Jun 01, 2010 2:53 pm
Reply with quote

Ya sure will giv u $1000 .. when we meet. icon_smile.gif

regards,
rupesh gupta
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> COBOL Programming

 


Similar Topics
Topic Forum Replies
No new posts How to split large record length file... DFSORT/ICETOOL 10
No new posts DELETE SPUFI DB2 1
No new posts SFTP Issue - destination file record ... All Other Mainframe Topics 2
No new posts DSNTIAUL driven delete IBM Tools 0
No new posts FINDREP - Only first record from give... DFSORT/ICETOOL 3
Search our Forums:

Back to Top