|
View previous topic :: View next topic
|
| Author |
Message |
MChandrasekar
New User
.jpg)
Joined: 21 May 2007
Posts: 7
Location: Chennai
|
|
|
|
Hi..,
Anyone of you Could you please send me one Run JCL to get the input data from the user during time instead passing the input values through SYSIN from the run JCL..
I am using IBM390 MVS z/os.  |
|
| Back to top |
|
 |
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8796
Location: Welsh Wales
|
|
|
|
| Nope, can not be done |
|
| Back to top |
|
|
priyadutta1984
New User
Joined: 02 Apr 2007
Posts: 11
Location: chennai
|
|
|
|
i dont think so its possible.make it ur query little bit clear.
u can pass the input thru parm and sysin card to the program.
cheers
priya |
|
| Back to top |
|
|
murmohk1
Senior Member
.jpg)
Joined: 29 Jun 2006
Posts: 1436
Location: Bangalore,India
|
|
|
|
Chandrasekhar,
| Quote: |
| Anyone of you Could you please send me one Run JCL to get the input data from the user during time instead passing the input values through SYSIN from the run JCL.. |
Does this mean, your program accepts the value from the terminal? |
|
| Back to top |
|
|
MChandrasekar
New User
Joined: 21 May 2007
Posts: 7
Location: Chennai
|
|
|
|
yes..,
My program has to ACCEPT the input value from the user in mainframe terminal. |
|
| Back to top |
|
|
murmohk1
Senior Member
Joined: 29 Jun 2006
Posts: 1436
Location: Bangalore,India
|
|
|
|
Chandrasekar,
Use ACCEPT var-name FROM CONSOLE in COBOL. Theortically it waits for user input from console. But I have not tried this before. Try and let us know the result. |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10888
Location: italy
|
|
|
|
It works, but there is a 99.99 % chance that the operator will cancel the job
regards
P.S.
console input is not considered a good interface/programming standard |
|
| Back to top |
|
|
MChandrasekar
New User
Joined: 21 May 2007
Posts: 7
Location: Chennai
|
|
|
|
Use ACCEPT var-name FROM CONSOLE in COBOL.
this is not working. |
|
| Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA
|
|
|
|
That's a valid COBOL statement.
What specifically do you mean by "this is not working."?
I did a quick test with this program:
| Code: |
CBL ARITH(EXTEND)
CBL NOADV,NODYN,NONAME,NONUMBER,QUOTE,SEQ,XREF,VBREF,DUMP,LIST
CBL TRUNC(OPT)
IDENTIFICATION DIVISION.
PROGRAM-ID. XXXXXXXX.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 CONSOLE-DATA PIC X(80).
PROCEDURE DIVISION.
ACCEPT CONSOLE-DATA FROM CONSOLE.
DISPLAY CONSOLE-DATA.
MOVE 0 TO RETURN-CODE.
STOP RUN.
|
runtime output:
| Code: |
08.12.31 JOB22654 ---- WEDNESDAY, 30 MAY 2007 ----
08.12.31 JOB22654 IRR010I USERID SUPERK IS ASSIGNED TO THIS JOB.
08.12.32 JOB22654 ICH70001I SUPERK LAST ACCESS AT 08:08:02 ON WEDNESDAY, MAY
08.12.32 JOB22654 $HASP373 SUPERK# STARTED - INIT 68 - CLASS T - SYS SYSB
08.12.32 JOB22654 IEF403I SUPERK# - STARTED - TIME=08.12.32
08.12.32 JOB22654 @12 IGZ0000I AWAITING REPLY
08.12.55 JOB22654 R 12,TEST
08.12.55 JOB22654 IEF404I SUPERK# - ENDED - TIME=08.12.55
08.12.55 JOB22654 $HASP395 SUPERK# ENDED
|
SYSOUT Output:
|
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8796
Location: Welsh Wales
|
|
|
|
Isn't this accepting input from the master console rather than the users terminal.
If so, doesn't this mean that the operations people will need to supply the response rather than the user ?
Unless of course it is carte blanche for all users to reply to system messages on the system .............................  |
|
| Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA
|
|
|
|
| expat wrote: |
| Isn't this accepting input from the master console rather than the users terminal. |
Yes, of course.
| expat wrote: |
| If so, doesn't this mean that the operations people will need to supply the response rather than the user? |
Not necessarily.
| expat wrote: |
| Unless of course it is carte blanche for all users to reply to system messages on the system |
It's allowed in our shop. |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix
|
|
|
|
Hello,
For this
| Quote: |
Anyone of you Could you please send me one Run JCL to get the input data from the user during time instead passing the input values through SYSIN from the run JCL..
|
i'd suggest providing the user(s) with a CICS transaction that would read the value from the terminal, edit it as appropriate, and then submit JCL that included the user-supplied input through the internal reader.
Somewhere between many and most data center operations do not allow console interaction with application code.
| Quote: |
Use ACCEPT var-name FROM CONSOLE in COBOL.
this is not working.
|
what does "not working" mean? Even if it works, how is the interface between the user who is running the job and the console operator to be handled? I do not recall any site that allows business users to reply to operator console messages - system support folks yes, but business users, no  Seems like that would be extremely dangerous. |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8796
Location: Welsh Wales
|
|
|
|
| Quote: |
| It's allowed in our shop. |
What, absolutely anyone can respond to console messages 
It only takes one inquisitive person to reply to the wrong message, and maybe the production system drops. Once had a programmer do a $P command to see what it does ...................... needless to say he found out, just before being hoofed out. |
|
| Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA
|
|
|
|
| Reply to a WTOR, yes. Issue an MVS or JES command, limited and to only certain commands based on roles. |
|
| Back to top |
|
|
|
|
