| 
API diverses (autre que de type RTV... ou "LISTE DE...") POOL système Modification d'un pool systeme + QUSRCHGPA - BIN(4,0) N° du pool système - BIN(4,0) Nouvelle taille (-1 = *SAME) - BIN(4,0) Nouveau niveau d'activité (-1 = *SAME) -------------optionnel----------------- - CHAR(1) Envoi de messgae(QSYSOPR et QHST) Y = Yes, N = No - CHAR(?) Zone de retour d'erreur |
|
API diverses (autre que de type RTV... ou "LISTE DE...") SECURITE Validation d'un profil (pour changement ultérieur) + QSYGETPH - CHAR(10) Profil utilisateur . un nom . *CURRENT - CHAR(10) Mot de passe ou *NOPWD si le profil en cours a les droits *ALLOBJ et *SECADM (facultatif si sécurité = 10, si profil = *CURRENT) - CHAR(12) Variable en retour contenant l'identification interne de la validation. |
|
API diverses (autre que de type RTV... ou "LISTE DE...") SECURITE Changement de profil pour le job en cours + QWTSETPH - CHAR(12) Variable contenant une Identification interne d'un profil validé par QSYGETPH Suppression d'une identification interne + QSYRLSPH - CHAR(12) Idem API précédente. |
|
EXEMPLE pgm exécuté par QSECOFR (sinon il faudrait fournir le
mot de passe de QPGMR)
PGM
DCL &VALID1 *CHAR 12
DCL &VALID2 *CHAR 12
CALL QSYGETPH PARM('*CURRENT' ' ' &VALID1)
CALL QSYGETPH PARM('QPGMR ' '*NOPWD' &VALID2)
CALL QWTSETPH &VALID2 /* le job tourne sous QPGMR */
...
...
...
CALL QWTSETPH &VALID1 /* retour à QSECOFR */
CALL QSYRLSPH &VALID1
CALL QSYRLSPH &VALID2
ENDPGM
|
|
API diverses (autre que de type RTV... ou "LISTE DE...") Mémorisation clavier Modification + QWSSETWS - CHAR(1) '0' = Pas de bufferisation '1' = Bufferisation clavier '2' = Bufferisation (sauf ATTN) -------------optionnel----------------- - CHAR(10) Nom écran ou *REQUESTER (dft) Interrogation + QWSQRYWS Memes paramètres que API précédente mais le premier est une variable renseignée par l'API. |
|
API diverses (autre que de type RTV... ou "LISTE DE...") Affichage fenetre de commande + QUSCMDLN (sans paramètres) Conversion de date + QWCCVTDT - CHAR(10) Format de la date -- (*CURRENT,*JOB,*SYSVAL,*JUL,*YMD,etc.) Date = ! <---- - CHAR(?) Date(lg suivant format, si *CURRENT S<date>HHMMSSmmmm! paramètre ignoré) v ! - CHAR(10) Format de retour lg suivant ! <---- - CHAR(?) Variable de retour format -- - CHAR(?) Zone de retour d'erreur |
|
Affichage d'aide(s) + QUHDSPHN - CHAR(?) Identification de(s) aide(s) =X fois 52c <-pnlgrp(10c)-><-bibli(10c)-><-aide(32c)-> - BIN(4,0) nb d'aides (= X) - 2 fois BIN(4,0) Si aide étendue 1er = 1 2eme = X Si aide conceptuelle 1er = 1ere AIDE 2eme = 2eme AIDE (les autres ne seront affichés que par F2) - CHAR(55) Titre de l'aide - CHAR(20) Index <-index(10c)-><-biblio(10c)-> - CHAR(1) Affichage plein écran Y=Yes,N=NO - définition de la fenetre logique concernée par l'aide (à NE PAS RECOUVRIR) .2 fois BIN(4,0) Angle sup gauche - N° ligne + N° colonne .2 fois BIN(4,0) angle inf droit (idem) .2 fois BIN(4,0) position curseur (idem) - Zone de retour d'erreur |
