DSPF pour actsbsl

BoTTom |
     A*%%TS  SD  20020611  161631  QSECOFR     REL-V5R1M0  5722-WDS
     A*%%EC
     A                                      DSPSIZ(24 80 *DS3)
     A                                      PRINT(*LIBL/QSYSPRT)
     A                                      HLPTITLE('REFSBS - Aide -')
     A                                      HLPPNLGRP('SBS/ALL' REFSBSPNL)
     A                                      HLPSCHIDX(*LIBL/QHSS1)
     A                                      INDARA
     A                                      ALTHELP
     A                                      ALTPAGEUP
     A                                      ALTPAGEDWN
     A                                      HELP
     A                                      WDWBORDER((*DSPATR HI))
     A          R TITRE
     A*%%TS  SD  19920717  154404  CHRISTIAN   REL-V2R1M0  5738-PW1
     A                                      FRCDTA
     A                                  1  3SYSNAME
     A                                      DSPATR(HI)
     A                                  1 21'Références croisées/sous systemes'
     A                                      DSPATR(HI)
     A                                  1 67DATE
     A                                      EDTCDE(Y)
     A                                  1 64'Le'
     A          R POOLFE                    SFL
     A*%%TS  SD  20020611  161631  QSECOFR     REL-V5R1M0  5722-WDS
     A            POOLNMU        2Y 0O  5  4EDTCDE(Z)
     A            POOLNOM       10A  O  5  7
     A            POOLSIZE       6Y 0B  5 18CHGINPDFT
     A                                      CHECK(RZ)
     A N95                                  DSPATR(UL)
     A  95                                  DSPATR(PR)
     A                                      COMP(GT 0)
     A                                      EDTCDE(Z)
     A                                      CHANGE(97)
     A            POOLACTL       4Y 0B  5 25CHGINPDFT
     A                                      CHECK(RZ)
     A N96                                  DSPATR(UL)
     A  96                                  DSPATR(PR)
     A                                      COMP(GT 0)
     A                                      EDTCDE(Z)
     A                                      CHANGE(98)
     A            POOLOPT        1A  B  5  2CHGINPDFT
     A                                      VALUES(' ' '1')
     A N96                                  DSPATR(UL)


|
     A  96                                  DSPATR(PR)
     A            POOLIDB        6Y 0O  5 51EDTCDE(Z)
     A            POOLINDB       6Y 0O  5 58EDTCDE(Z)
     A            POOLTDB        6Y 0O  5 65EDTCDE(Z)
     A            POOLTNDB       6Y 0O  5 72EDTCDE(Z)
     A                                  5 49'|'
     A                                  5 79'|'
     A            POOLMAINT      6Y 0O  5 42EDTCDE(Z)
     A                                  5 40'|'
     A            POOLACTCUR     4Y 0O  5 30EDTWRD('  0 ')
     A            POOLACTIF      4Y 0O  5 35EDTWRD('  0 ')
     A            POOLAW         6Y 0O  6 47DSPATR(HI)
     A                                      EDTWRD('    0 ')
     A                                  6 79'|'
     A                                  6 42'A/W:'
     A                                      DSPATR(HI)
     A                                  6 54'W/I:'
     A                                      DSPATR(HI)
     A            POOLWI         6Y 0O  6 59DSPATR(HI)
     A                                      EDTWRD('    0 ')
     A                                  6 40'|'
     A                                  6 66'A/I:'
     A                                      DSPATR(HI)
     A            POOLAI         6Y 0O  6 71DSPATR(HI)
     A                                      EDTWRD('    0 ')
     A          R POOLFC                    SFLCTL(POOLFE)
     A*%%TS  SD  20020611  161631  QSECOFR     REL-V5R1M0  5722-WDS
     A                                      SFLSIZ(0016)
     A                                      SFLPAG(0002)
     A                                      OVERLAY
     A                                      SFLDROP(CA11)
     A  30                                  SFLDSP
     A  31                                  SFLDSPCTL
     A  32                                  SFLCLR
     A  30                                  SFLEND
     A                                  4  2'v N°  Nom       Taille  lvl cours -
     A                                      jobs| mem Aux| interruptions   tran-
     A                                      sferts  |'
     A                                      DSPATR(UL)
     A                                  3  2'- 1 =Voir les sbs       Act  en  N-
     A                                      b de| Pool-> | memoire Aux. -> pool-
     A                                       sys.   |'
     A          R INTER
     A*%%TS  SD  20020611  161631  QSECOFR     REL-V5R1M0  5722-WDS


