incinerator a écrit :
Bonjour les amis ,
Pourriez-vous m'aider à traduire le code REXX ci-dessous en KSH :
"ISPEXEC FTOPEN TEMP"
"ISPEXEC FTINCL MQMGREST"
"ISPEXEC FTCLOSE"
"ISPEXEC VGET ZTEMPF"
"ALLOC FILE(IN3) DA('"ZTEMPF"') SHR"
"EXECIO * DISKR IN3 (STEM REC. FINIS"
J = 0
DO J = 1 TO REC.0
PUSH REC.J
"EXECIO 1 DISKW OUT ("
END
RETURN
Merci bcp de votre aide.
|
Je suis un débutant en REXX et pour le moment unquement en environnement Windows.
A priori ton code fonctionne sous ISPF, il sert à copier ou afficher un fichier.
"ISPEXEC FTOPEN TEMP"
"ISPEXEC FTINCL MQMGREST"
"ISPEXEC FTCLOSE"
"ISPEXEC VGET ZTEMPF" |
Le nom du fichier en entrée est lu dans la variable ZTEMPF via une dialogue ISPF (ordres ISPEXEC)
"ALLOC FILE(IN3) DA('"ZTEMPF"') SHR"
"EXECIO * DISKR IN3 (STEM REC. FINIS" |
Le fichier est alloué et lu dans le Stem REC. (équivaut en gros à un tableau).
J = 0
DO J = 1 TO REC.0
PUSH REC.J
"EXECIO 1 DISKW OUT ("
END |
Le contenu du Stem REC. (c'est à dire le contenu du fichier entrée) est écrit dans le fichier OUT.
Avec ces quelques informations (à vérifier si c'est possible) tu as tout ce qu'il faut (ou presque) pour écrire le code en shell.
Par pure curiosité, dans quel cadre es tu amené à convertir en shell du code REXX (MVS) ?
Jean-Pierre.
