| 
INITIALISATION D'UN TRAVAIL INTERACTIF -------------------------------------- ------------------- ! !-Profil .... ! ERREUR ! ! ! Password .... ! !-------------->! ! Programme.... ! ! ! ! Menu .... ! ! !-!---------------! ---------> ADDWSE SBSD(SBSXXX)--- ! / ! / JOBD(JDXXX) ! ! / ! / !------------! ou ! ! ----!-------------- ! USRPRF ! ! v ! ! ! !<-non trouvé profil (*USRPRF) ! ! ! ! ! !----------------------- ! ! existant ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! v v v |
|
^ ----------------------- ! ----------------------- ! !<-incorrect! Mot de passe yyyyyy ! !->! JOBD JDXXX ! ! ! ! ! ! ! Envt du travail ! ! ! ! LMTCPB *NO ! ! ! RTGDTA(RRRRRR)-! ! ! !<-Pgm -----!-------- *PARTIAL ! ! ! RQSDTA(CCCCCC) ! ! ! Menu/pgm-!-------- *YES ! ! ! !ou *NONE ! ! ! ! JOBD(JDXXX) ----------->! -----!-----------!----- ! ! INLPGM(PGMXX) ! ! ! ! ! INLMNU(MNUXX) ! ! ! ! ----------------------- ! ! SBSXXX !--------------------------------------! ! *SBSD ! Table de sélection (ADDRTGE) ! v ! --------------------------------!------------------- ! ! Seq ! CMPVAL ! Programme! ! Classe ! Pool ! ! --------------------------------!------------------! ! ! 10 ! QCMDI ! QCMD ! ! QINTER ! 02 ! ! ! 20 ! QCMDB ! QCMD ! ! QBATCH ! 01 ! ! ! 30 ! TTTTTT ! PGM1 v ! CLS1 ! 01 ! !---!----------------<-!- 40-!<-RRRRRR <----- PGM2<--------CLS2----!--02 ! ! ! ! ! 50 ! QCMD38 ! QCL ! QBATCH ! 01 ! ! ! ! ! 999 ! *ANY ! QCMD ! QBATCH ! 01 ! v v v ---------------------------------------------------- |
|
! ! ! ! ! v CLS2 *CLS ! ! ----------------------- ! ! ! ! ! ! ! RUNPTY (01-99) ! ! ! ! TIMESLICE (Temps) ! ! ! ! PURGE (*YES/*NO)! ! ! ! ! ! ! ----------------------- ! ! ! ! ! ! -------!-------------- ! Travail initialisé ! ! ! ! ! ! ! Création QJOBMSGQ !------>! ! ! ! ! ! *EXT ! ! v ! ! ! ! RQSDTA de la JOBD ! ! ! ! placée dans *EXT !-------!->CCCCC! ! si <> *NONE ! ! ! ---------------------- !-------! v |
|
! v ! --------- ? quel est le ----> Pgm applicatif------! PGM2 !<----! pgm à exécuter --------- ! ! ! ! ! QCMD ou QCL !---------- ! oui ? pgm renseigné ------ sur le SIGNON ! ! ! ! non ! ---------- ! ! INLPGM ! ! ! du ! ! ! profil ! ! ---------- ! ! ! ---------------------- ! |
|
? INLPGM = *NONE >-oui---------------------------------- v ! ! non ! ! ! ? INLPGM = QCMD ou QCL >--oui----- ! v ! ! ! non ! ! ! ! ! ------------ ! ! ! !---------> ? il y a-t'il ! ! PGM ! ! un message -oui ! ! exécuté ! ! ! *RQS dans *EXT ! ! ! ! ! ! ! ! ! ! ! ! non ! ! ------------ ! ----------------------- ! ! ! ! ! Entree des commandes! ! ! ! ! ! ___________________ ! ! ! ! ! ! ___________________ ! ! ! ! F3 ! ! ___________________ ! ! ! ! !------!---! _F3 = EXIT_________ ! ! ! ! ! ! !---------------------! ! ! v v ! v v v |
|
! ! ! !<----------------! ! ! ! ^ ! ! ! ! ! ------------------------ ! ! ! ! ! ! ! ! ! ! ! Exécution de la cde ! ! ! ! ! ! ! ! ! ! ! ------------------------ ! v v ! ! ! ! ! !<----------! ! !-------->!<--------------------------------------------! ! v ? menu renseigné -oui--- v sur SIGNON ! ! ! ! non ! ---------- ! ! INLMNU ! ! ! du ! ! ! profil ! ! ---------- ! ! ! |
|
!<---------------------! ! GO MENU --- ? Menu = *SIGNOFF --------- ! ! !--------->! ! ! ! ! ! ------------------ ------------------ ! ! Menu exécuté ! ! Fin du travail ! ! ------------------ ------------------ ! ! -----------! A TOUT MOMENT LE TRAVAIL PEUT ETRE ARRETE AVEC LA COMMANDE SIGNOFF |
