REXX - Shell/Batch - Programmation
Marsh Posté le 29-12-2007 à 21:35:34
incinerator a écrit : Bonjour les amis , |
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" |
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" |
Le fichier est alloué et lu dans le Stem REC. (équivaut en gros à un tableau).
J = 0 |
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.
Marsh Posté le 27-12-2007 à 18:33:08
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.