ÿþ  5722WDS V5R3M0  030905                  LISTE SOURCE SEU                              08/03/05 14:16:41    ASTOOL       PAGE    1

  FICHIER SOURCE  . . . . .  CONVERT/SOURCE

  MEMBRE  . . . . . . . . .  LF4GB

  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0

    100 PGM PARM(&BIB) /* CHGT ACCESS PATH SIZE *MAX1TB des LF */

    200              DCL        VAR(&BIB) TYPE(*CHAR) LEN(10)

    300             DCLF FILE(QSYS/QAFDLGL)

    400             DSPFD      FILE(&BIB/*ALL) TYPE(*ATR) +

    500                        OUTPUT(*OUTFILE) FILEATR(*LF) +

    600                        OUTFILE(QTEMP/LF4GB)

    700             MONMSG MSGID(CPF0000)

    800             OVRDBF FILE(QAFDLGL) TOFILE(QTEMP/LF4GB)

    900             MONMSG MSGID(CPF0000)

   1000  RCVLF:     RCVF

   1100             MONMSG MSGID(CPF4101) EXEC(GOTO CMDLBL(FIN))

   1200             MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(FIN))

   1201             IF COND(&LGLIB = 'QUSRSYS') THEN(GOTO CMDLBL(RCVLF))                                                21/10/03

   1300             IF COND(&LGAPSZ = '1') THEN(GOTO CMDLBL(RCVLF))

   1400             CHGLF FILE(&LGLIB/&LGFILE) ACCPTHSIZ(*MAX1TB)

   1500             MONMSG MSGID(CPF0000)

   1600             GOTO CMDLBL(RCVLF)

   1700  FIN:

   1800              SNDPGMMSG  MSG('Access Path Size des FICHIERS +                                                    08/03/05

   1801                           LOGIQUES de la bibliothèque ' *CAT &BIB +                                             08/03/05

   1802                           *CAT 'modifiés à *1TB')                                                               08/03/05

   1900  ENDPGM

                                  * * * *  F I N  D U  S O U R C E  * * * *