MVSFORUMS.com

[stewchicken]

hello

my cobol program need 3 numerics via accept.
but i need to use jcl to call this cobol

therefore i try to pass those 3 numerics via SYSIN from JCL to cobol
but it failed , below is how i did it. is there any way to do some?

//SYSIN DD *
13068
/*
//SYSIN DD*
0.0045
/*
//SYSIN DD*
60
/*

Thanks and Rgds

[Nic Clouston]

Your DDNames must be unique within a step - I think in the example you show, if the interpreter did not fail it then the last one would be the one that is used.

Why not try:

//SYSIN DD *
13068
0.0045
60

Otherwise just treat SYSIN as an ordinary file and read the 3 values.
_________________
Utility and Program control cards are NOT, repeat NOT, JCL.

[stewchicken]

Hey Nic

I tried it already. but by this way will pass three values to only one accept right?
i had 3 accepts in my cobol program.

[Nic Clouston]

I do not know - you could try it and see what happens - or you can wait until I write a little cobol program and figure out how to replicate your query on a PC. My thought is that IF you can ACCEPT from a file (and SYSIN is just another file) then it would act like a read and after each ACCEPT it would advance the read position but unless I read the manual and/or write a little test I could not be sure.
_________________
Utility and Program control cards are NOT, repeat NOT, JCL.

[Terry_Heinze]

stewchicken,
I think the Language Reference Manual (see ACCEPT) has the answer.
_________________
....Terry

[stewchicken]

hey,

but seems the vaule passed by SYSIN will be automatically padded if it is shorter than
variable defined in COBOL.

how do I solve this problem?

[kolusu]

stewchicken,

How did you define the receiving variable in the program?

[Nic Clouston]

The manual seems to say that ACCEPT will, in one invocation, read the entire file, conatenating the records together into the receiving field. In this case you have 3 * 80 byte records (SYSIN DD * records are 80 bytes) so you will need a 240 byte receiving field. How you extract your data from there is standard COBOL - you could REDEFINE as 3 x 80 byte records and extract the required number of byytes from column 1 for each record.
_________________
Utility and Program control cards are NOT, repeat NOT, JCL.

[dbzTHEdinosauer]

At this point one would think that the ACCEPT verb is not the proper verb to use.
_________________
Dick Brenholtz
American living in Varel, Germany

[jsharon1248]

[callanand]

I too would wonder why 3 ACCEPT is required. If there are 3 numerics to be picked up from SYSIn then define a working storage like this
ws-sysin.
ws-num1 pic x(80).
ws-num2 pic x(80).
ws-num3 pic x(80).
and the jcl like this
//sysin dd *
1234
5678
9810
/*

once you use accept ws-sysin in your cobol pgm, you can use standard cobol features to get the numeric part and remove spaces.

[slade]

Hi Stew,

I guess you're long gone, but for posterity's sake and for those future searchers w/a similar ques:

Each line in your SYSIN will require an ACCEPT stmt in your pgm unless you want to string them left to right on the same line (not a good idea, unless you want to conserve on ACCEPTs).

While your SYSIN values are numbers they won't be treated as "numerics" by ACCEPT, in spite of a numeric PIC in the pgm. Your "60" will become "60bbb" in a PIC 9(05) in your pgm, giving you an 0C7 when you try to arith it.

One approach is to us the FUNCTION NUMVAL after the ACCEPT to create a true numeric image of the SYSIN input.
_________________
Regards, Jack.

"A problem well stated is a problem half solved" -- Charles F. Kettering