IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search Log in to check your private messages Log in
 

Add the name in the PS file and create the file dynamically


 
IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
dharmaraok

New User


Joined: 10 Mar 2011
Posts: 45
Location: india

PostPosted: Wed Apr 01, 2020 10:43 am
Reply with quote

I have an input file and it contains only country code in the file.

Input file Data:-
IN

I need to create a PS file with Country Code name.

output file :-
TESTPRD.IN.DHARMA.T123#1.CBAI1234


// UNIT=SYSDA,

// DISP=(NEW,CATLG,DELETE),
// DCB=(RECFM=FB,LRECL=800,DSORG=PS),
// SPACE=(1,(50,50),RLSE)

If the file contains Country code as "SR" then output file should create as

output file :-
TESTPRD.SR.DHARMA.T123#1.CBAI1234

Could you please let me know how can it be acheived.
Back to top
View user's profile Send private message
Joerg.Findeisen

Active User


Joined: 15 Aug 2015
Posts: 350
Location: Bamberg, Germany

PostPosted: Wed Apr 01, 2020 10:49 am
Reply with quote

What have you tried so far?
Back to top
View user's profile Send private message
dharmaraok

New User


Joined: 10 Mar 2011
Posts: 45
Location: india

PostPosted: Wed Apr 01, 2020 10:54 am
Reply with quote

I have tried with Inrec build but it is not working. Could you please help me out
Back to top
View user's profile Send private message
Joerg.Findeisen

Active User


Joined: 15 Aug 2015
Posts: 350
Location: Bamberg, Germany

PostPosted: Wed Apr 01, 2020 10:57 am
Reply with quote

Show some code of what you have tried.
Back to top
View user's profile Send private message
dharmaraok

New User


Joined: 10 Mar 2011
Posts: 45
Location: india

PostPosted: Wed Apr 01, 2020 12:51 pm
Reply with quote

Ihave used the below code:

Input file:-
ATEST.INPUT.SW

data in input file:-
IN

//JS010 EXEC PGM=SORT
//SORTIN DD DSN=ATEST.INPUT.SW,DISP=SHR
//OUTDD DD DSN=&&TEMP,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(1,1),RLSE),
// UNIT=(SYSDA,30),
// DCB=(RECFM=FB,LRECL=800,BLKSIZE=0,DSORG=PS)
//*
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(100,50),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(100,50),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(100,50),RLSE)
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSDUMP DD SYSOUT=*
//*
//SYSIN DD *
SORT FIELDS=COPY
OUTREC BUILD=(1:C'A123PRD.',9,2,12:C'.SWOOSH.CBC#1.CBAIFB2B')
OUTFIL FNAMES=OUTDD,VTOF
/*
Back to top
View user's profile Send private message
Garry Carroll

Senior Member


Joined: 08 May 2006
Posts: 1097
Location: Dublin, Ireland

PostPosted: Wed Apr 01, 2020 1:49 pm
Reply with quote

You said you tried with INREC BUILD but then show:

Code:
 SORT FIELDS=COPY
 OUTREC BUILD=(1:C'A123PRD.',9,2,12:C'.SWOOSH.CBC#1.CBAIFB2B')
 OUTFIL FNAMES=OUTDD,VTOF


Your should use code tags for your example.
Your job has no //SORTOUT DD statement.
It looks like you expect output in a temporay dataset - //OUTDD - but don't tell SORT this.
You have both OUTREC and OUTFIL - only one should be used.
Constants in your BUILD control card don't match your stated requirements.
You will not find 'IN' in positions 9,2 of the input file.
This approach will not dynamically create the dataset.
Is today's date significant?

Garry
Back to top
View user's profile Send private message
dharmaraok

New User


Joined: 10 Mar 2011
Posts: 45
Location: india

PostPosted: Wed Apr 01, 2020 1:59 pm
Reply with quote

Could you please help me out with JCL with the given requirements.
Its a little bit urgent
Back to top
View user's profile Send private message
Apoorva

New User


Joined: 28 Jan 2020
Posts: 47
Location: India

PostPosted: Wed Apr 01, 2020 3:00 pm
Reply with quote

dharmaraok wrote:
Could you please help me out with JCL with the given requirements.
Its a little bit urgent


Review the below link to allocate a dataset using IDCAMS. But you need to figure out a way to create the SYSIN card, dynamically for IDCAMS, with the new datasetname.

Use [URL] BBCode for Links
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2431
Location: Hampshire, UK

PostPosted: Wed Apr 01, 2020 3:53 pm
Reply with quote

1) Use code tags when posting data, code
2) Search - this has been answered before
3) Do you want JCL or sort control statements? they are not the same.
4) If you need urgent then pay a consultant - people responding on forums do so for free, in their own time, and as and when they want - if they want to.
Back to top
View user's profile Send private message
sergeyken

Active Member


Joined: 29 Apr 2008
Posts: 876
Location: Maryland

PostPosted: Wed Apr 01, 2020 11:36 pm
Reply with quote

Garry Carroll wrote:
You have both OUTREC and OUTFIL - only one should be used.


Both can be used, easily. (Of course, when needed)
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic All times are GMT + 6 Hours
Forum Index -> DFSORT/ICETOOL
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Forum Replies
No new posts Dynamically switching terminal model TSO/ISPF 9
No new posts COBOL VS SORT Utility for file format... COBOL Programming 6
No new posts How to find which file contains my se... DFSORT/ICETOOL 6
No new posts IGZ0035S THERE WAS AN UNSUCCESSFUL OP... COBOL Programming 3
No new posts Hex Value - vb file replace old date ... DFSORT/ICETOOL 14

Back to Top