Comment travailler en COBOL Ibm/Z avec un panel ispf
Bonjour,
J'ai un programme cobol qui " devrait montrer " un panel ispf :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
|
PROCESS DYNAM
IDENTIFICATION DIVISION.
PROGRAM-ID. CBLEX003
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 PST1 PIC X(8) VALUE 'LIBDEF '.
77 PST2 PIC X(8) VALUE 'ISPPLIB '.
77 PST3 PIC X(8) VALUE 'DATASET '.
77 PST4 PIC X(15) VALUE 'Z30952.MINE.GML'.
77 PST5 PIC X(16) VALUE 'DISPLAY PANEL01'.
77 ISPLINK PIC X(8) VALUE 'ISPLINK '.
PROCEDURE DIVISION.
CALL ISPLINK USING PST1 PST2 PST3 PST4.
CALL "ISPLINK" USING PST5.
STOP RUN. |
Je le compile et link avec un jcl :
Code:
1 2 3 4 5 6 7 8 9 10
|
//CBLCL JOB 1,NOTIFY=&SYSUID,MSGLEVEL=(1,1)
//***************************************************/
//SETVAR SET THEPGM=CBLEX005
//SETVAR SET WHERES=&SYSUID..MINE.GML
//SETVAR SET LINKRU=&SYSUID..PATO
//***************************************************/
//COBRUN EXEC IGYWCL
//COBOL.SYSIN DD DSN=&WHERES(&THEPGM),DISP=SHR
//LKED.SYSLMOD DD DSN=&LINKRU(&THEPGM),DISP=SHR |
Le résultat est RC=0 (donc compilation et link sans erreur)
Mais quand je lance le programme je reçois une erreur RC=20. Le jcl pour lancer le programme cobol :
Code:
1 2 3 4 5 6 7 8 9 10 11
|
//CBLRU1 JOB 1,NOTIFY=&SYSUID,MSGLEVEL=(1,1)
//***************************************************/
//SETVA1 SET THEPGM=CBLEX003
//SETVA2 SET LINKRU=&SYSUID..PATO(&THEPGM)
//***************************************************/
//STEP2 EXEC PGM=&THEPGM
//STEPLIB DD DSN=&LINKRU,DISP=SHR
//SYSOUT DD SYSOUT=*,OUTLIM=15000
//CEEDUMP DD DUMMY
//SYSUDUMP DD DUMMY |
Le panel est très simple et fonctionne parfaitement dans ispf 6.7 et dans un programme REXX :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13
|
)ATTR DEFAULT(+_%)
% TYPE(TEXT) COLOR(PINK) INTENS(HIGH)
$ TYPE(INPUT) INTENS(HIGH) PAD(_)
! TYPE(INPUT) INTENS(LOW) PAD(' ')
)BODY
%-------------------- *TITLE FOR ENTRY PANEL* --------------------------
%COMMAND ===>_ZCMD
%
&ZUSER &ZTIME &ZSCREEN &ZWIDTH &ZUS4S7
+ THIS DIRECTION LINE TELLS THE USER HOW TO USE THE PANEL:
%XXXXX:_X %YYY:$YYY %ZZZ:$ZZ%AAAAAAAA:$AAAAAAAA +
)END |
Ma question est : qu'est-ce qu'il manque au programme cobol ou au jcl pour que ça fonctionne ?