| 
NOUVEAUX MOTS-CLES de LA V2R20 pour les fichiers écrans. - SFLDROP et SFLFOLD peuvent co-exister sur un même format (s'ils sont conditionnés). - SFLMODE renvoi dans une variable (1 alpha) l'état du sous-fichier '0' = multilignes '1' = tronqué Il devient donc très facile de réafficher le sous-fichier tel quel. dspf A R FMTCTL SFLCTL(FMTSFL) A 50 SFLDROP(CA11) A N50 SFLFOLD(CA11) A SFLMODE(&CODE) A* A CODE 1A H pgm/rpg C MOVE CODE *IN50 C EXFMTFMTCTL |
|
- Autres retour d'informations - RTNCSRLOC renvoi la position curseur dans 3 zones 1/ nom du format. (10 alpha usage:H) 2/ nom de la zone. (10 alpha usage:H) 3/ position dans la zone. (4 dt 0 usage:H) - SFLCSRRRN renvoi le numéro de rang de sous-fichier correspondant à la position curseur. (5 dt o usage:H) A R FMTCTL SFL A .... A R FMTCTL SFLCTL(FMTSFL) CF04(04 'liste') A RTNCSRLOC(&RTNFMT &RTNZON) A SFLCSRRRN(&RTNRG) A RTNFMT 10A H A RTNZON 10A H A RTNRG 5S 0H |
|
pgm/rpg C EXFMTFMTCTL C *IN04 IFEQ *ON C RTNFMT IFEQ 'FMTCTL' C* curseur sur fmt de contrôle C RTNZON IFEQ 'ZONE1' C ... C ENDIF C RTNZON IFEQ 'ZONE2' C ... C ENDIF C ELSE C* curseur sur sous-fichier C RTNRG CHAINFMTSFL 90 C *IN90 IFEQ *OFF C RTNZON IFEQ 'ZONE3' C ... C ENDIF C UPDATFMTSFL C ENDIF C* C ENDIF Voir aussi l'exemple associé ! |
|
SFLCSRRRN permet de savoir sur quel enregistrement (n° rang) d'un sous fichier était positionné le curseur (ATTENTION, s'il est positionné hors sous-fichier , contient 0) Et enfin SFLEND accepte le paramètre *MORE (SFLEND(*MORE).) ce qui permet l'affichage de 'A suivre...' ou de 'Fin.' sur une ligne supplémentaire: Attention aux recouvrements de formats ! |
