¿ Quieres imprimir esta página ? Volver a la página principal de Recursos iSeries AS400 ¿ Necesitas ayuda ? En pruebas
System i5 iSeries AS400 Recursos. Compartiendo generamos conocimiento
Novedades en Recursos iSeries AS400
Noticias tecnológicas
Documentos
Programar la impresión de pantalla

 

     
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

Comentarios de usuarios

Nombre:
Mail:
Comentario:
 

Subir a la parte superior de la web

 

 

NUESTRA COMUNIDAD EN
ÚNETE Y.... ¡¡ PARTICIPA !!
Dossiers técnicos iSeries y AS400
- Seguridad
- Alta disponibilidad.
Nuestros links favoritos
- Tendencias tecnologías de la información
Expertos en tecnologías de la información, nos dan su punto de vista sobre las tendencias actuales y futuras
- Los últimos anuncios sobre hardware-software para iSeries AS400 realizados por IBM
- Freeware y shareware para el iSeries AS400
- Utilidades para el iSeries AS400 realizadas por profesionales
- Documentos. Trucos e ideas para resolver tus problemas
- Los manuales y links más interesantes del iSeries AS400

  Links patrocinados
  •  
  •  

[ Soy nuevo |   Profesionales |   AS qué |   Empresas |    Foros |   Recomiéndanos |    Productos ]
 
Recursos iSeries AS400. Es una web de: PUBLICACIONES HELP400, S.L. CIF:B-60-202827 Gran Vía de les Corts Catalanes, núm. 715, Entresuelo – 3ª - Barcelona - Tel.+34.932.310.049