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

Passing parms when calling ISRSUPC(superc) from COBOL


IBM Mainframe Forums -> COBOL Programming
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
jasorn
Warnings : 1

Active User


Joined: 12 Jul 2006
Posts: 191
Location: USA

PostPosted: Mon Nov 16, 2015 12:06 pm
Reply with quote

I'm calling ISRSUPC from COBOL and passing 'DELTAL,LINECMP' like this:

Code:

01 WC-ISRSUPC-PARMS PIC X(14) VALUE 'DELTAL,LINECMP'.
CALL 'ISRSUPC' USING WC-ISRSUPC-PARMS


This executes superc but the listing type is 'OVSUM' instead of 'DELTA', which is what I want.

Like any good idiot would do, I've tried many variations of the above to no avail. I can find any examples calling superc from cobol either. The only thing I've found is one post from Dickthedinosaur(sp) in this forum with a list of programs pointing out you can call them from cobol but no example. Actually, that list gives isrseprm. I've tried calling that with no luck either.

Anyone know how to call superc from cobol and parms?
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1353
Location: Israel

PostPosted: Mon Nov 16, 2015 7:24 pm
Reply with quote

I found a program with:
Code:
       01 ISRSUPC-PARM.
          03 FILLER          PIC S9(4) COMP VALUE 26.
          03 FILLER          PIC X(26) VALUE 'SRCHCMP DPCBCMT ANYC COBOL'.
Code:
               CALL 'ISRSUPC' USING ISRSUPC-PARM
but I haven't tried it.
Back to top
View user's profile Send private message
Bill Woodger

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix

PostPosted: Mon Nov 16, 2015 7:54 pm
Reply with quote

I'd bet it works. The PARM to ISRSUPC is seen by that program in exactly the same way as a COBOL program (or anything else) would see the PARM, so it needs to be preceded by a half-word indicating the number of characters (and that has to be less than or equal to 100. Perhaps).

If you are up-to-date enough PARMDD allows for a "somewhat larger" PARM statement, so ISRSUPC may be able to cater for more. Not that you even need 100, it seems.
Back to top
View user's profile Send private message
jasorn
Warnings : 1

Active User


Joined: 12 Jul 2006
Posts: 191
Location: USA

PostPosted: Mon Nov 16, 2015 8:13 pm
Reply with quote

Lying in bed after posting this I thought, "Idiot! You didn't pass parm length!" Tried it first thing in the morning works as expected. Went to update the post with the solution but I'm naturally too late.

As always, hats off to the fine folks in this forum.

Marso wrote:
I found a program with:
Code:
       01 ISRSUPC-PARM.
          03 FILLER          PIC S9(4) COMP VALUE 26.
          03 FILLER          PIC X(26) VALUE 'SRCHCMP DPCBCMT ANYC COBOL'.
Code:
               CALL 'ISRSUPC' USING ISRSUPC-PARM
but I haven't tried it.
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 -> COBOL Programming

 


Similar Topics
Topic Forum Replies
No new posts Replace each space in cobol string wi... COBOL Programming 2
No new posts COBOL -Linkage Section-Case Sensitive COBOL Programming 1
No new posts COBOL ZOS Web Enablement Toolkit HTTP... COBOL Programming 0
No new posts Calling DFSORT from Cobol, using OUTF... DFSORT/ICETOOL 5
No new posts Generate random number from range of ... COBOL Programming 3
Search our Forums:

Back to Top