|
View previous topic :: View next topic
|
| Author |
Message |
jasorn
Warnings : 1
Active User
Joined: 12 Jul 2006
Posts: 191
Location: USA
|
|
|
|
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 |
|
 |
Marso
REXX Moderator
Joined: 13 Mar 2006
Posts: 1353
Location: Israel
|
|
|
|
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 |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix
|
|
|
|
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 |
|
|
jasorn
Warnings : 1
Active User
Joined: 12 Jul 2006
Posts: 191
Location: USA
|
|
|
|
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 |
|
|
|
|