|
     A                                      OVERLAY
     A                                  9  2'                                  -
     A                                          |        |    DB  non DB    DB -
     A                                       non DB |'
     A                                      DSPATR(UL)
     A                                 10  3'Sous systemes'
     A                                      DSPATR(UL)
     A                                 11  4'Option 1 = Pools, 4 = Arret, 8 = J-
     A                                      obq, 9 = Gérer les travaux'
     A                                      DSPATR(HI)
     A                                 11 67'Trvx'
     A                                 11 74'Nbr'
     A                                 11 78'de'
     A                                 12  3'  v   Nom         Lib        Signo-
     A                                      n       Signon lib   Maxact  Actifs-
     A                                        Pools'
     A                                      DSPATR(UL)
     A          R SBSFE                     SFL
     A*%%TS  SD  19920717  110719  CHRISTIAN   REL-V2R1M0  5738-PW1
     A            OPTION         1A  B 13  5VALUES(' ' '1' '4' '8' '9')
     A            SBSD          10A  O 13  8
     A            SBSDLIB       10A  O 13 20
     A            SBSSIGNON     10A  B 13 32CHECK(VN)
     A                                      CHANGE(91)
     A            SBSSIGNLIB    10A  B 13 45CHECK(VN)
     A                                      CHANGE(92)
     A            SBSMAXACT      6Y 0B 13 58CHECK(RZ)
     A                                      COMP(GT 0)
     A                                      EDTCDE(Z)
     A                                      CHANGE(93)
     A            SBSNBRACT      6Y 0O 13 66EDTCDE(Z)
     A            NBRDEPOOL      3Y 0O 13 75EDTCDE(Z)
     A          R SBSFC                     SFLCTL(SBSFE)
     A*%%TS  SD  19920721  135303  CHRISTIAN   REL-V2R1M0  5738-PW1
     A                                      CA03(03)
     A                                      CA05(05)
     A                                      CA10(10)
     A                                      CF14(14)
     A                                      CF04(04)
     A                                      CA09(09)
     A                                      VLDCMDKEY(25)
     A                                      OVERLAY
     A  40                                  SFLDSP
     A  41                                  SFLDSPCTL


