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
 
rexx code to create a ps file

 
Post new topic   This topic is locked: you cannot edit posts or make replies.    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
Bharath Vikraman

New User


Joined: 06 Aug 2017
Posts: 9
Location: India

PostPosted: Mon Aug 07, 2017 10:30 am    Post subject: rexx code to create a ps file
Reply with quote

Can any one give a rexx code to create a ps file by getting the LRECL from user and the input file name should be saved in a format with current date and time?

For eg -- aaaa.t(date).h(time)
Back to top
View user's profile Send private message

steve-myers

Active Member


Joined: 30 Nov 2013
Posts: 672
Location: The Universe

PostPosted: Mon Aug 07, 2017 10:49 am    Post subject:
Reply with quote

You need lots more than the LRECL: RECFM and an initial data set size. for starters.

In any event, you will learn much more by using the TSO/E REXX Reference and TSO/E REXX User's Guide manuals for your z/OS release and doing it yourself.

Your other option is to hire a consultant, at the appropriate compensation, of course.
Back to top
View user's profile Send private message
Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2115
Location: Silicon Valley

PostPosted: Mon Aug 07, 2017 11:08 pm    Post subject: Reply to: rexx code to create a ps file
Reply with quote

Study the rexx manual. Learn how to:
1. user PARSE ARG to get user specified parameter (the LRECL)
2. use Address TSO to issue the ALLOCATE command
3. use DATE() built in function to get the current. You probably want the Julian date.
4. Use TIME() built in function to get the current time. You will need to strip out the ':' characters. So also learn the TRANSLATE() function.
5. concatenate the data and time with fixed portions of the name.

I am not sure of your convention, re: t(date) and h(time)
Normally, I would expect to see D for date and T for time:
Code:
PEDRO.D17219.T103701
Back to top
View user's profile Send private message
Bharath Vikraman

New User


Joined: 06 Aug 2017
Posts: 9
Location: India

PostPosted: Tue Aug 08, 2017 3:35 pm    Post subject: Re: Reply to: rexx code to create a ps file
Reply with quote

Pedro wrote:
Study the rexx manual. Learn how to:
1. user PARSE ARG to get user specified parameter (the LRECL)
2. use Address TSO to issue the ALLOCATE command
3. use DATE() built in function to get the current. You probably want the Julian date.
4. Use TIME() built in function to get the current time. You will need to strip out the ':' characters. So also learn the TRANSLATE() function.
5. concatenate the data and time with fixed portions of the name.

I am not sure of your convention, re: t(date) and h(time)
Normally, I would expect to see D for date and T for time:
Code:
PEDRO.D17219.T103701


thanks for the information Pedro.
I have created it. Now i want have a new TSO command like example "TSO ps 80" which means it will create a ps file with LRECL 80.
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2110
Location: UK

PostPosted: Tue Aug 08, 2017 3:59 pm    Post subject:
Reply with quote

Well, go and write it. This is the experts forum so you should know how to do such a simple task. We help solve problems, not write/give program specifications. Locked.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   This topic is locked: you cannot edit posts or make replies.    IBMMAINFRAMES.com Support Forums -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts COBOL file declaration jithinraghavan COBOL Programming 1 Fri Nov 16, 2018 10:54 pm
No new posts Will this code extract 1 byte from fi... pkmurali CLIST & REXX 8 Sat Nov 10, 2018 11:13 pm
No new posts Error reading file in REXX module ashek15 CLIST & REXX 3 Wed Oct 24, 2018 4:50 am
No new posts Convert VB file to FB plus special fo... cz016m SYNCSORT 15 Fri Oct 19, 2018 7:26 pm
No new posts Picking up the latest PS file pema_yozer JCL & VSAM 8 Thu Oct 11, 2018 12:26 pm

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