| 
A*%%TS SD 19930312 094009 PILOU REL-V2R1M0 5738-PW1
A*%%EC
A DSPSIZ(24 80 *DS3)
A PRINT(*LIBL/QSYSPRT)
A OPENPRT
A ERRSFL
A R SFL SFL
A*%%TS SD 19930312 094009 PILOU REL-V2R1M0 5738-PW1
A TEXT('SFL SERVICE TRAVAUX')
A JOBNML 10A O 8 12TEXT('NOM DU TRAVAIL')
A 55 DSPATR(RI)
A USRNML 10A O 8 29TEXT('NOM DU PROFIL')
A 55 DSPATR(RI)
A JOBNOL 6A O 8 47TEXT('NUMERO DU TRAVAIL')
A 55 DSPATR(RI)
A OPT01 1A B 8 4TEXT('OPTION 1,2,3,5')
A VALUES(' ' '1' '2' '3' '4' '5' '8')
A STATL 10A O 8 61
A 55 DSPATR(RI)
A DEBUG 3 O 8 75TEXT('temoins de débugage')
A DSPATR(HI)
A R CTL SFLCTL(SFL)
A*%%TS SD 19930312 094009 PILOU REL-V2R1M0 5738-PW1
A SFLSIZ(0014)
A SFLPAG(0013)
A TEXT('CTL SERVICE TRAVAUX')
A CA05(05 'Réafficher')
A CA03(03 'Exit')
A CA06(06 'Démarrer débogage')
A CA07(07 'Ajouter 1 point d''arrêt')
A CA08(08 'Ajouter 1 trace')
A CA09(09 'Ligne de commande')
A CA13(13 'Arret debogage')
A CA24(24 'AUTRE TOUCHE')
A CA15(15 'WRKACTJOB')
A INDTXT(30 'MISE A BLANC')
A INDTXT(31 'AFF. SOUS FIC')
A CA18(18 'arret srvjob')
A OVERLAY
A 31 SFLDSP
A SFLDSPCTL
A 30 SFLCLR
A N30 SFLEND
A 4 2'Indiquez vos options, puis appuyer-
|
|
A sur ENTREE' A 1 26'DBG - Débogage des travaux' A DSPATR(HI) A 7 3'Opt' A DSPATR(HI) A 5 2'1=Démarrer Télémiroir' A 1 69DATE A EDTCDE(Y) A 2 69TIME A 1 13SYSNAME A 6 2'8=Démarrer travail de maintenance' A 7 15'Nom' A DSPATR(HI) A 7 31'Profil' A DSPATR(HI) A 7 47'Numéro' A DSPATR(HI) A 5 54'3=Envoyer un message' A 6 39'5=Gérer trav.' A 6 54'4=Arrêter trav.' A 5 39'2=Modifier tr' A 1 3'Système :' A 1 61'Date :' A 2 61'Heure :' A 7 64'Etat' A DSPATR(HI) A 7 73'Service' A DSPATR(HI) A R CDE A*%%TS SD 19930302 115046 PILOU REL-V2R1M0 5738-PW1 A OVERLAY A N56 22 1'F3 = Exit' A 56 22 1'F15 = Sources' A N56 22 20'F5 = Réafficher' A 56 22 20'F18 Arrêt SRV' A N56 22 39'F7 = Aj. point d''arrêt' A N56 22 62'F13 = Arr. débog.' A N56 23 1'F6 = Dém. débogage' A N56 23 20'F9 = Ligne de cmde' A N56 23 39'F8 = Ajouter une trace' A N56 23 62'F24 = Autres touch.' |
