Te envío un ejemplo de programa y subfichero que te será fácil copiarte y compilar para hacer pruebas.
Espero que te saque del apuro.
A**********************************************************************
A R SUB01 TEXT('Registros subfichero')
A SFL
A NUM1 6Y 0B 4 2EDTCDE(1)
A COLOR(BLU)
A R CAB01 TEXT('Reg.control.') BLINK
A OVERLAY
A CF02(02 'Recuperar.')
A CF04(04 'Guardar.')
A CA07(07 'Finalizar.')
A SFLCTL(SUB01)
A SFLSIZ(500)
A SFLPAG(50)
A SFLLIN(2)
A 25 SFLDSP SFLDSPCTL
A N25 SFLDLT
A N26 SFLEND(*MORE)
A 1 25'CABECERA' DSPATR(HI UL)
A 1 72DATE EDTWRD(' / / ')
A 2 72TIME EDTWRD(' : : ')
A R PIE01 TEXT('Aviso mdtos.') OVERLAY
A CA07(07 'Finalizar.') BLINK
A 12 66'F7-Finalizar.' DSPATR(HI)
A**********************************************************************
A R SUB02 TEXT('Registros subfichero')
A SFL
A NUM2 6Y 0B 18 2EDTCDE(1)
A COLOR(GRN)
A R CAB02 TEXT('Reg.control.') BLINK
A OVERLAY
A CF02(02 'Recuperar.')
A CF04(04 'Guardar.')
A CA07(07 'Finalizar.')
A SFLCTL(SUB02)
A SFLSIZ(500)
A SFLPAG(50)
A SFLLIN(2)
A 25 SFLDSP SFLDSPCTL
A N25 SFLDLT
A N26 SFLEND(*MORE)
A 15 25'CABECERA' DSPATR(HI UL)
A 15 72DATE EDTWRD(' / / ')
A 16 72TIME EDTWRD(' : : ')
A R PIE02 TEXT('Aviso mdtos.') OVERLAY
A CA07(07 'Finalizar.') BLINK
A 23 66'F7-Finalizar.' DSPATR(HI)
A**********************************************************************
H J
F********************************************************
FCHAMZZW CF E WORKSTN
F SUB1N KSFILE SUB01
F SUB2N KSFILE SUB02
C *ENTRY PLIST
C PARM ANUM 3
C*
C MOVE ANUM XNUM 30
C SETON 25
C*
C DO XNUM SUB1N 40
C Z-ADDSUB1N NUM1
C WRITESUB01
C END
C*
C DO XNUM SUB2N 40
C Z-ADDSUB2N NUM2
C WRITESUB02
C END
C*
C WRITEPIE01
C WRITECAB01
C*
C WRITEPIE02
C EXFMTCAB02
C*
C SETON LR
Al parámetro pásale un número que correponderá el número de registros que vas a llenar.
Ejemplo: CALL CHAMZZ ('433')
|
Mecalux
Wilfredo Ramírez <[EMAIL PROTECTED]>
|
Para: "Forum AS/400 (E-mail)" <[email protected]> cc: cco: Asunto: Subfile Horizontal |
Saludos a todos, estoy intentando crear un subfile donde presenta en varias columnas y filas el mismo campo, cuando ejecuto el programa este solamente me presenta una sola linea vertical (negrita), alguien ha hecho esto o si es posible en que site puedo conseguir un ejemplo.
mi sistema operativo es V5R2M0
la idea es esta, (los campos son de Input/output)
Codigo Codigo Codigo
Campo1
Campo1 campo1
Campo1
Campo1 campo1
Campo1
Campo1 campo1
F-3 SALIR F-12 PANTALLA ANTERIOR
las palabras clave que uso son:
SFLDSP
SFLDSPCTL
SFLCLR
SFLEND(*MORE)
SFLSIZ(0080)
SFLPAG(0040)
SFLLIN(0003)
ROLLUP(85 'PAGE UP')
ROLLDOWN(86 'PAGE DOWN')
Gracias...
Wilfredo Ramírez
Analista Seniol IT
Phone : (809) 947-6529
Mobile : (809) 650-0059
Mail : [EMAIL PROTECTED]
WWW.Republicdr.COM.DO
