Discussion :

[a_karim_fr]

Bonjour,

J’ai un programme cobol sous Z OS qui contient des instructions ACCEPT mais dans le JCL je ne sais pas comment exécuter ce programme car il me donne le sysout en brows pas en édit pour entrer un choix,

Merci par avance

[walacouper]

Bonjour,

cela devra etre fait dans le JCL au niveau d'une carte SYSIN .

Cordialement.

[a_karim_fr]

Merci pour votre réponse

[duboisa]

salut,

beaucoup d'informatiques main-frame REFUSENT le "accept"

votre code dans le JCL reste correct :
//sysin DD *,RECFM=FB,LRECL=80
mes paramètre
/* <== facultatif

par contre au niveau du cobol
vous devrez déclarer une FD SYSIN
faire un OPEN et un close
avec bien entendu au milieu un READ into

moi je ne vois passer que des choses comme celà

[Luc Orient]

...
beaucoup d'informatiques main-frame REFUSENT le "accept"

Mais pas du tout ... vous sortez ça d'où ?

votre code dans le JCL reste correct :
//sysin DD *,RECFM=FB,LRECL=80
mes paramètre
/* <== facultatif

Le ,RECFM=FB,LRECL=80 ne sert à rien ...

par contre au niveau du cobol
vous devrez déclarer une FD SYSIN
faire un OPEN et un close
avec bien entendu au milieu un READ into

C'est bien l'intérêt de l'instruction ACCEPT, ça évite ce genre de lourdeur ...

[duboisa]

essayez donc, SANS

c'est l'objet de mes messages prédédéants

[Homer-ac]

+1 Je rejoins Luc Orient
L'ACCEPT est usuel en COBOL z/OS. Il le faut pas tout confondre, ce genre de réponses pollue le forum. C'est L'Accept from Console qui est sur tous les sites MVS totalement prohibé sauf autorisations spéciales (et encore !). Rien à voir.

[a_karim_fr]

Merci j'ai utilisé la carte SYSIN AU JCL est ça marche mais a chaque fois il faut que je change le paramètre pour lancer un autre cas ;