IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

How to force PULL to read user-input instead of Stack


IBM Mainframe Forums -> CLIST & REXX
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Andi1982

New User


Joined: 27 Mar 2008
Posts: 42
Location: Karlsruhe / Germany

PostPosted: Thu May 09, 2019 6:27 pm
Reply with quote

Hey,

I have a REXX that reads LISTFILE into program stack. So there are 1000 items in the stack and I am iterating and pulling from it until it is empty. But now i have some items where I need user feedback. So I tried to do

Code:
Say 'You need to keep this file?' filename
pull answer
...


But instead of reading user Input from Terminal it takes the next item from the program stack. How can I force to read user Input from terminal even that there are items in program stack?

Best regards
Andi[/code]
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10760
Location: italy

PostPosted: Thu May 09, 2019 6:32 pm
Reply with quote

just read the stack into a stem .
Back to top
View user's profile Send private message
Andi1982

New User


Joined: 27 Mar 2008
Posts: 42
Location: Karlsruhe / Germany

PostPosted: Thu May 09, 2019 6:33 pm
Reply with quote

You mean i should read all stack into stem and then push it back after i got my input?
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10760
Location: italy

PostPosted: Thu May 09, 2019 7:00 pm
Reply with quote

why would You want to push it back ...

just process the stem
Back to top
View user's profile Send private message
Andi1982

New User


Joined: 27 Mar 2008
Posts: 42
Location: Karlsruhe / Germany

PostPosted: Thu May 09, 2019 7:01 pm
Reply with quote

icon_rolleyes.gif you are right ... sometimes it can be that easy...

thank you a lot for this hint!
Back to top
View user's profile Send private message
sergeyken
Warnings : 2

Senior Member


Joined: 29 Apr 2008
Posts: 1008

PostPosted: Thu May 09, 2019 10:23 pm
Reply with quote

Optionally manipulate with stack levels:

Code:
"NEWSTACK"    /* optional; program stack for input records */
"EXECIO * DISKR INPUTDD (FINIS"
Do iRec = 1 by 1 While Queued() > 0
   [Parse] Pull NewRecord
   If NeedToAskUser Then Do
      "NEWSTACK"    /* new program stack to isolate user's answer */
      Say 'You need to keep this file?' filename
      pull answer
      "DELSTACK"   /* return to previous stack level, to continue with data */
   End
End iRec
"DELSTACK"   /* optional; clean-up after reading file */
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CLIST & REXX

 


Similar Topics
Topic Forum Replies
No new posts How to read unpacked field created in... DFSORT/ICETOOL 11
No new posts JCL (SET) variables in input stream data JCL & VSAM 0
This topic is locked: you cannot edit posts or make replies. I HAVE 2 INPUT FILES WITH SAME LAYOUT... COBOL Programming 6
No new posts Alter User LOGON Script Parameters CLIST & REXX 11
No new posts Revoke on DB2 to remove an user DB2 4
Search our Forums:

Back to Top