REXX

REXX - Shell/Batch - Programmation

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.

Reply

Marsh Posté le 27-12-2007 à 18:33:08   

Reply

Marsh Posté le 29-12-2007 à 21:35:34    

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.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed