Renvoie infos sur un profil

BoTTom |    Changer de couleur
      ****************************************************************
      *                                                              *
      * API:  QSYRUSRI                                               *
      * Format:  USRI0100                                            *
      *                                                              *
      ****************************************************************
       01 USRI0100-RCVVAR.
           05 BYTES-RETURNED                 PIC S9(9) COMP-4.
           05 BYTES-AVAILABLE                PIC S9(9) COMP-4.
           05 USER-PROFILE                   PIC X(10).
           05 PREVIOUS-SIGNON                PIC X(13).
           05 FILLER-1                       PIC X(01).
           05 SIGNON-NOTVAL                  PIC S9(9) COMP-4.
           05 USER-STATUS                    PIC X(10).
           05 PWDCHG-DATE                    PIC X(08).
           05 NO-PASSWORD                    PIC X(01).
           05 FILLER-2                       PIC X(01).
           05 PWDEXP-INTERVAL                PIC S9(9) COMP-4.
           05 PWDEXP-DATE                    PIC X(08).
           05 PWDEXP-DAYS                    PIC S9(9) COMP-4.
           05 PASSWORD-EXPIRED               PIC X(01).
           05 DISPLAY-SIGNON                 PIC X(10).


|    Changer de couleur
     I****************************************************************
     IRCVVAR      DS
     I                                    B   1   40BYTRTN
     I                                    B   5   80BYTVAL
     I                                        9  18 USRPRF
     I                                       19  31 PRVSGN
     I                                       32  32 FILL1
     I                                    B  33  360SGNNV
     I                                       37  46 STATUS
     I                                       47  54 PWDCHG
     I                                       55  55 NOPWD
     I                                       56  56 FILL2
     I                                    B  57  600PWDEXI
     I                                       61  68 PWDEXD
     I                                    B  69  720DAYSEX
     I                                       73  73 PWDEXP
     I                                       74  83 DSPSGN
      ****************************************************************
      *                                                              *
      * API:  QSYRUSRI                                               *
      * Format:  USRI0200                                            *
      *                                                              *


|    Changer de couleur
      ****************************************************************
       01 USRI0200-RCVVAR.
           05 BYTES-RETURNED                 PIC S9(9) COMP-4.
           05 BYTES-AVAILABLE                PIC S9(9) COMP-4.
           05 USER-PROFILE                   PIC X(10).
           05 USER-CLASS                     PIC X(10).
           05 SPECIAL-AUTHORITIES.
               10 ALL-OBJECT                 PIC X(01).
               10 SECURITY-ADMIN             PIC X(01).
               10 JOB-CONTROL                PIC X(01).
               10 SPOOL-CONTROL              PIC X(01).
               10 SAVE-SYSTEM                PIC X(01).
               10 SERVICE                    PIC X(01).
               10 RESERVED-1                 PIC X(09).
           05 GROUP-PROFILE                  PIC X(10).
           05 OWNER                          PIC X(10).
           05 GROUP-AUTHORITY                PIC X(10).
           05 LIMIT-CAPABILITIES             PIC X(10).
     I****************************************************************
     IRCVVAR      DS
     I                                    B   1   40BYTRTN
     I                                    B   5   80BYTVAL


|    Changer de couleur
     I                                        9  18 USRPRF
     I                                       19  28 USRCLS
     I                                       29  43 SPCAUT
     I                                       29  29 ALLOBJ
     I                                       30  30 SECADM
     I                                       31  31 JOBCTL
     I                                       32  32 SPLCTL
     I                                       33  33 SAVSYS
     I                                       34  34 SERVIC
     I                                       35  43 RESV1
     I                                       44  53 GRPPRF
     I                                       54  63 OWNER
     I                                       64  73 GRPAUT
     I                                       74  83 LMTCPB
      ****************************************************************
      *                                                              *
      * API:  QSYRUSRI                                               *
      * Format:  USRI0300                                            *
      *                                                              *
      ****************************************************************
       01 USRI0300-RCVVAR.
           05 BYTES-RETURNED                 PIC S9(9) COMP-4.


|    Changer de couleur
           05 BYTES-AVAILABLE                PIC S9(9) COMP-4.
           05 USER-PROFILE                   PIC X(10).
           05 PREVIOUS-SIGNON                PIC X(13).
           05 FILLER-1                       PIC X(01).
           05 SIGNON-NOTVAL                  PIC S9(9) COMP-4.
           05 USER-STATUS                    PIC X(10).
           05 PWDCHG-DATE                    PIC X(08).
           05 NO-PASSWORD                    PIC X(01).
           05 FILLER-2                       PIC X(01).
           05 PWDEXP-INTERVAL                PIC S9(9) COMP-4.
           05 PWDEXP-DATE                    PIC X(08).
           05 PWDEXP-DAYS                    PIC S9(9) COMP-4.
           05 PASSWORD-EXPIRED               PIC X(01).
           05 USER-CLASS                     PIC X(10).
           05 SPECIAL-AUTHORITIES.
               10 ALL-OBJECT                 PIC X(01).
               10 SECURITY-ADMIN             PIC X(01).
               10 JOB-CONTROL                PIC X(01).
               10 SPOOL-CONTROL              PIC X(01).
               10 SAVE-SYSTEM                PIC X(01).
               10 SERVICE                    PIC X(01).
               10 RESERVED-1                 PIC X(09).


|    Changer de couleur
           05 GROUP-PROFILE                  PIC X(10).
           05 OWNER                          PIC X(10).
           05 GROUP-AUTHORITY                PIC X(10).
           05 ASSISTANCE-LEVEL               PIC X(10).
           05 CURRENT-LIBRARY                PIC X(10).
           05 INITIAL-MENU.
               10 INLMNU-NAME                PIC X(10).
               10 INLMNU-LIB                 PIC X(10).
           05 INITIAL-PGM.
               10 INLPGM-NAME                PIC X(10).
               10 INLPGM-LIB                 PIC X(10).
           05 LIMIT-CAPABILITIES             PIC X(10).
           05 TEXT-DESCRIPTION               PIC X(50).
           05 DISPLAY-SIGNON                 PIC X(10).
           05 LIMIT-DEVICESSN                PIC X(10).
           05 KEYBOARD-BUFFERING             PIC X(10).
           05 FILLER-3                       PIC X(02).
           05 MAX-STORAGE                    PIC S9(9) COMP-4.
           05 STORAGE-USED                   PIC S9(9) COMP-4.
           05 SCHEDULING-PRIORITY            PIC X(01).
           05 JOB-DESCRIPTION.
               10 JOBD-NAME                  PIC X(10).


|    Changer de couleur
               10 JOBD-LIB                   PIC X(10).
           05 ACCOUNTING-CODE                PIC X(15).
           05 MESSAGE-QUEUE.
               10 MSGQ-NAME                  PIC X(10).
               10 MSGQ-LIB                   PIC X(10).
           05 MSGQ-DELIVERY                  PIC X(10).
           05 FILLER-4                       PIC X(02).
           05 MSGQ-SEVERITY                  PIC S9(9) COMP-4.
           05 OUTPUT-QUEUE.
               10 OUTQ-NAME                  PIC X(10).
               10 OUTQ-LIB                   PIC X(10).
           05 PRINT-DEVICE                   PIC X(10).
           05 SPECIAL-ENVIRONMENT            PIC X(10).
           05 ATTENTION-PROGRAM.
               10 ATTNPGM-NAME               PIC X(10).
               10 ATTNPGM-LIB                PIC X(10).
           05 LANGUAGE-ID                    PIC X(10).
           05 COUNTRY-ID                     PIC X(10).
           05 CCSID                          PIC S9(9) COMP-4.
           05 USER-OPTIONS.
               10 SHOW-KEYWORDS              PIC X(01).
               10 SHOW-DETAILS               PIC X(01).


|    Changer de couleur
               10 FULLSCREEN-HELP            PIC X(01).
               10 SHOW-STATUS                PIC X(01).
               10 NOSHOW-STATUS              PIC X(01).
               10 ROLL-KEY                   PIC X(01).
               10 PRINT-MESSAGE              PIC X(01).
               10 RESERVED-2                 PIC X(29).
    * V2R30
           05 SORT-SEQUENCE.
               10 SRTSEQ-NAME                PIC X(10).
               10 SRTSEQ-LIB                 PIC X(10).
           05 OBJECT-AUDIT                   PIC X(10).
           05 AUDIT-LEVEL.
               10 COMMAND-STRINGS            PIC X(1).
               10 CREATE                     PIC X(1).
               10 DLT                        PIC X(1).
               10 JOB-DATA                   PIC X(1).
               10 OBJECT-MANAGEMENT          PIC X(1).
               10 OFFICE-SERVICES            PIC X(1).
               10 PROGRAM-ADOPT              PIC X(1).
               10 SAVE-RESTORE               PIC X(1).
               10 SEC                        PIC X(1).
               10 SERVICE-TOOLS              PIC X(1).


