Retrouve infos sur un membre

BoTTom |    Changer de couleur
      ****************************************************************
      *                                                              *
      * API:  QUSRMBRD                                               *
      * Format:  MBRD0100                                            *
      *                                                              *
      ****************************************************************
       01 MBRD0100-RCVVAR.
           05 BYTES-RETURNED                 PIC S9(9) COMP-4.
           05 BYTES-AVAILABLE                PIC S9(9) COMP-4.
           05 FILE-NAME                      PIC X(10).
           05 LIBRARY                        PIC X(10).
           05 MEMBER-NAME                    PIC X(10).
           05 FILE-ATTRIBUTE                 PIC X(10).
           05 SOURCE-TYPE                    PIC X(10).
           05 CREATION-DATE                  PIC X(13).
           05 LAST-SOURCE-CHANGE-DATE        PIC X(13).
           05 MEMBER-TEXT                    PIC X(50).
           05 SOURCE-FILE                    PIC X(01).
      ****************************************************************
     IRCVVAR      DS
     I                                    B   1   40BYTRTN
     I                                    B   5   80BYTVAL


|    Changer de couleur
     I                                        9  28 FILLIB
     I                                        9  18 FILNAM
     I                                       19  28 LIBNAM
     I                                       29  38 MBRNAM
     I                                       39  48 FILATR
     I                                       49  58 SRCTYP
     I                                       59  71 CRTDAT
     I                                       72  84 LSTCHG
     I                                       85 134 TEXT
     I                                      135 135 SRCF
      ****************************************************************
      *                                                              *
      * API:  QUSRMBRD                                               *
      * Format:  MBRD0200                                            *
      *                                                              *
      ****************************************************************
       01 MBRD0200-RCVVAR.
           05 BYTES-RETURNED                 PIC S9(9) COMP-4.
           05 BYTES-AVAILABLE                PIC S9(9) COMP-4.
           05 FILE-NAME                      PIC X(10).
           05 LIBRARY                        PIC X(10).
           05 MEMBER-NAME                    PIC X(10).


|    Changer de couleur
           05 FILE-ATTRIBUTE                 PIC X(10).
           05 SOURCE-TYPE                    PIC X(10).
           05 CREATION-DATE                  PIC X(13).
           05 LAST-SOURCE-CHANGE-DATE        PIC X(13).
           05 MEMBER-TEXT                    PIC X(50).
           05 SOURCE-FILE                    PIC X(01).
           05 EXTERNAL-FILE                  PIC X(01).
           05 LOGICAL-FILE                   PIC X(01).
           05 SHARE-ODP                      PIC X(01).
           05 FILLER                         PIC X(02).
           05 NUMBER-RECORDS                 PIC S9(9) COMP-4.
           05 NUMBER-DELETED-RECORDS         PIC S9(9) COMP-4.
           05 DATA-SPACE-SIZE                PIC S9(9) COMP-4.
           05 ACCESS-PATH-SIZE               PIC S9(9) COMP-4.
           05 NUMBER-MEMBERS                 PIC S9(9) COMP-4.
           05 LAST-CHANGE-DATE               PIC X(13).
           05 LAST-SAVE-DATE                 PIC X(13).
           05 LAST-RESTORE-DATE              PIC X(13).
           05 EXPIRATION-DATE                PIC X(13).
           05 NUMBER-DAYS-USED               PIC S9(9) COMP-4.
           05 LAST-USED-DATE                 PIC X(07).
           05 USAGE-RESET-DATE               PIC X(07).


|    Changer de couleur
      ****************************************************************
     IRCVVAR      DS
     I                                    B   1   40BYTRTN
     I                                    B   5   80BYTVAL
     I                                        9  28 FILLIB
     I                                        9  18 FILNAM
     I                                       19  28 LIBNAM
     I                                       29  38 MBRNAM
     I                                       39  48 FILATR
     I                                       49  58 SRCTYP
     I                                       59  71 CRTDAT
     I                                       72  84 SRCCHG
     I                                       85 134 TEXT
     I                                      135 135 SRCF
     I                                      136 136 EXTF
     I                                      137 137 LF
     I                                      138 138 ODPSHR
     I                                      139 140 RESER1
     I                                    B 141 1440NBRRCD
     I                                    B 145 1480DLTRCD
     I                                    B 149 1520DSSIZ
     I                                    B 153 1560ACPSIZ


