Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

How to achieve this using SYNCSORT?

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
karthikr44

Active User


Joined: 25 Aug 2007
Posts: 235
Location: Chennai

PostPosted: Wed Nov 19, 2008 12:46 pm    Post subject: How to achieve this using SYNCSORT?
Reply with quote

Hi,

I have two date fields in the format CCYYMMDD
02 DB-DT-QTR-BEGIN PIC 9(5) COMP-3.
02 DB-DT-QTR-END PIC 9(5) COMP-3.

And i have another date field in the format YYMMDD
02 AV-DT-CLM-PRCH PIC 9(6) COMP-3.

My requirement is to add century to the field AV-DT-CLM-PRCH and detemine if that date is within the dates DB-DT-QTR-BEGIN and DB-DT-QTR-END.

If condition is satisfied then write the record out. I have no idea about date formats. Any one help me.

Thanks in advance
R KARTHIK
Back to top
View user's profile Send private message

karthikr44

Active User


Joined: 25 Aug 2007
Posts: 235
Location: Chennai

PostPosted: Wed Nov 19, 2008 1:05 pm    Post subject: Reply to: How to achieve this using SYNCSORT?
Reply with quote

Sorry i forgot to specify the field position,

Viewed in File master,

I file

DB DT DB DT
QTR BEGIN QTR END
P 3 P 3
27------- 30-----

II file

AV DT
CLM PRCH
P 4
125--------
Back to top
View user's profile Send private message
Arun Raj

Moderator


Joined: 17 Oct 2006
Posts: 2158
Location: @my desk

PostPosted: Wed Nov 19, 2008 1:05 pm    Post subject:
Reply with quote

Quote:
My requirement is to add century to the field AV-DT-CLM-PRCH and detemine if that date is within the dates DB-DT-QTR-BEGIN and DB-DT-QTR-END.

What century value you would like to add to the second date field - AV-DT-CLM-PRCH?
Quote:
If condition is satisfied then write the record out

What are the fields to be written to the output and from which files? Also Input LRECL/RECFM..
Back to top
View user's profile Send private message
Arun Raj

Moderator


Joined: 17 Oct 2006
Posts: 2158
Location: @my desk

PostPosted: Wed Nov 19, 2008 1:51 pm    Post subject:
Reply with quote

karthikr44,

The date format in your File-1 is CCYYMMDD which in packed decimal would require 5 bytes. But your copybook shows only 5 numeric digits which requires only 3 bytes which agrees with your "File Master". Can you post a few sample records from your actual files.
Back to top
View user's profile Send private message
karthikr44

Active User


Joined: 25 Aug 2007
Posts: 235
Location: Chennai

PostPosted: Wed Nov 19, 2008 2:18 pm    Post subject: Reply to: How to achieve this using SYNCSORT?
Reply with quote

HI arcvns,

When i tried to open the I file in File master it displaying the date as follows.

Code:

  DB DT    DB DT 
QTR BEGIN QTR END
P 3       P 3     
27------- 30-----
X'031F08' X'001F+
010       010     
3F8       0F8     
------------------


But my team lead now said that the above fields are in julian format (eg: 08215) and convert to CCYYMMDD format.

Then the field AV-DT-CLM-PRCH in second file is in YYMMDD format and convert to CCYYMMDD format.

I file:
RECFM:FB
LRECL: 3200

II file:
RECFM:FB
LRECL: 200

And then if the condition satisfied write the output from second file(entire LRECL).

Thanks in advance
R KARTHIK
Back to top
View user's profile Send private message
Arun Raj

Moderator


Joined: 17 Oct 2006
Posts: 2158
Location: @my desk

PostPosted: Wed Nov 19, 2008 4:19 pm    Post subject:
Reply with quote

How many records do you have in both the files? Do you have a key to match?
Back to top
View user's profile Send private message
karthikr44

Active User


Joined: 25 Aug 2007
Posts: 235
Location: Chennai

PostPosted: Wed Nov 19, 2008 4:39 pm    Post subject: Reply to: How to achieve this using SYNCSORT?
Reply with quote

