Portal | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Passing parms when calling ISRSUPC(superc) from COBOL

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
View previous topic :: :: View next topic  
Author Message
jasorn
Warnings : 1

Active User


Joined: 12 Jul 2006
Posts: 184
Location: USA

PostPosted: Mon Nov 16, 2015 12:06 pm    Post subject: Passing parms when calling ISRSUPC(superc) from COBOL
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: 1349
Location: Israel

PostPosted: Mon Nov 16, 2015 7:24 pm    Post subject:
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

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7312

PostPosted: Mon Nov 16, 2015 7:54 pm    Post subject: Reply to: Passing parms when calling ISRSUPC(superc) from COBOL
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: 184
Location: USA

PostPosted: Mon Nov 16, 2015 8:13 pm    Post subject:
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    IBMMAINFRAMES.com Support Forums -> COBOL Programming All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts COBOL reading from SYSIN jzhardy COBOL Programming 1 Mon Sep 21, 2020 2:37 pm
No new posts how to read accounting information in... jzhardy COBOL Programming 1 Mon Sep 21, 2020 9:57 am
No new posts NOT IN clause in COBOL pgm mramvivek COBOL Programming 8 Thu Aug 20, 2020 4:48 am
No new posts Restart logic by using cursor name in... Twinkle22 Mainframe Interview Questions 1 Wed Jul 29, 2020 11:26 am
No new posts COBOL Developers Perspectives on Soft... achakarov COBOL Programming 4 Sat Jul 18, 2020 1:26 am

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