| 
Améliorations utilitaires de dévelloppement (QPDA) SDA : suppression de bloc avec "--" "--" fenêtre de commande via F22 cdes/lignes multiples admises, si non conflictuelles nouveaux mots-clés V2R30 reconnus(WINDOW(*DFT),HLPID,DSPATR(&x)..) SAUF : CNTFLD (reconnu,non renseignable) PULLDOWN (reconnu, impossible de gérer ce format) MNUBAR (non accepté) et autres mots-clés DDS GRAPHIQUE SDA/conception de menu : choix de la bibliothèque pour DSPF/MSGF |
|
NOM OOOOOOOOOOOOOOOOOOOO PRENOM INTERLOC.: OOOOOOOOOOOOOOOOOOOO RUE INTERLOC. OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO --code postal-- 66666 ######################### VILLE: OOOOOOOOOOOOOOOOOOOO # # # vous pouvez (V2R30) # TEL.: 666666666666666 # supprimer des groupes # # avec -- en début et # DATE NAISSANCE : 666/66/66 # -- en fin # # # # # # # # # ######################### |
|
NOM OOOOOOOOOOOOOOOOOOOO PRENOM INTERLOC.: OOOOOOOOOOOOOOOOOOOO RUE INTERLOC. OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO ........ ........ 66666 ######################### VILLE: OOOOOOOOOOOOOOOOOOOO # # # SDA vous demandera # TEL.: 666666666666666 # de confirmer # # ! # DATE NAISSANCE : 666/66/66 # ! # # ! # # ! # # ! # # v # ######################### Appuyez sur ENTREE pour supprimer ou sur F3/F12 pour annuler |
|
Améliorations utilitaires de dévelloppement (QPDA) SEU : code LP,LPn,LLP-LLP pour imprimer une partie de source invite admis sur écran partagé (enfin !!) cdes/lignes multiples admises, si non conflictuelles |
|
Colonnes . . : 1 71 Edition AF4SRCT/V2R30 SEU==> MEMOIDX ************** Début des données ************************************ 0001.00 PGM 0002.00 DCL &DATA *CHAR 266 LLP .00 DCLF MEMOIDXD 0004.00 RTVJOBA CURUSER(&USER) 0005.00 RTVUSRPRF GRPPRF(&GRP) 0006.00 RTVPRF: IF ((&GRP = ' ') *OR (&GRP = '*NONE')) CHGVAR &IN30 '0' 0007.00 ELSE CHGVAR &IN30 '1' 0008.00 CHGVAR &IN31 '0' 0009.00 RTVUSRIDXE USRIDX(AF400/MEMO) SELECT(*EQ &USER) + 0010.00 RTNVAL(&DATA) 0011.00 MONMSG CPF0000 EXEC(CHGVAR &DATA ' ') 0012.00 CHGVAR &MEMOTXT %SST(&DATA 11 256) 0013.00 AFFPRF: SNDRCVF RCDFMT(FMT) LLP .00 IF &IN03 RETURN 0015.00 IF &IN10 GOTO RTVGRP 0016.00 CHGVAR &DATA (&USER *CAT &MEMOTXT) 0017.00 ADDUSRIDXE USRIDX(AF400/MEMO) INSERTYPE(*RPLKEY) + 0018.00 ENTRY(&DATA) + |
|
Colonnes . . : 1 71 Edition AF4SRCT/V2R30 SEU==> MEMOIDX ************** Début des données ************************************ 0001.00 PGM 0002.00 DCL &DATA *CHAR 266 0003.00 DCLF MEMOIDXD 0004.00 RTVJOBA CURUSER(&USER) 0005.00 RTVUSRPRF GRPPRF(&GRP) 0006.00 RTVPRF: IF ((&GRP = ' ') *OR (&GRP = '*NONE')) CHGVAR &IN30 '0' 0007.00 ELSE CHGVAR &IN30 '1' 0008.00 CHGVAR &IN31 '0' 0009.00 RTVUSRIDXE USRIDX(AF400/MEMO) SELECT(*EQ &USER) + 0010.00 RTNVAL(&DATA) 0011.00 MONMSG CPF0000 EXEC(CHGVAR &DATA ' ') 0012.00 CHGVAR &MEMOTXT %SST(&DATA 11 256) 0013.00 AFFPRF: SNDRCVF RCDFMT(FMT) 0014.00 IF &IN03 RETURN 0015.00 IF &IN10 GOTO RTVGRP 0016.00 CHGVAR &DATA (&USER *CAT &MEMOTXT) 0017.00 ADDUSRIDXE USRIDX(AF400/MEMO) INSERTYPE(*RPLKEY) + 0018.00 ENTRY(&DATA) 12 enregistrements imprimés |
|
Colonnes . . : 1 71 Edition AF4SRCT/V2R30 SEU==> MEMOIDX ************** Début des données ************************************ 0001.00 PGM 0002.00 DCL &DATA *CHAR 266 0003.00 DCLF MEMOIDXD 0004.00 F4 curseur RTVJOBA CURUSER(&USER) 0005.00 v RTVUSRPRF GRPPRF(&GRP) 0006.00 RTVPRF: # IF ((&GRP = ' ') *OR (&GRP = '*NONE')) CHGVAR &IN30 '0' 0007.00 ELSE CHGVAR &IN30 '1' 0008.00 CHGVAR &IN31 '0' Colonnes . . : 1 71 Examen AF4SRCT/V2R30 SEU==> MEMOIDX ************** Début des données ************************************ 0001.00 PGM 0002.00 DCL &DATA *CHAR 266 0003.00 DCLF MEMOIDXD 0004.00 RTVJOBA CURUSER(&USER) 0005.00 RTVUSRPRF GRPPRF(&GRP) 0006.00 RTVPRF: IF ((&GRP = ' ') *OR (&GRP = '*NONE')) CHGVAR &IN30 '0' 0007.00 ELSE CHGVAR &IN30 '1' |
|
Si (IF) Indiquez vos choix, puis appuyez sur ENTREE. Label . . . . . . . . . . . . . > RTVPRF Condition . . . . . . . . . . . COND > ((&GRP = ' ') *OR (&GRP = '*NON E')) Commande . . . . . . . . . . . . THEN > CHGVAR &IN30 '0' Commentaire . . . . . . . . . . Fin F3=Exit F4=Invite F5=Réafficher F12=Annuler F13=Mode d'emploi invite F24=Autres touches |
|
Colonnes . . : 1 71 Edition AF4SRCT/V2R30
SEU==> MEMOIDX
************** Début des données ************************************
0001.00 PGM
C 2.00 DCL &DATA *CHAR 266
0003.00 DCLF MEMOIDXD
0004.00 RTVJOBA CURUSER(&USER)
A 5.00 RTVUSRPRF GRPPRF(&GRP)
D 6.00 RTVPRF: IF COND((&GRP = ' ') *OR (&GRP = '*NONE')) +
I 6.01 THEN(CHGVAR VAR(&IN30) VALUE('0'))
0007.00 ELSE CHGVAR &IN30 '1'
Colonnes . . : 1 71 Examen AF4SRCT/V2R30
SEU==> MEMOIDX
************** Début des données ************************************
0001.00 PGM
0002.00 DCL &DATA *CHAR 266
0003.00 DCLF MEMOIDXD
0004.00 RTVJOBA CURUSER(&USER)
0005.00 RTVUSRPRF GRPPRF(&GRP)
0006.00 RTVPRF: IF ((&GRP = ' ') *OR (&GRP = '*NONE')) CHGVAR &IN30 '0'
0007.00 ELSE CHGVAR &IN30 '1'
|
|
Colonnes . . : 1 71 Edition AF4SRCT/V2R30
SEU==> MEMOIDX
************** Début des données ************************************
0001.00 PGM
0002.00 DCL &DATA *CHAR 266
0003.00 DCLF MEMOIDXD
0004.00 RTVJOBA CURUSER(&USER)
0005.00 RTVUSRPRF GRPPRF(&GRP)
0005.01 DCL &DATA *CHAR 266
0006.01 THEN(CHGVAR VAR(&IN30) VALUE('0'))
'''''''
Colonnes . . : 1 71 Examen AF4SRCT/V2R30
SEU==> MEMOIDX
************** Début des données ************************************
0001.00 PGM
0002.00 DCL &DATA *CHAR 266
0003.00 DCLF MEMOIDXD
0004.00 RTVJOBA CURUSER(&USER)
0005.00 RTVUSRPRF GRPPRF(&GRP)
0006.00 RTVPRF: IF ((&GRP = ' ') *OR (&GRP = '*NONE')) CHGVAR &IN30 '0'
0007.00 ELSE CHGVAR &IN30 '1'
|
|
Améliorations utilitaires de dévelloppement (QPDA) PDM : sous liste avec choix sur la taille des objets deux nouvelles options/valeurs par défaut consigner les options = consigner dans l'historique les commandes exécutées par une option PDM (O = F9 possible) sortie des listes avec ENTREE (N = sortie uniquement avec F3/F12) |
|
Sous-liste d'objets Indiquez vos choix, puis appuyez sur ENTREE. Objet . . . . . . . . . . . . *ALL *ALL, nom, *générique* Type d'objet . . . . . . . . . *ALL *ALL, *type Attribut d'objet . . . . . . . *ALL *ALL, attribut, *générique*, ######## ######## *BLANK Taille d'objet De . . . . . . . . . . . . 0 0 - 9999999999 A . . . . . . . . . . . . . 9999999999 0 - 9999999999 Texte . . . . . . . . . . . . *ALL F3=Exit F5=Réafficher F12=Annuler |
|
Modification des valeurs par défaut Indiquez vos choix, puis appuyez sur ENTREE. Bibliothèque de création . . AF400 Nom, *CURLIB, *SRCLIB Remplacement objet . . . . . N O=Oui, N=Non Compilation par lots . . . . O O=Oui, N=Non Exécution par lots . . . . . N O=Oui, N=Non Sauvegarde valeurs par défaut O O=Oui, N=Non Option sauvegarde/restauration 1 1=Individuelle, 2=Globale Description de travail . . QBATCH Nom, *USRPRF, F4 pour liste Bibliothèque . . . . . . . *LIBL Nom, *CURLIB, *LIBL Modifier type et texte . . O O=Oui, N=Non Fichier d'options . . . . . AF4POURPDM Nom Bibliothèque . . . . . . . AF4TOOL Nom, *CURLIB, *LIBL Membre . . . . . . . . . . . QAUOOPT Nom Mode plein écran . . . . . . N O=Oui, N=Non ############################ ########## ############################## # A suivre... F3=Exit F4=Invite F5=Réafficher F12=Annuler |
|
Modification des valeurs par défaut Indiquez vos choix, puis appuyez sur ENTREE. Consigner commandes d'option O O=Oui, N=Non Sortir des listes avec ENTREE N O=Oui, N=Non Fin F3=Exit F5=Réafficher F12=Annuler |
|
Améliorations utilitaires de dévelloppement (QPDA) RLU : reconnait (dans la ligne zone) les définition de variables et de constantes "type SDA" 'constante' (entre ') variable +o alpha +ooo +o(3) +6 numérique +6666 +6(7,2) |
|
Colonnes . . : 1 121 Conception d'état RLU==> BASE ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 . ------------------------------------------------- Début de la page 001 - VF D001 ---------------------------------------------------- Fin de l'état ----- ################################################## # # # RAPPEL: pour faire apparaitre la ligne "zone" # # (ligne de travail) sur un format vide, # # tapez "VF". # ################################################## |
|
Colonnes . . : 1 121 Conception d'état RLU==> BASE ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 . ------------------------------------------------- Début de la page 001 - ZONE1 +OOOOO RCD001 ---------------------------------------------------- Fin de l'état ----- |
|
Colonnes . . : 1 121 Conception d'état RLU==> BASE ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 . ------------------------------------------------- Début de la page 001 - ZONE1 <...> +6(7,2) RCD001 XXXXX ---------------------------------------------------- Fin de l'état ----- |
|
Colonnes . . : 1 121 Conception d'état RLU==> BASE ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 . ------------------------------------------------- Début de la page 001 - ZONE1 <...> <.......> 'CECI EST UN ESSAI' RCD001 XXXXX 99999,99- ---------------------------------------------------- Fin de l'état ----- |
|
Colonnes . . : 1 121 Conception d'état RLU==> BASE ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 . ------------------------------------------------- Début de la page 001 - ZONE1 <...> <.......> <...............> RCD001 XXXXX 99999,99- CECI EST UN ESSAI ---------------------------------------------------- Fin de l'état ----- |
|
Définition de zone Longueur éditée . . . . . . . . . . . : 17 Format d'enregistrement . . . . . . . : RCD001 Nombre de mots clés . . . . . . . . . : 1 Nombre d'indicateurs . . . . . . . . : 0 Mot clé constante . . . . . . . . . . : 'CECI EST UN ESSAI' ################################################ # Après F23 sur la constante pour vérification # ################################################ Indiquez vos choix, puis appuyez sur ENTREE. Indicateurs d'option . . . . . . . . 01-99, N01-N99 Autres indicateurs . . . . . . . . N O=Oui, N=Non Ligne de début . . . . . . . . . . . 1-255 Position de début . . . . . . . . . . +4 1-255, +nn F3=Exit F5=Réafficher F11=Convertir en zone nommée F12=Annuler |
|
Index d'aide Indiquez vos options et appuyez sur ENTREE (+ indique des sous-rubriques) 5=Afficher rubrique 6=Imprimer rubrique 7=Détailler rubrique 8=Condenser rubrique Opt Rubrique Informations sur Outils de développement d'applications A propos des informations ADT (ADT) + Application Development Manager/400 (App) 7 + Outils de développement d'applications (ADT) ########################################################################## # # # Et enfin l'index d'aide (QPDA/QHPW1) a été remanié et utilise # # la nouvelle organisation hiérarchique des indexs (voir UIM) # # # ########################################################################## Fin ou entrez les termes à rechercher et appuyez sur ENTREE (le signe * indique les rubriques contenant les termes recherchés). F3=Fin d'aide F5=Toutes les rubriques F6=Rubriques principales F11=Cacher structure F12=Annuler F18=Autres index F24=Autres touches |
|
Index d'aide Indiquez vos options et appuyez sur ENTREE (+ indique des sous-rubriques) 5=Afficher rubrique 6=Imprimer rubrique 7=Détailler rubrique 8=Condenser rubrique Opt Rubrique Informations sur Outils de développement d'applications A propos des informations ADT (ADT) + Application Development Manager/400 (App) Outils de développement d'applications (ADT) + Aide à la conception d'images-écran (SDA) + Editeur de source (SEU) + Fonctions évoluées d'impression (APF) + Gestionnaire de développement (PDM) + Utilitaire de création-maintenance de fichier (DFU) + Utilitaire de générateur de caractères (CGU) A suivre... ou entrez les termes à rechercher et appuyez sur ENTREE (le signe * indique les rubriques contenant les termes recherchés). F3=Fin d'aide F5=Toutes les rubriques F6=Rubriques principales F11=Cacher structure F12=Annuler F18=Autres index F24=Autres touches |
