Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
ICETOOL - Finding keys within a file

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
nartcr

New User


Joined: 06 Jun 2007
Posts: 83
Location: anada

PostPosted: Mon Sep 17, 2018 6:39 am    Post subject: ICETOOL - Finding keys within a file
Reply with quote

Folks,

I need suggestions on how better to handle this, or if there is a smarter way to approach this problem.

I have a key record and its getting replaced with a new key. Each of these keys are stored in separate database and holds relevant information. Ultimate goal is to see what the true new key would be.

Lets say KEY1 is superseded by KEY2 and KEY2 is superseded by KEY3, I need to be able to map the KEY1 to KEY3 efficiently.

Lets say input is:

Code:
----+----1----+----2----+----3
 OLD KEY        NEW KEY
 11111
 22222          AAAAA
 33333          EEEEE
 44444          22222
 55555
 66666          DDDDD
 AAAAA          BBBBB
 BBBBB          CCCCC
 CCCCC          DDDDD
 DDDDD
 EEEEE


The output need to show as follows:

Code:

OUTPUT:
----+----1----+----2----+----3

 KEY            MAPS TO
 11111
 22222          DDDDD
 33333          EEEEE
 44444          DDDDD
 55555
 66666          DDDDD
 AAAAA          DDDDD
 BBBBB          DDDDD
 CCCCC          DDDDD
 DDDDD


I have been thinking of join or splice, but it looks like I do not know upfront how many times I need to splice the file. What is the best way to find what the true new key would be?

Any ideas are welcome.

Thanks,
Nara
Back to top
View user's profile Send private message

Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1300
Location: Israel

PostPosted: Mon Sep 17, 2018 2:21 pm    Post subject:
Reply with quote

1. Write a COBOL program.
2. Load the data in a temporary DB2 table and use recursive select (depends on your DB2 version).
Back to top
View user's profile Send private message
nartcr

New User


Joined: 06 Jun 2007
Posts: 83
Location: anada

PostPosted: Mon Sep 17, 2018 6:52 pm    Post subject:
Reply with quote

Marso wrote:
1. Write a COBOL program.
2. Load the data in a temporary DB2 table and use recursive select (depends on your DB2 version).


1) Not an option since our shops uses only PL1. Since the records span to little above million, PL1 would be slower.

2) Again not an option, hand tied. For security reasons, we cannot load into DB2 tables. Input file is a flat file which was extracted by a vendor from DB2 tables and these are industry standard files.

Any way you could think about on SORT/ or some in-house products. I am also looking for less number of iterations.
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2100
Location: UK

PostPosted: Mon Sep 17, 2018 7:38 pm    Post subject: Reply to: ICETOOL - Finding keys within a file
Reply with quote

Quote:
shops uses only PL1

Then use that. If you cannot do anything else then speed is immaterial.
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8723
Location: Welsh Wales

PostPosted: Mon Sep 17, 2018 7:49 pm    Post subject:
Reply with quote

nartcr wrote:
Any way you could think about on SORT/ or some in-house products. I am also looking for less number of iterations.

Only You will know which "In House" products you have, we don't.

The first step is to figure out the logic or process flow for doing what you want and then attempting to apply that to your sort product, but as others have said a program will almost certainly be the best solution.

The number of iterations will also depend on your programming skills as much as the product being used.
Back to top
View user's profile Send private message
nartcr

New User


Joined: 06 Jun 2007
Posts: 83
Location: anada

PostPosted: Mon Sep 17, 2018 7:50 pm    Post subject:
Reply with quote

Nic, agreed. Before I go program route, I wanted to make sure with icetool I cannot do something like this ?...

I will see if i can dynamic split files along with reformating each of these files and splice option to build a key.
Back to top
View user's profile Send private message
nartcr

New User


Joined: 06 Jun 2007
Posts: 83
Location: anada

PostPosted: Mon Sep 17, 2018 7:57 pm    Post subject:
Reply with quote

expat wrote:
nartcr wrote:
Any way you could think about on SORT/ or some in-house products. I am also looking for less number of iterations.

Only You will know which "In House" products you have, we don't.

The first step is to figure out the logic or process flow for doing what you want and then attempting to apply that to your sort product, but as others have said a program will almost certainly be the best solution.

The number of iterations will also depend on your programming skills as much as the product being used.


Thanks Expat. I didnt mean in house products, was a typo :). No problem, i will see what i can do.
Back to top
View user's profile Send private message
sergeyken

