| 
FCPYDSPD CF E WORKSTN F KNUM 20 F KID ECR FCPYDSPP UF E DISK UC E TX 24 80 E D 20 10 I UDS I 1 200 D IDSTX DS I 11920 TX IROW DS I 1 20X I 3 3 FILLER * C *ENTRY PLIST C PARM ACTION 3 C PARM *IN03 ERROR 1 C ACTION CASEQ'ACQ' ACQ C CAS AFFICH C END C RETRN ** ** ACQUISITION DE TOUTES LES UNITEES ** C ACQ BEGSR C Z-ADD1 Z 20 C *BLANK LOKUPD,Z 02 C N02 Z-ADD21 Z C SUB 1 Z C 2 DO Z Y 20 C MOVE D,Y ECR C ECR ACQ CPYDSPD 03 C N03 END C ENDSR ** ** AFFICHAGE SUR TOUTES LES UNITEES (TELEMIROIR MULTIPLE) ** C AFFICH BEGSR C OPEN CPYDSPP C EXSR LECTU * C *IN,01 DOWEQ'0' C TEST ANDNE'//FIN' C MOVE SIROW ROW |
|
C MOVELSIDATA TX,X C X IFEQ 24 C EXSR ENVOI C END C EXSR LECTU C END C CLOSECPYDSPP C MOVE '1' *INLR C ENDSR ** ** LECTURE DU FICHIER RESULTAT DU TELEMIROIR ** C LECTU BEGSR C SIROW DOUNE' ' C READ QSCCPY1 01 C DELETQSCCPY1 01 C END C MOVELSIDATA TEST 5 C ENDSR ** ** ENVOI DES IMAGES AUX ECRANS ** C ENVOI BEGSR C EXSR TDTAQ C *IN,10 IFEQ '0' * LECTURE DE TOUTES LES UNITEES QUI ONT FAIT <ENTREE> C *IN,04 IFEQ '1' C *IN,05 DOUEQ'1' C READ CPYDSPD 0505 C END C END C MOVE '1' *IN,04 C MOVE DSTX T0 * ECRITURE SUR TOUTES LES UNITEES C DO Z Y 20 C MOVE D,Y ECR C WRITECPYDSPF C END * C END C ENDSR ** ** TEST SI ENVOI INHIBE PAR LECTURE DTAQ "CPYDTAQ" ** |
|
C TDTAQ BEGSR C MOVE ' ' DATA C MOVE '0' *IN,10 C CALL 'QRCVDTAQ' 09 C PARM 'CPYDTAQ 'DTAQ 10 C PARM 'AF4TOOL 'LIB 10 C PARM 3 LG 50 C PARM DATA 3 C PARM 1 WAIT 50 C DATA IFNE ' ' C MOVE '1' *IN,10 C END C ENDSR |
