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
 

 

Display statements in sort...

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

New User


Joined: 27 Feb 2006
Posts: 7

PostPosted: Wed May 24, 2006 11:49 am    Post subject: Display statements in sort...
Reply with quote

I want to convert the below eazytrieve to a simple jcl(sort,iceman...) with instream stmts using an IBM utility..

GET GCSTIN
IF REC EQ '1'
RETURN-CODE = 4
DISPLAY '*******************************************'
DISPLAY '***** UPLOADING IS SUCCESSFUL ******'
DISPLAY '*******************************************'
ELSE
RETURN-CODE = 12
DISPLAY '*******************************************'
DISPLAY '***** UPLOADING IS NOT SUCCESSFUL ******'
DISPLAY '***** PLEASE INFORM GC TEAM ******'
DISPLAY '*******************************************'
END-IF


can i achieve this?
Back to top
View user's profile Send private message

rajandhla

Active User


Joined: 18 Oct 2005
Posts: 182
Location: Luton UK

PostPosted: Wed May 24, 2006 4:10 pm    Post subject:
Reply with quote

Hi,

As if i look i can understand but i don't have idea on easytrieve ,

If you could be clear for what you are looking...

input , output, on which conditions please sepcify

regards
jai
Back to top
View user's profile Send private message
napoleon_cse

New User


Joined: 27 Feb 2006
Posts: 7

PostPosted: Wed May 24, 2006 5:50 pm    Post subject: Re: Display statements in sort...
Reply with quote

Sorry abt that...i'll put it this way...

Is there anyways we can code display statements under sysin dd *, using any utility?
Back to top
View user's profile Send private message
rajandhla

Active User


Joined: 18 Oct 2005
Posts: 182
Location: Luton UK

PostPosted: Wed May 24, 2006 7:04 pm    Post subject:
Reply with quote

Hi,

What i understood is you want to display the lines mentioned above when the rc=4 and rc=12.

What i feel is you to maintain two sequential files one contains the display lines for rc=4 and the other file contains lines for the rc=12.

Check the condition return codes.
if rc=4 use IEBGENER utility to copy the lines form the file for rc=4 to spool and the same for rc=12

hope it works else wait for other chaps suggestions..

regards
jai
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Wed May 24, 2006 8:56 pm    Post subject:
Reply with quote

I don't know easytrieve so please explain what you're trying to do.

Code:

GET GCSTIN


What does this do?

Code:

IF REC EQ '1'


When is REC set to 1?
When is REC not set to 1?
Back to top
View user's profile Send private message
napoleon_cse

New User


Joined: 27 Feb 2006
Posts: 7

PostPosted: Thu May 25, 2006 11:14 am    Post subject: Re: Display statements in sort...
Reply with quote

'GET GCSTIN' is equaivalent to

'READ GCSTIN' sequentially where GCSTIN is the file name.

'REC' is variable defined under FD section of GCSTIN file.

If a record has the value of '1' for the variable 'REC',,then it will be set...
Back to top
View user's profile Send private message
sril.krishy

Active User


Joined: 30 Jul 2005
Posts: 182
Location: hyderabad

PostPosted: Mon May 29, 2006 6:38 pm    Post subject:
Reply with quote

Hi,
Please put the JCL that is used for the Ezt of your program.It will give us an Idea how to get the results thru sort.

I beleive that GCSTIN is the SYSIN card ,you are reading.

Thanks
Krishy
Back to top
View user's profile Send private message
IQofaGerbil

Active User


Joined: 05 May 2006
Posts: 183
Location: Scotland

PostPosted: Mon May 29, 2006 9:24 pm    Post subject: Re: Display statements in sort...
Reply with quote

Is this another way of setting out your requirements?

Read file with DD name GCSTIN
If a field (we will need he position!) on the 1st/only? record (you do not specify if the file could be empty or has more than one record) has the value of '1'
then
set return-code to 4
and display the message you describe (ie write to a DD with an appropriate SYSOUT=)
else
set return-code to 12
and display the message you describe
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 Count the length of the record & ... sreekusr DFSORT/ICETOOL 4 Thu Mar 23, 2017 7:52 pm
No new posts Innovations in Your Mainframe Sort Arun Raj PC Guides & IT News 4 Wed Mar 15, 2017 10:38 pm
No new posts SORT VSAM file with each field one by... maxsubrat DFSORT/ICETOOL 6 Tue Mar 14, 2017 1:07 pm
No new posts Display FTP Session Count within TSO Yolanda Harvey TSO/ISPF 3 Fri Mar 10, 2017 10:31 pm
No new posts SORT requirement sjiraga COBOL Programming 6 Thu Mar 09, 2017 9:11 pm


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