Active User


Joined: 29 Apr 2008
Posts: 365
Location: Maryland

PostPosted: Mon Sep 17, 2018 10:31 pm    Post subject:
Reply with quote

If maximum level of key substitution is limited to a reasonable value, this can be done with only JCL+SORT utility. (It stops automatically when no more keys are substituted, up to 10 levels in this example)

Code:
//*====================================================================
//COPYFILE EXEC PGM=IEBGENER                                           
//*                                                                   
//SYSPRINT DD DUMMY                                                   
//SYSIN    DD DUMMY                                                   
//*                                                                   
//SYSUT1   DD *                                                       
*---+----1----+----2----+----3                                         
* OLD KEY       NEW KEY                                               
 11111                                                                 
 22222          AAAAA                                                 
 33333          EEEEE                                                 
 44444          22222                                                 
 55555                                                                 
 66666          DDDDD                                                 
 AAAAA          BBBBB                                                 
 BBBBB          CCCCC                                                 
 CCCCC          DDDDD                                                 
 DDDDD                                                                 
 EEEEE                                                                 
//SYSUT2  DD  DISP=(NEW,PASS),                                         
//            SPACE=(TRK,(10,10),RLSE),                               
//            DSN=&SYSUID..KEYTAB                                     
//*                                                                   
//*====================================================================
//REPLKEY  PROC DATA=NULLFILE,             
//             LOG='SYSOUT=*',             
//             TRACE='SYSOUT=*'             
//*                                         
//MATCH    EXEC PGM=SORT,COND=(4,LE)       
//*                                         
//SYNOUT   DD  &LOG                         
//*                                         
//MASTER   DD  DISP=(OLD,PASS),DSN=&DATA   
//DETAILS  DD  DISP=(OLD,PASS),DSN=&DATA   
//*                                         
//SORTOUT  DD  DISP=(OLD,PASS),DSN=&DATA   
//LISTING  DD  &TRACE                       
//COUNT    DD  DUMMY                       
//*                                         
//SYSIN   DD  *                             
 JOINKEYS F1=MASTER,                       
          INCLUDE=(1,1,CH,NE,C'*',         
               AND,2,5,CH,NE,17,2,CH,       
               AND,2,5,CH,NE,C' '),         
          FIELDS=(17,5,A)                   
 JOINKEYS F2=DETAILS,                       
          INCLUDE=(1,1,CH,NE,C'*'),         
          FIELDS=(2,5,A)                   
 JOIN UNPAIRED,F1                           
 REFORMAT FIELDS=(F1:1,80,                                             
                  F2:1,80,                                             
                  ?)                                                   
 SORT FIELDS=COPY                                                     
 OUTFIL FNAMES=COUNT,                                                 
        INCLUDE=(161,1,CH,EQ,C'B',                                     
             AND,97,5,CH,NE,C' '),                                     
        NULLOFL=RC4                                                   
 OUTFIL FNAMES=(LISTING,SORTOUT),                                       
        IFTHEN=(WHEN=(161,1,CH,EQ,C'1',                               
                   OR,97,5,CH,EQ,C' '),                               
                BUILD=(1,80)),                                         
        IFTHEN=(WHEN=NONE,                                             
                BUILD=(1,16,                                           
                      97,05,                                           
                      22,59))                                         
 END                                                                   
//*                                                                   
//         PEND                                                       
//*====================================================================
//KEY#1    EXEC REPLKEY,DATA=&SYSUID..KEYTAB,TRACE=DUMMY,LOG=DUMMY     
//KEY#2    EXEC REPLKEY,DATA=&SYSUID..KEYTAB,TRACE=DUMMY,LOG=DUMMY     
//KEY#3    EXEC REPLKEY,DATA=&SYSUID..KEYTAB,TRACE=DUMMY,LOG=DUMMY     
//KEY#4    EXEC REPLKEY,DATA=&SYSUID..KEYTAB,TRACE=DUMMY,LOG=DUMMY     
//KEY#5    EXEC REPLKEY,DATA=&SYSUID..KEYTAB,TRACE=DUMMY,LOG=DUMMY     
//KEY#6    EXEC REPLKEY,DATA=&SYSUID..KEYTAB,TRACE=DUMMY,LOG=DUMMY     
//KEY#7    EXEC REPLKEY,DATA=&SYSUID..KEYTAB,TRACE=DUMMY,LOG=DUMMY     
//KEY#8    EXEC REPLKEY,DATA=&SYSUID..KEYTAB,TRACE=DUMMY,LOG=DUMMY     
//KEY#9    EXEC REPLKEY,DATA=&SYSUID..KEYTAB,TRACE=DUMMY,LOG=DUMMY     
//KEY#10   EXEC REPLKEY,DATA=&SYSUID..KEYTAB,TRACE=DUMMY,LOG=DUMMY     
//*                                                                   
//*====================================================================
//PRINT    EXEC PGM=IEBGENER                                           
//*                                                                   
//SYSPRINT DD DUMMY                                                   
//SYSIN    DD DUMMY                                                   
//*                                                                   
//SYSUT2  DD  SYSOUT=*                                                 
//SYSUT1  DD  DISP=(OLD,PASS),DSN=&SYSUID..KEYTAB                     
//*                                                                   
//*====================================================================


