Ahí va:
DSPF:
A DSPSIZ(24 80 *DS3)
A R SFL SFL
A CAMPO 25 O 3 3
A R CTL SFLCTL(SFL)
A CA03(03 'Salir')
A RTNCSRLOC(*WINDOW &LIN &COL)
A CSRLOC(LIN COL)
A SFLCSRRRN(&RCDCUR)
A 41 SFLDSP
A SFLDSPCTL
A 40 SFLCLR
A N70 SFLEND(*MORE)
A SFLSIZ(0016)
A SFLPAG(0015)
A RCDNBR 4S 0H SFLRCDNBR
A RCDCUR 5S 0H
A LIN 3S 0H
A COL 3S 0H
A 2 3'Campo
A DSPATR(HI)
A DSPATR(UL)
RPGLE:
fprusflw cf e workstn sfile(sfl:rcdnbr)
d conta s 3p 0 inz(0)
d rcdmax s 4p 0 inz(0)
d linea pr extpgm('QUSCMDLN')
/free
*in40=*on;
write ctl;
clear *in40;
clear rcdnbr;
clear rcdmax;
for conta=1 to 100;
campo='Registro Nº ' + %char(conta);
rcdnbr += 1;
rcdmax += 1;
write sfl;
endfor;
rcdnbr=1;
if rcdmax>0;
*in41=*on;
else;
clear *in41;
endif;
exfmt ctl;
dow not *in03;
callp linea();
rcdnbr=rcdcur;
exfmt ctl;
enddo;
*inlr=*on;
return;
/end-free
Saludos.
Juan Carlos.
__________________________________________________ Forum.HELP400 es un servicio más de NEWS/400. © Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es _____________________________________________________
Para darte de baja visita la siguente URL: http://listas.combios.es/mailman/listinfo/forum.help400
