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
 
OPNO field mistake when inserting operation via REXX/PIF

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IBM Tools
View previous topic :: :: View next topic  
Author Message
autobox

New User


Joined: 19 Aug 2005
Posts: 48

PostPosted: Tue Apr 24, 2012 1:04 pm    Post subject: OPNO field mistake when inserting operation via REXX/PIF
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: 1060
Location: Oostende, Belgium

PostPosted: Tue Apr 24, 2012 1:25 pm    Post subject:
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: 48

PostPosted: Tue Apr 24, 2012 1:36 pm    Post subject:
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: 2442
Location: Netherlands, Amstelveen

PostPosted: Tue Apr 24, 2012 2:01 pm    Post subject:
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: 48

PostPosted: Tue Apr 24, 2012 2:15 pm    Post subject:
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: 48

PostPosted: Tue Apr 24, 2012 2:32 pm    Post subject:
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    IBMMAINFRAMES.com Support Forums -> IBM Tools All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts How to write Rexx program to size and... sreejeshcs CLIST & REXX 14 Thu Oct 12, 2017 7:26 am
No new posts sort records based on length exceeds ... maxsubrat DFSORT/ICETOOL 7 Wed Oct 04, 2017 4:48 pm
This topic is locked: you cannot edit posts or make replies. Rexx to execute spool commands upendrasri CLIST & REXX 5 Wed Oct 04, 2017 6:54 am
No new posts Partial color change of a field in CI... waseem0424 CICS 5 Fri Sep 29, 2017 7:56 pm
This topic is locked: you cannot edit posts or make replies. Rexx to execute spool commands upendrasri CLIST & REXX 47 Fri Sep 29, 2017 1:08 pm

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