| 
########### ########### ## ## ## ## ## ## ## ## ## ## ########### ########### ## ## ## ## ## ## ## ## ## ## ########### # ########### # ########### O N T U T I R R L C Y I E T Y EDITEUR DE SOURCE SUR AS/400 |
|
Démarrer SEU Indiquez vos choix, puis appuyez sur Entrée. Fichier source . . . . . . . . . SRCFILE *PRV Bibliothèque . . . . . . . . . Membre source . . . . . . . . . SRCMBR *PRV Type de source . . . . . . . . . TYPE *SAME Option . . . . . . . . . . . . . OPTION *BLANK Texte de 'description' . . . . . TEXT *BLANK ############################################################################## ## ## ## La mise en oeuvre de SEU est faite à l'aide de la commande STRSEU dont ## ## voici le guide opérateur. ## ## ## ## ## ## ## ## ## ############################################################################## F3=Exit F4=Liste F5=Réafficher F11=Réponses possibles F12=Ecran précédent F13=Mode d'emploi invite |
|
Démarrer SEU Indiquez vos choix, puis appuyez sur Entrée. Fichier source . . . . . . . . . SRCFILE ----> *PRV Bibliothèque . . . . . . . . . Membre source . . . . . . . . . SRCMBR ----> *PRV Type de source . . . . . . . . . TYPE ----> *SAME Option . . . . . . . . . . . . . OPTION ----> *BLANK Texte de 'description' . . . . . TEXT ----> *BLANK ############################################################################## ## ## ## La mise en oeuvre de SEU est faite à l'aide de la commande STRSEU dont ## ## voici le guide opérateur. ## ## ## ## Chacun des paramètres est à compléter si besoin est. ## ## ## ## ## ############################################################################## F3=Exit F4=Liste F5=Réafficher F11=Réponses possibles F12=Ecran précédent F13=Mode d'emploi invite |
|
Démarrer SEU Indiquez vos choix, puis appuyez sur Entrée. Fichier source . . . . . . . . . SRCFILE ----> *PRV Bibliothèque . . . . . . . . . Membre source . . . . . . . . . SRCMBR ----> *PRV Type de source . . . . . . . . . TYPE ----> *SAME Option . . . . . . . . . . . . . OPTION ----> *BLANK Texte de 'description' . . . . . TEXT ----> *BLANK ############################################################################## ## ## ## La mise en oeuvre de SEU est faite à l'aide de la commande STRSEU dont ## ## voici le guide opérateur. ## ## ## ## Chacun des paramètres est à compléter si besoin est. ## ## La valeur devant être saisie pour celui-ci doit etre le nom d'un fich. ## ## physique dont les données doivent être de type SRC. ## ############################################################################## F3=Exit F4=Liste F5=Réafficher F11=Réponses possibles F12=Ecran précédent F13=Mode d'emploi invite |
|
Démarrer SEU Indiquez vos choix, puis appuyez sur Entrée. Fichier source . . . . . . . . . SRCFILE ----> *PRV Bibliothèque . . . . . . . . . Membre source . . . . . . . . . SRCMBR ----> *PRV Type de source . . . . . . . . . TYPE ----> *SAME Option . . . . . . . . . . . . . OPTION ----> *BLANK Texte de 'description' . . . . . TEXT ----> *BLANK ############################################################################## ## ## ## La mise en oeuvre de SEU est faite à l'aide de la commande STRSEU dont ## ## voici le guide opérateur. ## ## ## ## Chacun des paramètres est à compléter si besoin est. ## ## S'il le nom de la bibliothèque n'est pas indiqué,le système utilisera ## ## le 1° fichier trouvé dans la liste de bibliothèques du travail. ## ############################################################################## F3=Exit F4=Liste F5=Réafficher F11=Réponses possibles F12=Ecran précédent F13=Mode d'emploi invite |
|
Démarrer SEU Indiquez vos choix, puis appuyez sur Entrée. Fichier source . . . . . . . . . SRCFILE ----> *PRV Bibliothèque . . . . . . . . . Membre source . . . . . . . . . SRCMBR ----> *PRV Type de source . . . . . . . . . TYPE ----> *SAME Option . . . . . . . . . . . . . OPTION ----> *BLANK Texte de 'description' . . . . . TEXT ----> *BLANK ############################################################################## ## ## ## La valeur de ce paramètre est le nom du membre source ## ## ## ## Si le membre n'existe pas SEU va le créer ## ## Si le membre n'est pas renseigné SEU affichera la liste des membres ## ## ## ## ## ############################################################################## F3=Exit F4=Liste F5=Réafficher F11=Réponses possibles F12=Ecran précédent F13=Mode d'emploi invite |
|
Démarrer SEU Indiquez vos choix, puis appuyez sur Entrée. Fichier source . . . . . . . . . SRCFILE ----> *PRV Bibliothèque . . . . . . . . . Membre source . . . . . . . . . SRCMBR ----> *PRV Type de source . . . . . . . . . TYPE ----> *SAME Option . . . . . . . . . . . . . OPTION ----> *BLANK Texte de 'description' . . . . . TEXT ----> *BLANK ############################################################################## ## ## ## Le type de source indique a SEU quel contrôle de syntaxe effectuer ## ## Les types de source valides sont : ## ## TXT CLP CBL RPG etc... ## ## ## ## ## ## ## ############################################################################## F3=Exit F4=Liste F5=Réafficher F11=Réponses possibles F12=Ecran précédent F13=Mode d'emploi invite |
|
Démarrer SEU Indiquez vos choix, puis appuyez sur Entrée. Fichier source . . . . . . . . . SRCFILE ----> *PRV Bibliothèque . . . . . . . . . Membre source . . . . . . . . . SRCMBR ----> *PRV Type de source . . . . . . . . . TYPE ----> *SAME Option . . . . . . . . . . . . . OPTION ----> *BLANK Texte de 'description' . . . . . TEXT ----> *BLANK ############################################################################## ## ## ## Ce paramètre indique a SEU ce que vous voulez faire : ## ## ## ## 2 = Modifier le membre source. ## ## 5 = Afficher le membre source. ## ## 6 = Imprimer le membre source. ## ## ## ############################################################################## F3=Exit F4=Liste F5=Réafficher F11=Réponses possibles F12=Ecran précédent F13=Mode d'emploi invite |
|
Démarrer SEU Indiquez vos choix, puis appuyez sur Entrée. Fichier source . . . . . . . . . SRCFILE ----> *PRV Bibliothèque . . . . . . . . . Membre source . . . . . . . . . SRCMBR ----> *PRV Type de source . . . . . . . . . TYPE ----> *SAME Option . . . . . . . . . . . . . OPTION ----> *BLANK Texte de 'description' . . . . . TEXT ----> *BLANK ############################################################################## ## ## ## Ce paramètre permet d'associer un texte au membre source. ## ## ## ## ## ## ## ## ## ## ## ############################################################################## F3=Exit F4=Liste F5=Réafficher F11=Réponses possibles F12=Ecran précédent F13=Mode d'emploi invite |
|
Colonnes . . .: 1 71 Edition SOURCE/QTXTSRC SEU=> TEST FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ************** Début des données ************************************ ''''''' ''''''' ''''''' ''''''' ''''''' ''''''' ''''''' ''''''' ''''''' ''''''' ''''''' ''''''' ''''''' ''''''' ''''''' *************** Fin des données ************************************* F3=Exit F4=Invite F5=Réafficher F10=Début F11=Fin F24=Autres touches |
|
Colonnes . . .: 1 71 Edition SOURCE/QTXTSRC SEU=> TEST FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ************** Début des données ************************************ ''''''' ''''''' ''''''' #################################### ''''''' ## Voici l'écran qui vous est ## ''''''' ## affiché quand vous appellez ## ''''''' ## SEU en travaillant sur un ## ''''''' ## membre inexistant ## ''''''' ## ## ''''''' ## Appuyons sur <ENTREE> ## ''''''' #################################### ''''''' ''''''' ''''''' ''''''' ''''''' *************** Fin des données ************************************* F3=Exit F4=Invite F5=Réafficher F10=Début F11=Fin F24=Autres touches |
|
Colonnes . . .: 1 71 Révision SOURCE/QTXTSRC SEU=> TEST FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ************** Début des données ************************************ *************** Fin des données ************************************* F3=Exit F4=Invite F5=Réafficher F10=Début F11=Fin F24=Autres touches |
|
Colonnes . . .: 1 71 Révision SOURCE/QTXTSRC SEU=> TEST FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ************** Début des données ************************************ *************** Fin des données ************************************* ############################################################ ## L'information Colonnes indique les colonnes affichées ## ## en effet SEU ne peut pas afficher les 80 colonnes ## ## d'un fichier source standard. ## ## SEU nous rappel que nous sommes en Révision(OPTION 2) ## ## le fichier source et le membre utilisés ## ## ## ## SEU prevoit une zone de saisie de commandes internes. ## ## ## ## Regardons comment utiliser cet écran ## ## ## ############################################################ F3=Exit F4=Invite F5=Réafficher F10=Début F11=Fin F24=Autres touches |
|
Colonnes . . .: 1 71 Révision SOURCE/QTXTSRC SEU=> TEST FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ************** Début des données ************************************ *************** Fin des données ************************************* Tout d'abord, étudions comment insérer une ligne. F3=Exit F4=Invite F5=Réafficher F10=Début F11=Fin F24=Autres touches |
|
Colonnes . . .: 1 71 Révision SOURCE/QTXTSRC SEU=> TEST FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...... ************** Début des données ************************************ *************** Fin des données ************************************* Tout d'abord, étudions comment insérer une ligne. Un code doit être saisi dans la partie que l'on appelle N° de séquence Cette emplacement est materialisé par un trait clignotant. F3=Exit F4=Invite F5=Réafficher F10=Début F11=Fin F24=Autres touches |
|
Colonnes . . .: 1 71 Révision SOURCE/QTXTSRC SEU=> TEST FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 I .... ************** Début des données ************************************ *************** Fin des données ************************************* Tout d'abord, étudions comment insérer une ligne. Un code doit être saisi dans la partie que l'on appelle N° de séquence Cette emplacement est materialisé par un trait clignotant. Le code demandant l'insertion d'une nouvelle ligne est I. Vous entrez donc un I dans cet emplacement N° de séquence et vous appuyez sur la touche ENTREE. F3=Exit F4=Invite F5=Réafficher F10=Début F11=Fin F24=Autres touches |
|
Colonnes . . .: 1 71 Révision SOURCE/QTXTSRC SEU=> TEST FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ************** Début des données ************************************ ....... *************** Fin des données ************************************* Un espace entre début et fin des données est créé pour vous permettre de saisir un ordre de programme dans la partie appelée zone de données. F3=Exit F4=Invite F5=Réafficher F10=Début F11=Fin F24=Autres touches |
|
Colonnes . . .: 1 71 Révision SOURCE/QTXTSRC SEU=> TEST FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ************** Début des données ************************************ ....... I N S T R U C T I O N *************** Fin des données ************************************* Vous pouvez désormais saisir cette instruction. Lorsque vous appuyez sur ENTREE un N° de séquence est attribué à cette ligne et une nouvelle ligne de saisie vous est proposée. F3=Exit F4=Invite F5=Réafficher F10=Début F11=Fin F24=Autres touches |
|
Colonnes . . .: 1 71 Révision SOURCE/QTXTSRC SEU=> TEST FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ************** Début des données ************************************ 0001.00 I N S T R U C T I O N ....... *************** Fin des données ************************************* Lorsque vous désirez arreter l'insertion de lignes, vous appuyez sur ENTREE sans saisir aucun caractère. F3=Exit F4=Invite F5=Réafficher F10=Début F11=Fin F24=Autres touches |
|
Colonnes . . .: 1 71 Révision SOURCE/QTXTSRC SEU=> TEST FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ************** Début des données ************************************ 0001.00 I N S T R U C T I O N *************** Fin des données ************************************* Toutes les lignes affichées sont modifiables Vous pouvez reprendre l'insertion avec le code I. F3=Exit F4=Invite F5=Réafficher F10=Début F11=Fin F24=Autres touches |
|
Colonnes . . .: 1 71 Révision SOURCE/QTXTSRC SEU=> TEST FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ************** Début des données ************************************ 0001.00 PGM 0002.00 DCLF FILE(BIB/ECRAN) 0003.00 DCL VAR(&ZONE) TYPE(*CHAR) LEN(6) 0004.00 DCL VAR(&MSG) TYPE(*CHAR) LEN(80) 0005.00 DCL VAR(&TOP) TYPE(*LGL) 0006.00 DCL VAR(&ERRCNT) TYPE(*DEC) LEN(1) VALUE(0) *************** Fin des données ************************************* Imaginons maintenant que plusieurs lignes d'un programme CL ont été saisies. F3=Exit F4=Invite F5=Réafficher F10=Début F11=Fin F24=Autres touches |
|
Colonnes . . .: 1 71 Révision SOURCE/QTXTSRC SEU=> TEST FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ************** Début des données ************************************ 0001.00 PGM 0002.00 DCLF FILE(BIB/ECRAN) 0003.00 DCL VAR(&ZONE) TYPE(*CHAR) LEN(6) 0004.00 DCL VAR(&MSG) TYPE(*CHAR) LEN(80) 0005.00 DCL VAR(&TOP) TYPE(*LGL) 0006.00 DCL VAR(&ERRCNT) TYPE(*DEC) LEN(1) VALUE(0) *************** Fin des données ************************************* Imaginons maintenant que plusieurs lignes d'un programme CL ont été saisies. Vous désirez supprimer l'une de ces lignes, par exemple la N° 0004.00 F3=Exit F4=Invite F5=Réafficher F10=Début F11=Fin F24=Autres touches |
|
Colonnes . . .: 1 71 Révision SOURCE/QTXTSRC SEU=> TEST FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ************** Début des données ************************************ 0001.00 PGM 0002.00 DCLF FILE(BIB/ECRAN) 0003.00 DCL VAR(&ZONE) TYPE(*CHAR) LEN(6) D 04.00 DCL VAR(&MSG) TYPE(*CHAR) LEN(80) 0005.00 DCL VAR(&TOP) TYPE(*LGL) 0006.00 DCL VAR(&ERRCNT) TYPE(*DEC) LEN(1) VALUE(0) *************** Fin des données ************************************* Imaginons maintenant que plusieurs lignes d'un programme CL ont été saisies. Vous désirez supprimer l'une de ces lignes, par exemple la N° 0004.00 Le code à inscrire dans le N° de séquence de cette ligne est D. F3=Exit F4=Invite F5=Réafficher F10=Début F11=Fin F24=Autres touches |
|
Colonnes . . .: 1 71 Révision SOURCE/QTXTSRC SEU=> TEST FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ************** Début des données ************************************ 0001.00 PGM 0002.00 DCLF FILE(BIB/ECRAN) 0003.00 DCL VAR(&ZONE) TYPE(*CHAR) LEN(6) D 04.00 DCL VAR(&MSG) TYPE(*CHAR) LEN(80) 0005.00 DCL VAR(&TOP) TYPE(*LGL) 0006.00 DCL VAR(&ERRCNT) TYPE(*DEC) LEN(1) VALUE(0) *************** Fin des données ************************************* Imaginons maintenant que plusieurs lignes d'un programme CL ont été saisies. Vous désirez supprimer l'une de ces lignes, par exemple la N° 0004.00 Le code à inscrire dans le N° de séquence de cette ligne est D. Lorsque vous appuierez sur ENTREE, cette ligne sera supprimée. F3=Exit F4=Invite F5=Réafficher F10=Début F11=Fin F24=Autres touches |
|
Colonnes . . .: 1 71 Révision SOURCE/QTXTSRC SEU=> TEST FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ************** Début des données ************************************ 0001.00 PGM 0002.00 DCLF FILE(BIB/ECRAN) 0003.00 DCL VAR(&ZONE) TYPE(*CHAR) LEN(6) 0005.00 DCL VAR(&TOP) TYPE(*LGL) 0006.00 DCL VAR(&ERRCNT) TYPE(*DEC) LEN(1) VALUE(0) *************** Fin des données ************************************* F3=Exit F4=Invite F5=Réafficher F10=Début F11=Fin F24=Autres touches |
|
Colonnes . . .: 1 71 Révision SOURCE/QTXTSRC SEU=> TEST FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ************** Début des données ************************************ 0001.00 PGM 0002.00 DCLF FILE(BIB/ECRAN) 0003.00 DCL VAR(&ZONE) TYPE(*CHAR) LEN(6) 0005.00 DCL VAR(&TOP) TYPE(*LGL) 0006.00 DCL VAR(&ERRCNT) TYPE(*DEC) LEN(1) VALUE(0) *************** Fin des données ************************************* Si vous désirez copier l'une de ces lignes à un autre emplacement. F3=Exit F4=Invite F5=Réafficher F10=Début F11=Fin F24=Autres touches |
|
Colonnes . . .: 1 71 Révision SOURCE/QTXTSRC SEU=> TEST FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ************** Début des données ************************************ 0001.00 PGM 0002.00 DCLF FILE(BIB/ECRAN) C 03.00 DCL VAR(&ZONE) TYPE(*CHAR) LEN(6) 0005.00 DCL VAR(&TOP) TYPE(*LGL) 0006.00 DCL VAR(&ERRCNT) TYPE(*DEC) LEN(1) VALUE(0) *************** Fin des données ************************************* Si vous désirez copier l'une de ces lignes à un autre emplacement. Le code à inscrire dans le N° de séquence de la ligne à copier est C. F3=Exit F4=Invite F5=Réafficher F10=Début F11=Fin F24=Autres touches |
|
Colonnes . . .: 1 71 Révision SOURCE/QTXTSRC SEU=> TEST FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ************** Début des données ************************************ 0001.00 PGM 0002.00 DCLF FILE(BIB/ECRAN) C 03.00 DCL VAR(&ZONE) TYPE(*CHAR) LEN(6) 0005.00 DCL VAR(&TOP) TYPE(*LGL) A 06.00 DCL VAR(&ERRCNT) TYPE(*DEC) LEN(1) VALUE(0) *************** Fin des données ************************************* Si vous désirez copier l'une de ces lignes à un autre emplacement. Le code à inscrire dans le N° de séquence de la ligne à copier est C. Vous devez également préciser la destination de cette ligne par un autre code. Ce code est A (After). F3=Exit F4=Invite F5=Réafficher F10=Début F11=Fin F24=Autres touches |
|
Colonnes . . .: 1 71 Révision SOURCE/QTXTSRC SEU=> TEST FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ************** Début des données ************************************ 0001.00 PGM 0002.00 DCLF FILE(BIB/ECRAN) C 03.00 DCL VAR(&ZONE) TYPE(*CHAR) LEN(6) 0005.00 DCL VAR(&TOP) TYPE(*LGL) A 06.00 DCL VAR(&ERRCNT) TYPE(*DEC) LEN(1) VALUE(0) *************** Fin des données ************************************* Si vous désirez copier l'une de ces lignes à un autre emplacement. Le code à inscrire dans le N° de séquence de la ligne à copier est C. Vous devez également préciser la destination de cette ligne par un autre code. Ce code est A (After). Lorsque vous appuierez sur ENTREE, cette ligne sera copiée à l'endroit indiqué. F3=Exit F4=Invite F5=Réafficher F10=Début F11=Fin F24=Autres touches |
|
Colonnes . . .: 1 71 Révision SOURCE/QTXTSRC SEU=> TEST FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ************** Début des données ************************************ 0001.00 PGM 0002.00 DCLF FILE(BIB/ECRAN) 0003.00 DCL VAR(&ZONE) TYPE(*CHAR) LEN(6) 0005.00 DCL VAR(&TOP) TYPE(*LGL) 0006.00 DCL VAR(&ERRCNT) TYPE(*DEC) LEN(1) VALUE(0) 0007.00 DCL VAR(&ZONE) TYPE(*CHAR) LEN(6) *************** Fin des données ************************************* Si au lieu de mettre un C, vous mettez un M, c'est un mouvement, c'est à dire qu'à l'emplacement d'origine, la ligne disparait. F3=Exit F4=Invite F5=Réafficher F10=Début F11=Fin F24=Autres touches |
|
Colonnes . . .: 1 71 Révision SOURCE/QTXTSRC SEU=> TEST FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ************** Début des données ************************************ 0001.00 PGM 0002.00 DCLF FILE(BIB/ECRAN) 0003.00 DCL VAR(&ZONE) TYPE(*CHAR) LEN(6) 0005.00 DCL VAR(&TOP) TYPE(*LGL) 0006.00 DCL VAR(&ERRCNT) TYPE(*DEC) LEN(1) VALUE(0) 0007.00 DCL VAR(&ZONE) TYPE(*CHAR) LEN(6) *************** Fin des données ************************************* Si au lieu de mettre un C, vous mettez un M, c'est un mouvement, c'est à dire qu'à l'emplacement d'origine, la ligne disparait. Si au lieu de mettre un A, vous mettez un B, la copie ou le déplacement sera effectué avant (Before) la ligne destination. F3=Exit F4=Invite F5=Réafficher F10=Début F11=Fin F24=Autres touches |
|
Colonnes . . .: 1 71 Révision SOURCE/QTXTSRC SEU=> TEST FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ************** Début des données ************************************ 0001.00 PGM C5 2.00 DCLF FILE(BIB/ECRAN) 0003.00 DCL VAR(&ZONE) TYPE(*CHAR) LEN(6) 0005.00 DCL VAR(&TOP) TYPE(*LGL) 0006.00 DCL VAR(&ERRCNT) TYPE(*DEC) LEN(1) VALUE(0) 0007.00 DCL VAR(&ZONE) TYPE(*CHAR) LEN(6) *************** Fin des données ************************************* Tous les codes que vous venez de voir, peuvent être suivi d'un nombre et d'un espace. F3=Exit F4=Invite F5=Réafficher F10=Début F11=Fin F24=Autres touches |
|
Colonnes . . .: 1 71 Révision SOURCE/QTXTSRC SEU=> TEST FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ************** Début des données ************************************ 0001.00 PGM C5 2.00 DCLF FILE(BIB/ECRAN) 0003.00 DCL VAR(&ZONE) TYPE(*CHAR) LEN(6) 0005.00 DCL VAR(&TOP) TYPE(*LGL) 0006.00 DCL VAR(&ERRCNT) TYPE(*DEC) LEN(1) VALUE(0) 0007.00 DCL VAR(&ZONE) TYPE(*CHAR) LEN(6) *************** Fin des données ************************************* Tous les codes que vous venez de voir, peuvent être suivi d'un nombre et d'un espace. Ce nombre indique le nombre de lignes à partir de celle ci concernées par l'opération. (ici copier les lignes 2,3,5,6,7) F3=Exit F4=Invite F5=Réafficher F10=Début F11=Fin F24=Autres touches |
|
Colonnes . . .: 1 71 Révision SOURCE/QTXTSRC SEU=> TEST FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ************** Début des données ************************************ 0001.00 PGM CC 2.00 DCLF FILE(BIB/ECRAN) 0003.00 DCL VAR(&ZONE) TYPE(*CHAR) LEN(6) CC 5.00 DCL VAR(&TOP) TYPE(*LGL) 0006.00 DCL VAR(&ERRCNT) TYPE(*DEC) LEN(1) VALUE(0) 0007.00 DCL VAR(&ZONE) TYPE(*CHAR) LEN(6) *************** Fin des données ************************************* Ces codes (sauf l'insertion et la destination d'un transfert) peuvent également être doublés. F3=Exit F4=Invite F5=Réafficher F10=Début F11=Fin F24=Autres touches |
|
Colonnes . . .: 1 71 Révision SOURCE/QTXTSRC SEU=> TEST FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ************** Début des données ************************************ 0001.00 PGM CC 2.00 DCLF FILE(BIB/ECRAN) 0003.00 DCL VAR(&ZONE) TYPE(*CHAR) LEN(6) CC 5.00 DCL VAR(&TOP) TYPE(*LGL) 0006.00 DCL VAR(&ERRCNT) TYPE(*DEC) LEN(1) VALUE(0) 0007.00 DCL VAR(&ZONE) TYPE(*CHAR) LEN(6) *************** Fin des données ************************************* Ces codes (sauf l'insertion et la destination d'un transfert) peuvent également être doublés. Cela permet de délimiter les lignes concernées par l'opération. (ici copier les lignes de 2 à 5) F3=Exit F4=Invite F5=Réafficher F10=Début F11=Fin F24=Autres touches |
|
Colonnes . . .: 1 71 Révision SOURCE/QTXTSRC SEU=> TEST FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ************** Début des données ************************************ 0001.00 PGM 0002.00 DCLF FILE(BIB/ECRAN) 0003.00 DCL VAR(&ZONE) TYPE(*CHAR) LEN(6) 0005.00 DCL VAR(&TOP) TYPE(*LGL) 0006.00 DCL VAR(&ERRCNT) TYPE(*DEC) LEN(1) VALUE(0) 0007.00 DCL VAR(&ZONE) TYPE(*CHAR) LEN(6) *************** Fin des données ************************************* Ces codes (sauf l'insertion et la destination d'un transfert) peuvent également être doublés. Cela permet de délimiter les lignes concernées par l'opération. Nous allons regarder la liste des codes valides |