Hi arcvns,

I File which contains the fields DB-DT-QTR-BEGIN, DB-DT-QTR-END has only one record.

II file which contains the field AV-DT-CLM-PRCH has many records.

And the condition is AV-DT-CLM-PRCH should be within DB-DT-QTR-BEGIN and DB-DT-QTR-END.

Regards
R KARTHIK
Back to top
View user's profile Send private message
Arun Raj

Moderator


Joined: 17 Oct 2006
Posts: 2158
Location: @my desk

PostPosted: Wed Nov 19, 2008 8:38 pm    Post subject:
Reply with quote

Karthik,

You can use the below Syncsort job to achieve this. I have assumed the Century window 1950-2049. You can modify it as per your needs.
Code:
//STEP01  EXEC PGM=SORT                                           
//SYSOUT    DD SYSOUT=*                                           
//SORTOUT   DD DSN=&&C1,DISP=(MOD,PASS)                           
//SORTIN    DD DSN=  Date file---FB/3200                     
//SYSIN     DD *                                                 
 OPTION COPY                                                     
 INREC IFTHEN=(WHEN=INIT,BUILD=(X,27,3,X,30,3)),                 
       IFTHEN=(WHEN=(2,1,CH,GT,X'49'),OVERLAY=(1:X'00'),HIT=NEXT),
       IFTHEN=(WHEN=(2,1,CH,LE,X'49'),OVERLAY=(1:X'01'),HIT=NEXT),
       IFTHEN=(WHEN=(6,1,CH,GT,X'49'),OVERLAY=(5:X'00'),HIT=NEXT),
       IFTHEN=(WHEN=(6,1,CH,LE,X'49'),OVERLAY=(5:X'01'),HIT=NEXT)
 OUTFIL BUILD=(C'BEG,',1,4,DT1,80:X,/,                           
               C'END,',5,4,DT1,80:X)                             
//STEP02  EXEC PGM=SORT,PARM='CENTWIN=1950'                       
//SYSOUT    DD SYSOUT=*                                           
//SYMNAMES  DD DSN=&&C1,DISP=(OLD,PASS)                           
//SORTIN    DD DSN=  Input file  ---FB/200                         
//SORTOUT   DD DSN=  Output file ---FB/200                                       
//SYSIN     DD *                                                 
 OPTION COPY                                                     
 INREC OVERLAY=(201:125,2,Y2P,126,2,PD0,M11,127,2,PD0,M11)       
 OUTFIL INCLUDE=(201,8,ZD,GE,BEG,AND,201,8,ZD,LE,END),BUILD=(1,200)
Back to top
View user's profile Send private message
karthikr44

Active User


Joined: 25 Aug 2007
Posts: 235
Location: Chennai

PostPosted: Thu Nov 20, 2008 11:45 am    Post subject: Reply to: How to achieve this using SYNCSORT?
Reply with quote

Hi Arun,

Thnx for ur solution. But i am getting SOC7 abend.

I/p data:

Code:

  DB DT 
QTR BEGIN
P 3     
27-------
X'274F08'
240     
7F8     


DUMP:

    ADDRESS 00000000 LENGTH 00000000 (DECIMAL ) INVALID LENGTH
    JOB: JCLSORT STEP: STEP01 PROGRAM: QKQMAIN
    CAPD112W SYMBOLIC INFORMATION NOT FOUND FOR PROGRAM "QKQMAIN ".

    ABENDING INSTRUCTION
    F871 F0E2 F0EC ZAP ZERO AND ADD

    OPERAND: R15!+E2
    VALUE: 0000000000000000 <-- NOT NUMERIC

    OPERAND: R15!+EC
    VALUE: 4F08 <-- NOT NUMERIC

    INTERRUPT OCCURRED AT ADDRESS 80023326

    ENTRY POINT ADDRESS IS 00007130 AT OFFSET +000000 IN PROGRAM QKQMAIN



And one small update, the first file LRECL is 3208 and not 3200. I think this does not produce the S0C7 abend.

Please suggest me how to solve this abend,
Thanks
R KARTHIK
Back to top
View user's profile Send private message
Arun Raj

