EXECUTION D'UNE COMMANDE DANS UN PROGRAMME RPG OU COBOL
                    -------------------------------------------------------
 
 
IL EST POSSIBLE DANS UN PROGRAMME RPG OU COBOL D'EXECUTER UNE COMMANDE
PAR EXEMPLE VOUS VOULEZ VISUALISER L'ETAT DE VOTRE TRAVAIL.
 
NOUS ALLONS TRAITER CET EXEMPLE EN RPG, NOUS SOMMES BIEN SUR DANS UN
TRAVAIL INTERACTIF.
 
     E                    CMD     1   1 40
     C                     Z-ADD40        LONG   155
     C                     CALL 'QCMDEXC'
     C                     PARM           CMD,1
     C                     PARM           LONG
     C                     SETON                     LR
**
DSPJOB
 
VOICI LE PROGRAMME, DANS CET EXEMPLE LE PROGRAMME N'EXECUTE QUE LA
COMMANDE DSPJOB, MAIS CE N'EST QU 'UN EXEMPLE.

 
 
POUR EXECUTER UNE COMMANDE IL VOUS SUFFIT D'APPELER LE PROGRAMME
QCMDEXC EN LUI TRANSMETTANT 2 PARAMETRES : + LA COMMANDE
                                           + LA LONGUEUR DU PREMIER
                                              PARAMETRE
                                             (DOIT ETRE DEFINIE EN 15,5
                                              TYPE PACKEE.)
 
EN COBOL.
 
WORKING-STORAGE SECTION.
   77 COMMANDE PIC X(40) VALUE "DSPJOB".
   77 LONG PIC S9(10)V9(5).
 
 
PROCEDURE DIVISION.
      MOVE 40 TO LONG.
      CALL "QCMDEXC" USING COMMANDE LONG.