DCL-DS DSH;
PNLDS CHAR(10);
BIBDS CHAR(10);
HLPDS CHAR(32);
End-Ds;
DCL-S X INt(10);
DCL-S NH INt(10);
DCL-DS ZERROR;
LGERR INt(10);
LGRCV INT(10);
IDRCV CHAR(7);
reserved char(1);
End-Ds;
dcl-pr QDCXLATE EXTPGM('QDCXLATE');
*n PACKED(5:0) const;
*n CHAR(52);
*n CHAR(10) const;
*n CHAR(10) const;
End-Pr;
dcl-pr QUHDSPH EXTPGM('QUHDSPH');
*n CHAr(52) DIM(25); // tableau de panneaux
// 25 FOIS 52C
//<-PNLGRP-><-BIBLI-><-MODULE->
// 10 10 32
*n INT(10); // nbr de panneaux
*n CHAR(8); // range (1er / dernier)
// (les autres sont affichés avec F2 "AIDE ETENDUE")
*n CHAR(55); // titre
*n CHAR(20); // index <-INDEX(10C)-><-BIBLIO(10C)>
*n CHAR(1); // plein écran Y=Oui, N=Non (fenêtre)
*n CHAR(8); // angle sup. gauche de la partie concernée
*n CHAR(8); // angle inf. droit de la partie concernée
*n CHAR(8); // position curseur
*n CHAR(10); // retour d'erreur
End-Pr;
for x = 1 to P1.NBP;
ELEMH = %SUBST(P1 : P1.Dep(x)+1 : %size(ELEMH));
IF PNL <> *BLANK AND BIB <> *BLANK AND HLP <> *BLANK;
PNLDS = PNL;
BIBDS = BIB;
HLPDS = HLP;
// CVt Minuscules/Majuscules
QDCXLATE(32 : DSH : 'QSYSTRNTBL' : '*LIBL');
NH += 1;
|