View previous topic :: View next topic
|
Author |
Message |
jctgf Currently Banned Active User
Joined: 04 Nov 2006 Posts: 109
|
|
|
|
hi there,
i'm posting this question because nobody in the company i work for was able to help.
i'm running a cobol cics program that wants to start a batch execution.
i have a batch routine on control-m that will be forced when a given command gets to the operator console (so i was told).
i write the command below in a tdqueue and somehow it gets to the operator console and forces the execution of the routine installed in control-m.
the problem i'm having is that the command can't be properly interpreted by the operator console. it seems to be too long.
it doesn't fit in one line. i wonder how to continue the command in a second line. i've already tried the 'x' character in position 72, with no success.
the error message i'm getting is HASP650.
Code: |
/HASP120 INTRDR /VS,'S CONTFRC,SYS=PAJ,JOB=PAJE700,S1=0000000123000110
4298769,S2=1234 FROM STC56635 CIC0A18
/HASP650 'S CONTFRC INVALID OPERAND OR MISPLACED OPERAND |
this is a piece of my cobol cics program:
Code: |
MOVE ' ' TO W-STRING.
STRING
'/*/VS,'
QUOTE
'S CONTFRC,'
'SYS=PAJ,'
'JOB='
PAJSNRJE-JOBNAME(1:PAJSNRJE-JOBNAME-LEN)
','
'S1='
PAJSNRJE-S1(1:23)
',S2=1234'
QUOTE
DELIMITED BY SIZE INTO W-STRING.
EXEC CICS
SET TDQUEUE ('NRJE') OPEN
END-EXEC.
EXEC CICS
WRITEQ TD QUEUE ('NRJE')
FROM (W-STRING)
LENGTH (80)
END-EXEC.
EXEC CICS
SET TDQUEUE ('NRJE') CLOSED
END-EXEC. |
thanks a lot for any help. |
|
Back to top |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011 Posts: 7309 Location: Inside the Matrix
|
|
|
|
You are only losing one character, the closing quote. To "get it going" what about trying with a shorter Jobname? |
|
Back to top |
|
|
jctgf Currently Banned Active User
Joined: 04 Nov 2006 Posts: 109
|
|
|
|
hey,
thanks a lot.
it isn't the closing quote, unfortunately.
the problem is that the command is being truncated at that length and nothing after that point is considered.
if s2 was 's2=123' the command would work, but i need more characteres. i need s1 and s2 bigger so i can send more information to the batch routine.
do you know which kind of software/feature it is? this is not cics, vsam, db2, jcl. do you know what is the name of this product? if i know it, maybe i can find a manual.
thanks again. |
|
Back to top |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011 Posts: 7309 Location: Inside the Matrix
|
|
|
|
OK, I must have missed something. The only thing from W-STRING that is not on the first message is the closing quote. I don't know if you get the other two bits "for nothing" but necessary.
NRJE would be Network Remote Job Entry. The HASP message dates back, I believe, to the forerunner to JES (though which JES, I don't know).
There are people reading this who know far more than I about these aspects. Sorry. |
|
Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008 Posts: 8696 Location: Dubuque, Iowa, USA
|
|
|
|
JES2 uses HASP messages.
JES3 uses IAT messages.
jctgf, have you talked to BMC for their input? They probably already know the answer since they are the vendor for Control-M. |
|
Back to top |
|
|
jctgf Currently Banned Active User
Joined: 04 Nov 2006 Posts: 109
|
|
|
|
hi robert,
everything is difficult in the company that i work for.
it would be easier to talk to barack obama than getting good information here.
thanks. |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
Code: |
/HASP120 INTRDR /VS,'S CONTFRC,SYS=PAJ,JOB=PAJE700 .etc.etc. |
This uses the Internal Reader - which i believe is limited to 80 (just like the old card readers). |
|
Back to top |
|
|
|