View previous topic :: View next topic
|
Author |
Message |
napoleon_cse
New User
Joined: 27 Feb 2006 Posts: 7
|
|
|
|
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 |
|
|
rajandhla
Active User
Joined: 18 Oct 2005 Posts: 182 Location: Luton UK
|
|
|
|
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 |
|
|
napoleon_cse
New User
Joined: 27 Feb 2006 Posts: 7
|
|
|
|
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 |
|
|
rajandhla
Active User
Joined: 18 Oct 2005 Posts: 182 Location: Luton UK
|
|
|
|
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 |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
I don't know easytrieve so please explain what you're trying to do.
What does this do?
When is REC set to 1?
When is REC not set to 1? |
|
Back to top |
|
|
napoleon_cse
New User
Joined: 27 Feb 2006 Posts: 7
|
|
|
|
'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 |
|
|
sril.krishy
Active User
Joined: 30 Jul 2005 Posts: 183 Location: hyderabad
|
|
|
|
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 |
|
|
IQofaGerbil
Active User
Joined: 05 May 2006 Posts: 183 Location: Scotland
|
|
|
|
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 |
|
|
|