If the replacement level is unpredictable (that is unlikely?), then the same approach can be done, let's say, by calling SORT in the same manner from REXX, from some DO WHILE RC=0 loop.
Back to top
View user's profile Send private message
Rohit Umarjikar

Senior Member


Joined: 21 Sep 2010
Posts: 2031
Location: NY,USA

PostPosted: Mon Sep 17, 2018 10:43 pm    Post subject:
Reply with quote

Should it be this ?
Code:
//SYSIN   DD  *                             
  JOINKEYS F1=MASTER,                       
           INCLUDE=(1,1,CH,NE,C'*',         
                AND,2,5,CH,NE,17,5,CH,       
                AND,2,5,CH,NE,C' '),         
           FIELDS=(17,5,A)
Back to top
View user's profile Send private message
sergeyken

Active User


Joined: 29 Apr 2008
Posts: 365
Location: Maryland

PostPosted: Mon Sep 17, 2018 10:51 pm    Post subject:
Reply with quote

Rohit Umarjikar wrote:
Should it be this ?
Code:
//SYSIN   DD  *                             
  JOINKEYS F1=MASTER,                       
           INCLUDE=(1,1,CH,NE,C'*',         
                AND,2,5,CH,NE,17,5,CH,       
                AND,2,5,CH,NE,C' '),         
           FIELDS=(17,5,A)

The first line added to bypass comments in data lines; this is my own habit, to simplify debugging in many cases.

Line 2 is "fool protection", to prevent confusion with stupid translations like AAAAA --> AAAAA

Line 3 is critical. Try to remove them to find out what the result will be...
Back to top
View user's profile Send private message
nartcr

New User


Joined: 06 Jun 2007
Posts: 83
Location: anada

PostPosted: Tue Sep 18, 2018 6:18 am    Post subject:
Reply with quote

sergeyken wrote:
If maximum level of key substitution is limited to a reasonable value, this can be done with only JCL+SORT utility. (It stops automatically when no more keys are substituted, up to 10 levels in this example)

Code:
//*====================================================================
//COPYFILE EXEC PGM=IEBGENER                                           
//*                                                                   
//SYSPRINT DD DUMMY                                                   
//SYSIN    DD DUMMY                                                   
//*                                                                   
//SYSUT1   DD *                                                       
*---+----1----+----2----+----3                                         
* OLD KEY       NEW KEY                                               
 11111                                                                 
 22222          AAAAA                                                 
 33333          EEEEE                                                 
 44444          22222                                                 
 55555                                                                 
 66666          DDDDD                                                 
 AAAAA          BBBBB                                                 
 BBBBB          CCCCC                                                 
 CCCCC          DDDDD                                                 
 DDDDD                                                                 
 EEEEE                                                                 