Moderator


Joined: 17 Oct 2006
Posts: 2158
Location: @my desk

PostPosted: Thu Nov 20, 2008 12:26 pm    Post subject:
Reply with quote

Karthik,

The data you have in your input file does n't seem to be a valid COMP-3 data. Correct the data and try again.
Back to top
View user's profile Send private message
karthikr44

Active User


Joined: 25 Aug 2007
Posts: 235
Location: Chennai

PostPosted: Thu Nov 20, 2008 12:38 pm    Post subject: Reply to: How to achieve this using SYNCSORT?
Reply with quote

HI,

That file I is production file. It wont be wrong. Also i tried with many files and all went to S0C7 abend.

Thanks
R KARTHIK
Back to top
View user's profile Send private message
Arun Raj

Moderator


Joined: 17 Oct 2006
Posts: 2158
Location: @my desk

PostPosted: Thu Nov 20, 2008 3:00 pm    Post subject:
Reply with quote

Quote:
That file I is production file. It wont be wrong

I m not saying that your production file is wrong. The way you interpret might be wrong. A packed decimal field will always store the sign in the last half-byte. And your 3 byte packed date looks like this which is not a valid COMP-3 field. You need to be clear on what data are you processing with.
Code:
  DB DT
QTR BEGIN
P 3     
27-------
X'274F08'
240     
7F8
Back to top
View user's profile Send private message
dick scherrer

Site Director


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

PostPosted: Fri Nov 21, 2008 1:32 am    Post subject:
Reply with quote

Hello,

Open your file in view/browse (not file master) and scroll right to this data position (also use COLS to show the positions in the record). Post this bit of data in hex (HEX ON, copy/paste to the reply you will be creating, and use the "Code" tag to make the data more readable as well as preserve alignment) - including the COL info. Use the Preview to see your reply as it will appear to the forum and when you are satisfied with how your post appears, Submit.

As has been mentioned, the data posted is not valid packed-decimal (comp-3) data.

The following is similar to how your data should be posted. The 2 numbers are valid comp-3 values for 08215 and 21508. I used a C sign, but an F sign could be valid as well.

Code:
--3----+----4-
                         
--------------
    *    &ð   
44025444258444
0081C00010C000


It sounds like the displacement used in the sort control is not where the packed-decimal data is located.
Back to top
View user's profile Send private message
Arun Raj

Moderator


Joined: 17 Oct 2006
Posts: 2158
Location: @my desk

PostPosted: Fri Nov 21, 2008 10:31 am    Post subject:
Reply with quote

Quote:
It sounds like the displacement used in the sort control is not where the packed-decimal data is located.

Karthik,

I had given the control statements based on positions and offset mentioned by you which might be wrong as they dont have valid COMP-3 data. Check your files and find out the correct field positions.
Back to top
View user's profile Send private message
karthikr44

Active User


Joined: 25 Aug 2007
Posts: 235
Location: Chennai

PostPosted: Fri Nov 21, 2008 12:01 pm    Post subject: Reply to: How to achieve this using SYNCSORT?
Reply with quote

Hi,

Thnx for all ur replies. Here i am providing the required info.

Code:

2----+----3
**********
9P3  |  | 
FDF02402402
97387F87F84
-----------


Here,
DB-DT-QTR-BEGIN - (24,3)
DB-DT-QTR-END - (27,3)

In copybook they defined this field as,
02 DB-DT-QTR-BEGIN PIC 9(5) COMP-3.
02 DB-DT-QTR-END PIC 9(5) COMP-3.
And it is in the format YYDDD.

Regards
R KARTHIK
Back to top
View user's profile Send private message
Arun Raj

Moderator


Joined: 17 Oct 2006
Posts: 2158
Location: @my desk

PostPosted: Fri Nov 21, 2008 12:55 pm    Post subject:
Reply with quote

Quote:
Here,
DB-DT-QTR-BEGIN - (24,3)
DB-DT-QTR-END - (27,3)

