|
Definición de la pantalla BAHDCP1.DSPF
R FMTÑ1 KEEP
BUFFER 2048 H
Definición de la pantalla BAHDCP2.DSPF
R FMTÑ0 KEEP
BUFFER 2048 H
R FMTÑ1 USRDFN KEEP
Programa BAHDCPR.RPG
FBAHDCP1 CF E WORKSTN UC
FQSYSPRT O F 132 PRINTER
*
E ECR 24 80
E LIG 80 1
E UL 80 1
E HI 80 1
E B 2048 1
E OVR 1 1 80
*
IBUFFER DS 2048
I 12048 B
*
C CALL 'QCMDEXC'
C PARM OVR
C PARM 80 CMDLN 155
*
C OPEN BAHDCP1
*
C BITOF'01234567'HEX00 1
C BITOF'01234567'HEX02 1
C BITOF'01234567'HEX04 1
C BITOF'01234567'HEX10 1
C BITOF'01234567'HEX62 1
C BITOF'01234567'HEX73 1
C BITON'6' HEX02
C BITON'5' HEX04
C BITON'3' HEX10
C BITON'126' HEX62
C BITON'12367' HEX73
*
C MOVEA*BLANK B
*
C MOVE HEX00 B,1
C MOVE HEX02 B,2
C MOVE HEX10 B,3
C MOVE HEX00 B,4
C MOVE HEX73 B,5
C MOVE HEX04 B,6
C MOVE HEX62 B,7
*
C EXFMTFMTÑ1
C MOVEAB,1 ECR,1
*
C BITOF'01234567'HEX20 1
C BITON'2' HEX20
C BITOF'01234567'HEX3F 1
C BITON'234567' HEX3F
C MOVE *OFF *IN81
C MOVE *OFF *IN82
C MOVE *OFF *IN83
*
C 1 DO 24 I 30
C MOVEAECR,I LIG,1
C MOVE *BLANK HI
C MOVE *BLANK UL
C MOVE *OFF *IN72
C MOVE *OFF *IN73
*
C 1 DO 80 J 30
C LIG,J IFLT HEX20
C MOVE *BLANK LIG,J
C END
C MOVE LIG,J BYTE 1
*
C BYTE IFGE HEX20
C BYTE ANDLEHEX3F
C MOVE *OFF *IN81
C MOVE *OFF *IN82
C MOVE *OFF *IN83
C END
*
C *IN81 IFEQ *ON
C MOVE *BLANK LIG,J
C END
*
C *IN82 IFEQ *ON
C MOVE LIG,J HI,J
C MOVE *ON *IN72
C END
*
C *IN83 IFEQ *ON
C MOVE '_' UL,J
C MOVE *ON *IN73
C END
*
C BYTE IFGE HEX20
C BYTE ANDLEHEX3F
*
C TESTB'567' BYTE 81
C *IN81 IFEQ *OFF
C TESTB'6' BYTE 82
C TESTB'5' BYTE 83
C END
*
C MOVE *BLANK LIG,J
*
C END
*
C END
*
C *IN72 IFEQ *ON
C 1 DO 3 J
C EXCPTLIGHI
C END
C END
*
C *IN73 IFEQ *ON
C EXCPTLIGUL
C END
*
C EXCPTDETAIL
*
C END
*
C MOVE *ON *INLR
*
OQSYSPRT E 01 DETAIL
O LIG 80
O E 00 LIGHI
O HI 80
O E 00 LIGUL
O UL 80
**
OVRDSPF BAHDCP1 BAHDCP2 LVLCHK(*NO)
Puedes ver el fuente aquí
Documento cedido por Rainer
Mayo 2003
|
