SYS Ecrire dans un fichier source

Il en existe de nombreuse en voici une en utilisant  QSHELL

 

Voici un exemple :

 

QSH CMD('echo “PGM” > /qsys.lib/votrebib.lib/qclsrc.file/pgm.mbr') 

QSH CMD('echo “CALL TOTO“ >> /qsys.lib/votrebib.lib/qclsrc.file/pgm.mbr') 

QSH CMD('echo “MONMSG CPF0000“ >> /qsys.lib/votrebib.lib/qclsrc.file/pgm.mbr') 

QSH CMD('echo “PGM” >> /qsys.lib/votrebib.lib/qclsrc.file/pgm.mbr')  

 

Avec ces trois commandes

Vous obtenez un programme CLP Compilable

 

Ø >   met à blanc le fichier

Ø >> met à la suite