As per the data you posted, the positions seem to be DB-DT-QTR-BEGIN - (23,3) and DB-DT-QTR-END - (26,3) . icon_rolleyes.gif
Back to top
View user's profile Send private message
karthikr44

Active User


Joined: 25 Aug 2007
Posts: 235
Location: Chennai

PostPosted: Mon Nov 24, 2008 6:09 pm    Post subject: Reply to: How to achieve this using SYNCSORT?
Reply with quote

HI arcvns,

U pointed out correctly. Now i am not getting S0C7 abend.

Thnx..

But one more help, will u please explain the following lines in short,


Code:
OPTION COPY                                                     
 INREC IFTHEN=(WHEN=INIT,BUILD=(X,27,3,X,30,3)),                 
       IFTHEN=(WHEN=(2,1,CH,GT,X'49'),OVERLAY=(1:X'00'),HIT=NEXT),
       IFTHEN=(WHEN=(2,1,CH,LE,X'49'),OVERLAY=(1:X'01'),HIT=NEXT),
       IFTHEN=(WHEN=(6,1,CH,GT,X'49'),OVERLAY=(5:X'00'),HIT=NEXT),
       IFTHEN=(WHEN=(6,1,CH,LE,X'49'),OVERLAY=(5:X'01'),HIT=NEXT)

Thanks in advance,
R KARTHIK
Back to top
View user's profile Send private message
Anuj Dhawan

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Tue Nov 25, 2008 3:53 am    Post subject:
Reply with quote

Hi,

Hopefully you are available with the manuals, if not request Alissa to send the latest documentation to you, she is SyncSort representative & Moderator of JCL part on this site.

1. OPTION COPY: Causes XXxxSORT to copy a SORTIN data set or inserted records to the output data sets. ( unless all records are disposed of by an E35 exit).

2. IFTHEN clauses: Reformat different records in different ways by specifying how build or overlay items are applied to records that meet given criteria. IFTHEN clauses let you use sophisticated conditional logic to choose how different record types are reformatted.

2. BUILD: Reformat each record by specifying all of its items one by one. Build gives you complete control over the items you want in your reformatted records and the order in which they appear. You can delete, rearrange and insert fields and constants.

3. OVERLAY: Reformat each record by specifying just the items that overlay specific columns. Overlay lets you change specific existing columns without affecting the entire record.

OVERLAY is used to overlay specific bytes - you can't use it to insert characters before other fields. For that you must use BUILD which builds the record item by item.

4. If you have multiple fields to inspect in the same record, you must use the HIT=NEXT option.
Back to top
View user's profile Send private message
karthikr44

Active User


Joined: 25 Aug 2007
Posts: 235
Location: Chennai

PostPosted: Tue Nov 25, 2008 1:10 pm    Post subject: Reply to: How to achieve this using SYNCSORT?
Reply with quote

HI Anuj,

Thnx for ur reply and explaining statements.

I did not mentioned clearly in previous post. Actually i want what logic
he try to implement using that lines.

Thanks
R KARTHIK
Back to top
View user's profile Send private message
Arun Raj

Moderator


Joined: 17 Oct 2006
Posts: 2158
Location: @my desk

PostPosted: Tue Nov 25, 2008 1:34 pm    Post subject:
Reply with quote

Quote:
Now i am not getting S0C7 abend.
Karthik,

Good that you're not getting S0C7. Is it giving the expected output? icon_smile.gif. So what was the issue- "correct production file" or the layout?
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 -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts syncsort: copy lines after the keyword shreya19 SYNCSORT 5 Fri Dec 02, 2016 9:47 am
No new posts Syncsort - Hard coded Value in output PORYES SYNCSORT 1 Thu Nov 03, 2016 9:23 am
No new posts Syncsort - NULL in Integer field chec... nartcr SYNCSORT 4 Thu Oct 06, 2016 6:47 am
No new posts ICETOOL/SYNCSORT - SYSPRINT output nartcr DFSORT/ICETOOL 17 Wed Oct 05, 2016 10:46 pm
No new posts Syncsort version supporting FINDREP c... juares castro SYNCSORT 9 Tue Aug 09, 2016 6:54 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us