//SYSUT2  DD  DISP=(NEW,PASS),                                         
//            SPACE=(TRK,(10,10),RLSE),                               
//            DSN=&SYSUID..KEYTAB                                     
//*                                                                   
//*====================================================================
//REPLKEY  PROC DATA=NULLFILE,             
//             LOG='SYSOUT=*',             
//             TRACE='SYSOUT=*'             
//*                                         
//MATCH    EXEC PGM=SORT,COND=(4,LE)       
//*                                         
//SYNOUT   DD  &LOG                         
//*                                         
//MASTER   DD  DISP=(OLD,PASS),DSN=&DATA   
//DETAILS  DD  DISP=(OLD,PASS),DSN=&DATA   
//*                                         
//SORTOUT  DD  DISP=(OLD,PASS),DSN=&DATA   
//LISTING  DD  &TRACE                       
//COUNT    DD  DUMMY                       
//*                                         
//SYSIN   DD  *                             
 JOINKEYS F1=MASTER,                       
          INCLUDE=(1,1,CH,NE,C'*',         
               AND,2,5,CH,NE,17,2,CH,       
               AND,2,5,CH,NE,C' '),         
          FIELDS=(17,5,A)                   
 JOINKEYS F2=DETAILS,                       
          INCLUDE=(1,1,CH,NE,C'*'),         
          FIELDS=(2,5,A)                   
 JOIN UNPAIRED,F1                           
 REFORMAT FIELDS=(F1:1,80,                                             
                  F2:1,80,                                             
                  ?)                                                   
 SORT FIELDS=COPY                                                     
 OUTFIL FNAMES=COUNT,                                                 
        INCLUDE=(161,1,CH,EQ,C'B',                                     
             AND,97,5,CH,NE,C' '),                                     
        NULLOFL=RC4                                                   
 OUTFIL FNAMES=(LISTING,SORTOUT),                                       
        IFTHEN=(WHEN=(161,1,CH,EQ,C'1',                               
                   OR,97,5,CH,EQ,C' '),                               
                BUILD=(1,80)),                                         
        IFTHEN=(WHEN=NONE,                                             
                BUILD=(1,16,                                           
                      97,05,                                           
                      22,59))                                         
 END                                                                   
//*                                                                   
//         PEND                                                       
//*====================================================================
//KEY#1    EXEC REPLKEY,DATA=&SYSUID..KEYTAB,TRACE=DUMMY,LOG=DUMMY     
//KEY#2    EXEC REPLKEY,DATA=&SYSUID..KEYTAB,TRACE=DUMMY,LOG=DUMMY     
//KEY#3    EXEC REPLKEY,DATA=&SYSUID..KEYTAB,TRACE=DUMMY,LOG=DUMMY     
//KEY#4    EXEC REPLKEY,DATA=&SYSUID..KEYTAB,TRACE=DUMMY,LOG=DUMMY     
//KEY#5    EXEC REPLKEY,DATA=&SYSUID..KEYTAB,TRACE=DUMMY,LOG=DUMMY     
//KEY#6    EXEC REPLKEY,DATA=&SYSUID..KEYTAB,TRACE=DUMMY,LOG=DUMMY     
//KEY#7    EXEC REPLKEY,DATA=&SYSUID..KEYTAB,TRACE=DUMMY,LOG=DUMMY     
//KEY#8    EXEC REPLKEY,DATA=&SYSUID..KEYTAB,TRACE=DUMMY,LOG=DUMMY     
//KEY#9    EXEC REPLKEY,DATA=&SYSUID..KEYTAB,TRACE=DUMMY,LOG=DUMMY     
//KEY#10   EXEC REPLKEY,DATA=&SYSUID..KEYTAB,TRACE=DUMMY,LOG=DUMMY     
//*                                                                   
//*====================================================================
//PRINT    EXEC PGM=IEBGENER                                           
//*                                                                   
//SYSPRINT DD DUMMY                                                   
//SYSIN    DD DUMMY                                                   
//*                                                                   
//SYSUT2  DD  SYSOUT=*                                                 
//SYSUT1  DD  DISP=(OLD,PASS),DSN=&SYSUID..KEYTAB                     
//*                                                                   
//*====================================================================


If the replacement level is unpredictable (that is unlikely?), then the same approach can be done, let's say, by calling SORT in the same manner from REXX, from some DO WHILE RC=0 loop.



Thanks a Bunch. Very smart. I was able to use it for getting my desired results.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Picking up the latest PS file pema_yozer JCL & VSAM 8 Thu Oct 11, 2018 12:26 pm
No new posts Process only last key record in a fil... Naveen.katkuri24 DFSORT/ICETOOL 8 Tue Oct 09, 2018 9:39 am
No new posts ISPF 3.4 edit of a ps file, disp use... Carrie Da Silva TSO/ISPF 3 Fri Sep 21, 2018 3:01 am
No new posts Remove selected duplicate rows from t... hnharish DFSORT/ICETOOL 3 Wed Sep 05, 2018 3:11 am
No new posts Splitting one record in a file to 10 ... mf_123 DFSORT/ICETOOL 9 Tue Aug 21, 2018 8:51 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us