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

OPNO field mistake when inserting operation via REXX/PIF


IBM Mainframe Forums -> IBM Tools
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
autobox

New User


Joined: 19 Aug 2005
Posts: 51

PostPosted: Tue Apr 24, 2012 1:04 pm
Reply with quote

Hi All,

I drafted a REXX to run some adhoc jobs by scheduling them in an OPC application, and I referred to OPC/TWS sample EQQPIFOP to insert operations. The rexx uses a function to transfer the operation OPNO into OPC/TWS format:
Code:
FWDHEX
.

But some operation OPNO turned strange in the application occurance, for example 130 and 150:
Code:
005 APPL. STARTER            SUB      C
010 INSTJOBS by TSOUSER      AMA010   C
020 INSTJOBS by TSOUSER      AMA020   C
030 INSTJOBS by TSOUSER      AMA030   C
040 INSTJOBS by TSOUSER      AMA040   C
050 INSTJOBS by TSOUSER      AMA050   C
060 INSTJOBS by TSOUSER      AMA060   C
070 INSTJOBS by TSOUSER      AMA070   C
080 INSTJOBS by TSOUSER      AMA080   C
090 INSTJOBS by TSOUSER      AMA090   C
100 INSTJOBS by TSOUSER      AMA100   C
110 INSTJOBS by TSOUSER      AMA110   C
120 INSTJOBS by TSOUSER      AMA120   C
140 INSTJOBS by TSOUSER      AMA140   C
160 INSTJOBS by TSOUSER      AMA160   C
170 INSTJOBS by TSOUSER      AMA170   C
180 INSTJOBS by TSOUSER      AMA180   C
190 INSTJOBS by TSOUSER      AMA190   C
194 INSTJOBS by TSOUSER      AMA130   C <==?
200 INSTJOBS by TSOUSER      AMA200   C
210 INSTJOBS by TSOUSER      AMA210   C
214 INSTJOBS by TSOUSER      AMA150   C <==?
220 INSTJOBS by TSOUSER      AMA220   C
230 INSTJOBS by TSOUSER      AMA230   C
240 INSTJOBS by TSOUSER      AMA240   C
250 INSTJOBS by TSOUSER      AMA250   C
255 APPL. STOPPER            CMP      C


I tried several times, the OPNO 130 always inserted as 194 and OPNO 150 as 214, and operations are disordered.
Did anyone meet this before? Or is there any limitation to insert operation via REXX/PIF to OPC/TWS?

Thanks.
Back to top
View user's profile Send private message
prino

Senior Member


Joined: 07 Feb 2009
Posts: 1306
Location: Vilnius, Lithuania

PostPosted: Tue Apr 24, 2012 1:25 pm
Reply with quote

And if my grandfather had been a woman, she would have been my grandmother.

Your post is a great example of posting something that is totally useless for each and every one of us. You show some command ("FWDHEX") some output, but nothing in between.

Try a
Code:
trace ?r
in your exec and follow what's going on!
Back to top
View user's profile Send private message
autobox

New User


Joined: 19 Aug 2005
Posts: 51

PostPosted: Tue Apr 24, 2012 1:36 pm
Reply with quote

Hi,

Let me clarify something:
1. FWDHEX is the source code from IBM supplided sample EQQPIFOP, I don't think it can be paste here. Please refer to the supplied sample for details.
2. Everything goes well in my exec. Just before the instert the OPNO is shown what I wanted, but in the OPC application occurrance, it turns strange.

Thanks.
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2481
Location: Netherlands, Amstelveen

PostPosted: Tue Apr 24, 2012 2:01 pm
Reply with quote

You changed or took code from EQQPIFOP. So my guess is that you messed up the parameterlist to EQQYCOM.
Does the original sample works as expected?

And for the rest what Prino commented.
Back to top
View user's profile Send private message
autobox

New User


Joined: 19 Aug 2005
Posts: 51

PostPosted: Tue Apr 24, 2012 2:15 pm
Reply with quote

I did not make any changes to EQQYCOM parameter list from EQQPIFOP. If the problem is parameter list, why only 130 and 150 turned wrong?
And I traced my code, everything goes well before the insert.

And, I tested this strange thing with little changes to the original sample EQQPIFOP. The same thing happened.

Thanks.
Back to top
View user's profile Send private message
autobox

New User


Joined: 19 Aug 2005
Posts: 51

PostPosted: Tue Apr 24, 2012 2:32 pm
Reply with quote

Found the problem: a subroutine translated the OPNO value.

Thanks guys!
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 -> IBM Tools

 


Similar Topics
Topic Forum Replies
No new posts Compile Several JCL JOB Through one r... CLIST & REXX 4
No new posts Running REXX through JOB CLIST & REXX 13
No new posts Error to read log with rexx CLIST & REXX 11
No new posts isfline didnt work in rexx at z/OS ve... CLIST & REXX 7
No new posts run rexx code with jcl CLIST & REXX 15
Search our Forums:

Back to Top