|    Changer de couleur
     I                                    B 157 1600NBRMBR
     I                                      161 173 CHGDAT
     I                                      174 186 SAVDAT
     I                                      187 199 RSTDAT
     I                                      200 212 EXPDAT
     I                                    B 213 2160NBRDAY
     I                                      217 223 LSTUSD
     I                                      224 230 RESDAT
      ****************************************************************
      *                                                              *
      * API:  QUSRMBRD                                               *
      * Format:  MBRD0300                                            *
      *                                                              *
      ****************************************************************
       01 MBRD0200-RCVVAR.
           05 BYTES-RETURNED                 PIC S9(9) COMP-4.
           05 BYTES-AVAILABLE                PIC S9(9) COMP-4.
           05 FILE-NAME                      PIC X(10).
           05 LIBRARY                        PIC X(10).
           05 MEMBER-NAME                    PIC X(10).
           05 FILE-ATTRIBUTE                 PIC X(10).
           05 SOURCE-TYPE                    PIC X(10).


|    Changer de couleur
           05 CREATION-DATE                  PIC X(13).
           05 LAST-SOURCE-CHANGE-DATE        PIC X(13).
           05 MEMBER-TEXT                    PIC X(50).
           05 SOURCE-FILE                    PIC X(01).
           05 EXTERNAL-FILE                  PIC X(01).
           05 LOGICAL-FILE                   PIC X(01).
           05 SHARE-ODP                      PIC X(01).
           05 FILLER                         PIC X(02).
           05 NUMBER-RECORDS                 PIC S9(9) COMP-4.
           05 NUMBER-DELETED-RECORDS         PIC S9(9) COMP-4.
           05 DATA-SPACE-SIZE                PIC S9(9) COMP-4.
           05 ACCESS-PATH-SIZE               PIC S9(9) COMP-4.
           05 NUMBER-MEMBERS                 PIC S9(9) COMP-4.
           05 LAST-CHANGE-DATE               PIC X(13).
           05 LAST-SAVE-DATE                 PIC X(13).
           05 LAST-RESTORE-DATE              PIC X(13).
           05 EXPIRATION-DATE                PIC X(13).
           05 NUMBER-DAYS-USED               PIC S9(9) COMP-4.
           05 LAST-USED-DATE                 PIC X(07).
           05 USAGE-RESET-DATE               PIC X(07).
      ****************************************************************
     IRCVVAR      DS


|    Changer de couleur
     I                                    B   1   40BYTRTN
     I                                    B   5   80BYTVAL
     I                                        9  28 FILLIB
     I                                        9  18 FILNAM
     I                                       19  28 LIBNAM
     I                                       29  38 MBRNAM
     I                                       39  48 FILATR
     I                                       49  58 SRCTYP
     I                                       59  71 CRTDAT
     I                                       72  84 SRCCHG
     I                                       85 134 TEXT
     I                                      135 135 SRCF
     I                                      136 136 EXTF
     I                                      137 137 LF
     I                                      138 138 ODPSHR
     I                                      139 140 RESER1
     I                                    B 141 1440NBRRCD
     I                                    B 145 1480DLTRCD
     I                                    B 149 1520DSSIZ
     I                                    B 153 1560ACPSIZ
     I                                    B 157 1600NBRMBR
     I                                      161 173 CHGDAT


|    Changer de couleur
     I                                      174 186 SAVDAT
     I                                      187 199 RSTDAT
     I                                      200 212 EXPDAT
     I                                    B 213 2160NBRDAY
     I                                      217 223 LSTUSD
     I                                      224 230 RESDAT




©AF400