|
     A  42                                  SFLCLR
     A  40                                  SFLEND
     A                                      SFLSIZ(0050)
     A                                      SFLPAG(0008)
     A          H                           HLPPNLGRP('SBS/OPTION' REFSBSPNL)
     A                                      HLPARA(03 001 08 002)
     A          H                           HLPPNLGRP('SBS/INFOS' REFSBSPNL)
     A                                      HLPARA(03 004 08 040)
     A          H                           HLPPNLGRP('SBS/PERF' REFSBSPNL)
     A                                      HLPARA(03 040 08 080)
     A          H                           HLPPNLGRP('SBS/OPTION2' REFSBSPNL)
     A                                      HLPARA(13 005 20 005)
     A          H                           HLPPNLGRP('SBS/SBSD' REFSBSPNL)
     A                                      HLPARA(13 008 20 030)
     A          H                           HLPPNLGRP('SBS/SIGNON' REFSBSPNL)
     A                                      HLPARA(13 032 20 054)
     A          H                           HLPPNLGRP('SBS/MAXACT' REFSBSPNL)
     A                                      HLPARA(13 058 20 063)
     A          H                           HLPPNLGRP('SBS/ACTIFS' REFSBSPNL)
     A                                      HLPARA(13 064 20 072)
     A          H                           HLPPNLGRP('SBS/NBPOOL' REFSBSPNL)
     A                                      HLPARA(13 073 20 079)
     A          H                           HLPPNLGRP('SBS/CMDL' REFSBSPNL)
     A                                      HLPARA(22 001 22 080)
     A          H                           HLPPNLGRP('SBS/CDES' REFSBSPNL)
     A                                      HLPARA(23 001 23 080)
     A          H                           HLPPNLGRP('SBS/MSGL' REFSBSPNL)
     A                                      HLPARA(24 001 24 080)
     A                                 21  3'                                  -
     A                                                                         -
     A                                             '
     A                                      DSPATR(UL)
     A                                 23  3'F3=Sortie, F4=Invite, F5=Réaffiche-
     A                                      r, F9=Rappel, F11=Transition, F14 =-
     A                                       WRKSBS'
     A            CMDLINE       74A  B 22  5DSPATR(HI)
     A                                      DSPATR(PC)
     A                                      CHECK(LC)
     A                                      CHANGE(90)
     A                                 22  1'==>'
     A          R SBSPFE                    SFL
     A*%%TS  SD  19920624  170828  CHRISTIAN   REL-V2R1M0  5738-PW1
     A            SBSPOOLNUM     2  0O  2  2EDTCDE(Z)
     A            SBSPOOLNAM    10   O  2  5


|
     A            SBSPOOLSIZ     6  0O  2 16EDTCDE(Z)
     A            SBSPOOLACT     6  0O  2 23EDTCDE(Z)
     A          R SBSPFC                    SFLCTL(SBSPFE)
     A*%%TS  SD  19920721  135303  CHRISTIAN   REL-V2R1M0  5738-PW1
     A                                      CA12(12)
     A                                      CF14(14)
     A  50                                  SFLDSP
     A  51                                  SFLDSPCTL
     A  52                                  SFLDLT
     A  50                                  SFLEND
     A                                      SFLSIZ(0010)
     A                                      SFLPAG(0006)
     A                                      WINDOW(13 35 8 30)
     A          H                           HLPPNLGRP('SBS/SBSP' REFSBSPNL)
     A                                      HLPARA(01 001 08 030)
     A                                  1  2'N°'
     A                                  1  5'Pool'
     A                                  1 16'Taille'
     A                                  1 23'Actlvl'
     A          R JOBQFE                    SFL
     A*%%TS  SD  19920721  135303  CHRISTIAN   REL-V2R1M0  5738-PW1
     A            JQOPTION       1A  B  2  2VALUES(' ' '3' '5' '6' '8')
     A            JOBQ          10A  O  2  5
     A            JOBQLIB       10A  O  2 17
     A          R JOBQFC                    SFLCTL(JOBQFE)
     A*%%TS  SD  19920721  135303  CHRISTIAN   REL-V2R1M0  5738-PW1
     A                                      CA12(12)
     A                                      CF14(14)
     A  60                                  SFLDSP
     A  61                                  SFLDSPCTL
     A  62                                  SFLCLR
     A  60                                  SFLEND
     A                                      SFLSIZ(0020)
     A                                      SFLPAG(0006)
     A                                      WINDOW(13 40 8 30)
     A          H                           HLPPNLGRP('SBS/SBSJQ' REFSBSPNL)
     A                                      HLPARA(01 001 08 030)
     A                                  1 18'Lib'
     A                                  1  2'3/5/6'
     A                                  1  8'Jobq'
     A          R POOLSFE                   SFL
     A*%%TS  SD  19920626  092733  CHRISTIAN   REL-V2R1M0  5738-PW1
     A            POPTION        1A  B  2  1VALUES(' ' '9')
     A            PSBSD         10A  O  2  5


