FWIW, here's a snippet from one of my old ISPF programs - maybe it'll help
jog a brain cell or two.
01 ISPF-PARAMETER-VALUES.
05 TBSKIP PIC X(8) VALUE 'TBSKIP '.
05 SET-NEXT-MESSAGE PIC X(8) VALUE 'SETMSG '.
05 MESSAGE-ID PIC X(8).
05 VDEFINE PIC X(8) VALUE 'VDEFINE '.
05 CHARACTER-FORMAT PIC X(8) VALUE 'CHAR '.
05 FIXED-FORMAT PIC X(8) VALUE 'FIXED '.
05 NOBSCAN-OPTION PIC X(8) VALUE 'NOBSCAN '.
05 TABLE-NAME PIC X(8) VALUE 'MEMTAB1 '.
05 DMTYPE-NAME-LIST PIC X(8) VALUE '(DMTYPE)'.
05 TITLE-NAME-LIST PIC X(8) VALUE '(TITLE) '.
05 DICT-NAME-LIST PIC X(8) VALUE '(DICT) '.
05 LINE-COMMAND-NAME-LIST PIC X(8) VALUE '(LCMD) '.
05 ZCMD-ZOPT-NAME-LIST PIC X(16) VALUE
'(ZCMD ZOPT)'.
05 MEMBER-STATUS-COMMAND-LIST PIC X(48) VALUE
'(DMMEMBER DSTATUS COMMAND LISTON LISTANY)'.
05 ZDTCRN-ZTDTOP-NAME-LIST PIC X(16) VALUE
'(ZDTCRN ZTDTOP)'.
01 ISPF-SYSTEM-VARIABLES.
05 ZDTCRN-ZTDTOP-ARRAY.
10 ZDTCRN PIC S9(5) COMP.
10 ZTDTOP PIC S9(5) COMP.
05 TABLE-ROW-NUMBER PIC S9(5) COMP.
05 ZCMD-ZOPT-ARRAY.
10 ZCMD PIC X(48).
10 ZOPT PIC X(48).
05 ZDTCRN-SAVE PIC S9(5) COMP.
05 ZTDTOP-SAVE PIC S9(5) COMP.
01 ISPF-VARIABLE-STORAGE.
05 LINE-COMMAND-VAR-STRG.
10 LCMD.
15 LCMD-1 PIC X.
15 LCMD-2 PIC X.
05 MEMBER-STATUS-COMMAND-WS.
10 DMMEMBER PIC X(32).
10 DSTATUS PIC X(32).
10 CURRENT-COMMAND PIC X(32).
10 LIST-VALUES.
15 LIST-ON-STRING PIC X(32).
15 LIST-ANY-STRING PIC X(32).
05 INPUT-PANEL-STORAGE.
10 INPUT-TITLE PIC X(63).
10 DICTIONARY PIC X(6).
10 DMTYPE PIC X(17).
MOVE +48 TO VARIABLE-LENGTH.
CALL 'ISPLINK' USING VDEFINE,
ZCMD-ZOPT-NAME-LIST,
ZCMD-ZOPT-ARRAY,
CHARACTER-FORMAT,
VARIABLE-LENGTH,
NOBSCAN-OPTION.
MOVE +63 TO VARIABLE-LENGTH.
CALL 'ISPLINK' USING VDEFINE,
TITLE-NAME-LIST,
INPUT-TITLE,
CHARACTER-FORMAT,
VARIABLE-LENGTH,
NOBSCAN-OPTION.
MOVE +2 TO VARIABLE-LENGTH.
CALL 'ISPLINK' USING VDEFINE,
LINE-COMMAND-NAME-LIST,
LINE-COMMAND-VAR-STRG,
CHARACTER-FORMAT,
VARIABLE-LENGTH,
NOBSCAN-OPTION.
MOVE +32 TO VARIABLE-LENGTH.
CALL 'ISPLINK' USING VDEFINE,
MEMBER-STATUS-COMMAND-LIST,
MEMBER-STATUS-COMMAND-WS,
CHARACTER-FORMAT,
VARIABLE-LENGTH,
NOBSCAN-OPTION.
MOVE +6 TO VARIABLE-LENGTH.
CALL 'ISPLINK' USING VDEFINE,
DICT-NAME-LIST,
DICTIONARY,
CHARACTER-FORMAT,
VARIABLE-LENGTH,
NOBSCAN-OPTION.
MOVE +17 TO VARIABLE-LENGTH.
CALL 'ISPLINK' USING VDEFINE,
DMTYPE-NAME-LIST,
DMTYPE,
CHARACTER-FORMAT,
VARIABLE-LENGTH,
NOBSCAN-OPTION.
MOVE +4 TO VARIABLE-LENGTH.
CALL 'ISPLINK' USING VDEFINE,
ZDTCRN-ZTDTOP-NAME-LIST,
ZDTCRN-ZTDTOP-ARRAY,
FIXED-FORMAT,
VARIABLE-LENGTH,
NOBSCAN-OPTION.
Jim Harrison
----- Original Message -----
From: "Jim McAlpine" <[EMAIL PROTECTED]>
Newsgroups: bit.listserv.ibm-main
To: <IBM-MAIN@BAMA.UA.EDU>
Sent: Friday, May 18, 2007 11:43 AM
Subject: Re: calling ISPLINK from COBOL
OK, I've changed the calls to dynam and changed the length and ZTERMCID as
follows -
but still rc=20. I'm getting the feeling it's something more basic. It's
running just as a batch COBOL program BTW.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
