Initialisation d'un travail batch

BoTTom |    Changer de couleur
 
         INITIALISATION D'UN TRAVAIL BATCH
         ---------------------------------
 
          //BCHJOB   JOB(NOM) JOBD(JDXXX) JOBQ(*RDR)
                     RTGDTA(RRRRRR) RQSDTA(*)
 
          puis SBMDBJOB   FILE(FICHIER) JOBQ(JQXXX)-!
                                                    !
                                                    !
          ou  SBMJOB     JOB(nom) CMD(Cde valide))<-!--------!
                         JOBQ(JQXXX)----------------!        !
                         JOBD(JDXXX)-------         !        !
                                          !         !        !
                         RTGDTA(*JOBD)--->!         !        !
                         ou     'RRRRRR'  !         !        !
                                          !         !        !
                         RQSDTA(*CMD)----------------------->!
                         ou     'CCCCCC'  !         !
                         ou     *JOBD---->!         !
                                          !         !
                                          !         !


|    Changer de couleur
                                          !         !
                                          !         !
                                          !         !
                                          !         !
                                          !    ADDJOBQE SBSD(SBSXXX)-
                                          !                         !
                                          !                         !
                                          !
                                          !                         !
                                          !                         !
                                          v                         !
                                         -----------------------    !
                                         !!JOBD JDXXX          !    !
                                         ! Envt du travail     !    !
                                         ! RTGDTA(RRRRRR)-!    !    !
                                         ! RQSDTA(CCCCCC) !    !    !
                                         !    !    ou     !    !    !
                                         !    !  (*NONE ) !    !    !
                                         -----!-----------!-----    !
                                              !           !         !
                                              !           !         !
                                              !           !         !


|    Changer de couleur
                                              !           !         !
                                              !           !         !
                                              !           !         !
                                              !           !      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  !
   !   !         !        ----------------------------------------------------
   !   !         !
   !   !         !
   !   !         !
   !   !         !
   !   !         !
   !   !         !


|    Changer de couleur
   !   !         v   CLS2 *CLS
   !   !    -----------------------
   !   !    !                     !
   !   !    ! RUNPTY    (01-99)   !
   !   !    ! TIMESLICE (Temps)   !
   !   !    ! PURGE     (*YES/*NO)!
   !   !    !                     !
   !   !    -----------------------
   !   !      !
-------!--------------
! Travail initialisé !
!      !             !       !       !
! Création QJOBMSGQ  !------>! *EXT  !
!      v             !       !       !
! RQSDTA (si <>*NONE)!       !       !
! placée dans *EXT   !-------!->CCCCC!
!                    !       !       !
! SI //JOB RQSDTA(*) !       ---------
! toutes les lignes  !
! jusqu'à //ENDBCHJOB!
! sont placées       !
----------------------


|    Changer de couleur
   !
                                           ---------
   ?  quel est le  ----> Pgm applicatif----! PGM2  !
      pgm à exécuter                       ---------
   !                                            !
   ! QCMD ou QCL                                !
   !                                            !
   !                                            !
   !--------> ? il y a-t'il   non  -------------!
      ^         un message                      !
      !         *RQS dans *EXT                  !
      !              !                          !
      !              ! oui                      !
      !       ------------------------          !
      !       !                      !          !
      !       ! Exécution de la cde  !          !
      !       !                      !          !
      !       ------------------------          !
      !              !                          !
      !<-------------v               --------------------
                                     !  Fin du travail  !
                                     --------------------





©AF400