|
     A            PSBSNUM        2Y 0O  2 21EDTCDE(Z)
     A          R POOLSFC                   SFLCTL(POOLSFE)
     A*%%TS  SD  19920721  135303  CHRISTIAN   REL-V2R1M0  5738-PW1
     A                                      CA12(12)
     A                                      CF14(14)
     A  70                                  SFLDSP
     A  71                                  SFLDSPCTL
     A  72                                  SFLCLR
     A  70                                  SFLEND
     A                                      SFLSIZ(0050)
     A                                      SFLPAG(0005)
     A                                      WINDOW(2 50 7 25)
     A          H                           HLPPNLGRP('SBS/PSBS' REFSBSPNL)
     A                                      HLPARA(01 001 07 025)
     A                                  1  1'9'
     A                                  1  5'Sbsd'
     A                                  1 18'N°'
     A          R WRKSBSFE                  SFL
     A*%%TS  SD  19920626  151647  CHRISTIAN   REL-V2R1M0  5738-PW1
     A            FLD001        10A  O  2  3
     A            FLD002         2Y 0O  2 15EDTCDE(Z)
     A            FLD003         2Y 0O  2 19EDTCDE(Z)
     A            FLD004         2Y 0O  2 23EDTCDE(Z)
     A            FLD005         2Y 0O  2 27EDTCDE(Z)
     A            FLD006         2Y 0O  2 31EDTCDE(Z)
     A            FLD007         2Y 0O  2 35EDTCDE(Z)
     A            FLD008         2Y 0O  2 39EDTCDE(Z)
     A            FLD009         2Y 0O  2 43EDTCDE(Z)
     A            FLD010         2Y 0O  2 47EDTCDE(Z)
     A            FLD011         2Y 0O  2 51EDTCDE(Z)
     A          R WRKSBSFC                  SFLCTL(WRKSBSFE)
     A*%%TS  SD  19920626  150823  CHRISTIAN   REL-V2R1M0  5738-PW1
     A                                      CA12(12)
     A                                      CF14(14)
     A  80                                  SFLDSP
     A  81                                  SFLDSPCTL
     A  82                                  SFLCLR
     A  80                                  SFLEND
     A                                      SFLSIZ(0050)
     A                                      SFLPAG(0010)
     A                                      WINDOW(9 12 12 55)
     A          H                           HLPPNLGRP('SBS/WRKSBS' REFSBSPNL)
     A                                      HLPARA(01 001 12 055)
     A                                  1  3' Sbsd      -01--02--03--04--05--06-


|
     A                                      --07--08--09--10-'
     A                                      DSPATR(HI)
     A          R BLANC
     A*%%TS  SD  19920709  091741  CHRISTIAN   REL-V2R1M0  5738-PW1
     A                                      OVERLAY
     A                                 24  2'                                  -
     A                                                                         -
     A                                               '
     A          R MSG                       SFL
     A*%%TS  SD  19920709  085544  CHRISTIAN   REL-V2R1M0  5738-PW1
     A                                      SFLMSGRCD(24)
     A            KEY                       SFLMSGKEY
     A            PGMQ                      SFLPGMQ
     A          R MSGC                      SFLCTL(MSG)
     A*%%TS  SD  19920709  091741  CHRISTIAN   REL-V2R1M0  5738-PW1
     A                                      OVERLAY
     A  99                                  SFLDSP
     A  99                                  SFLINZ
     A  99                                  SFLEND
     A                                      SFLSIZ(0050)
     A                                      SFLPAG(0001)
     A            PGMQ                      SFLPGMQ
     A          R TITRE2
     A*%%TS  SD  19920717  154404  CHRISTIAN   REL-V2R1M0  5738-PW1
     A                                      OVERLAY
     A                                  2 40'!<-- Pagination par pool à'
     A                                  2 76'-->!'
     A                                  2 67TIME
     A                                      DSPATR(HI)




©AF400