Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
problem with command in operator console

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> All Other Mainframe Topics
View previous topic :: :: View next topic  
Author Message
jctgf
Currently Banned

Active User


Joined: 04 Nov 2006
Posts: 109

PostPosted: Thu Jun 09, 2011 6:29 pm    Post subject: problem with command in operator console
Reply with quote

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
View user's profile Send private message

Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7315

PostPosted: Thu Jun 09, 2011 6:52 pm    Post subject:
Reply with quote

You are only losing one character, the closing quote. To "get it going" what about trying with a shorter Jobname?
Back to top
View user's profile Send private message
jctgf
Currently Banned

Active User


Joined: 04 Nov 2006
Posts: 109

PostPosted: Thu Jun 09, 2011 7:16 pm    Post subject:
Reply with quote

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
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7315

PostPosted: Thu Jun 09, 2011 7:45 pm    Post subject:
Reply with quote

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
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8165
Location: East Dubuque, Illinois, USA

PostPosted: Thu Jun 09, 2011 8:01 pm    Post subject:
Reply with quote

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
View user's profile Send private message
jctgf
Currently Banned

Active User


Joined: 04 Nov 2006
Posts: 109

PostPosted: Thu Jun 09, 2011 8:17 pm    Post subject:
Reply with quote

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
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Thu Jun 09, 2011 8:34 pm    Post subject:
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> All Other Mainframe Topics All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts MQ command in option 6 of ISPF! Vignesh Sid All Other Mainframe Topics 3 Tue Sep 26, 2017 6:01 pm
No new posts LMINIT problem - not finding DDNAME Danielle.Filteau CLIST & REXX 7 Tue Sep 19, 2017 9:57 pm
No new posts How to change a string containing the... chong.zhou TSO/ISPF 6 Tue Aug 29, 2017 4:54 pm
No new posts Failure after DIR command Hank Watson All Other Mainframe Topics 2 Tue Aug 29, 2017 3:14 am
No new posts Command to find TMEMBER name for a TPIPE Siva NKK Kothamasu IMS DB/DC 0 Wed Aug 16, 2017 6:08 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us