|    Changer de couleur
               10 SPOOL-FILE-DATA            PIC X(1).
               10 SYSTEM-MANAGEMENT          PIC X(1).
               10 RESERVED-3                 PIC X(52).
     I****************************************************************
     IRCVVAR      DS
     I                                    B   1   40BYTRTN
     I                                    B   5   80BYTVAL
     I                                        9  18 USRPRF
     I                                       19  31 PRVSGN
     I                                       32  32 FILL1
     I                                    B  33  360SGNNV
     I                                       37  46 STATUS
     I                                       47  54 PWDCHG
     I                                       55  55 NOPWD
     I                                       56  56 FILL2
     I                                    B  57  600PWDEXI
     I                                       61  68 PWDEXD
     I                                    B  69  720DAYSEX
     I                                       73  73 PWDEXP
     I                                       74  83 USRCLS
     I                                       84  98 SPCAUT
     I                                       84  84 ALLOBJ


|    Changer de couleur
     I                                       85  85 SECADM
     I                                       86  86 JOBCTL
     I                                       87  87 SPLCTL
     I                                       88  88 SAVSYS
     I                                       89  89 SERVIC
     I                                       90  98 RESV1
     I                                       99 108 GRPPRF
     I                                      109 118 OWNER
     I                                      119 128 GRPAUT
     I                                      129 138 ASTLVL
     I                                      139 148 CURLIB
     I                                      149 168 INLMNU
     I                                      149 158 MENUNM
     I                                      159 168 MENULB
     I                                      169 188 INLPGM
     I                                      169 178 PGMNAM
     I                                      179 188 PGMLIB
     I                                      189 198 LMTCPB
     I                                      199 248 TEXTD
     I                                      249 258 DSPSGN
     I                                      259 268 LMTDEV
     I                                      269 278 KBDBUF


|    Changer de couleur
     I                                      279 280 FILL3
     I                                    B 281 2840MAXSTG
     I                                    B 285 2880STGUSD
     I                                      289 289 SCHDPR
     I                                      290 309 JOBD
     I                                      290 299 JOBDNM
     I                                      300 309 JOBDLB
     I                                      310 324 ACCTCD
     I                                      325 344 MSGQ
     I                                      325 334 MSGQNM
     I                                      335 344 MSGQLB
     I                                      345 354 MSGQDL
     I                                      355 356 FILL4
     I                                    B 357 3600MSGQSV
     I                                      361 380 OUTQ
     I                                      361 370 OUTQNM
     I                                      371 380 OUTQLB
     I                                      381 390 PRTDEV
     I                                      391 400 SPCENV
     I                                      401 420 ATTPGM
     I                                      401 410 ATTNAM
     I                                      411 420 ATTLIB


|    Changer de couleur
     I                                      421 430 LANGID
     I                                      431 440 CTRYID
     I                                    B 441 4440CCSID
     I                                      445 480 USROPT
     I                                      445 445 SHWKWD
     I                                      446 446 SHWDET
     I                                      447 447 FULSCR
     I                                      448 448 SHWSTS
     I                                      449 449 NOSTS
     I                                      450 450 ROLKEY
     I                                      451 451 PRTMSG
     I                                      452 480 RESV2
      * V2R30
     I                                      481 500 SRTSEQ
     I                                      481 490 SRTNAM
     I                                      491 500 SRTLIB
     I                                      501 510 OBJAUD
     I                                      511 574 AUDLVL
     I                                      511 511 CMDSTR
     I                                      512 512 CREATE
     I                                      513 513 DELETE
     I                                      514 514 JOBDTA


|    Changer de couleur
     I                                      515 515 OBJMGT
     I                                      516 516 OFCSRV
     I                                      517 517 PGMADP
     I                                      518 518 SAVRST
     I                                      519 519 SECRTY
     I                                      520 520 SERVCE
     I                                      521 521 SPLDTA
     I                                      522 522 SYSMGT
     I                                      523 574 RESV3




©AF400