lunes, 25 de febrero de 2008

Imprimir fuente en DIN A-4

Como imprimir un miembro de un archivo de fuentes en formato DIN A-4 y doble cara (si nuestra impresora lo soporta):
  1. Entrar al PDM con el mandato STRPDM
  2. Seleccionar opción "9. Work with user-defined options"
  3. Seleccionar archivo opciones, por omision QGPL/QAUOOPT(QAUOOPT) , pulsar Intro.
  4. Pulsar F6=Create
  5. Opción A4 (por ejemplo)
  6. Introducir en la linea de mandatos:
  7. OVRPRTF FILE(QPSUPRTF) PAGESIZE(102) LPI(9) OVRFLW(102) ALIGN(*YES) FONT(220) PRTQLTY(*DRAFT) PAGRTT(0) DUPLEX(*YES)
  8. Pulsar Intro para guardar la nueva opción del PDM.
Como usar nueva opción A4:
Pulsar la opción A4 delante del miembro que queramos imprimir y después la opción 6=Print, si fuera necesario cambiar el listado a una cola de impresora de hojas.
A partir de pulsar la opción A4 todos los listados que pidamos en esa sesión, se imprimirán en ese formato. Con la opción DUPLEX(*YES) conseguimos imprimir por ambas caras si la impresora lo soporta.

Es posible se tenga que ajustar algún valor para que cuadre con la hoja de nuestra impresora.
Pero de todas formas el medio ambiente nos agradecera que ahorremos algunas hojas.

domingo, 24 de febrero de 2008

Cargar imagenes cd a AS400

Como utilizar un cd en un AS400 que no tiene, o al que no podemos acceder, unidad cd cd-rom:

Seguir el siguiente procedimiento (solo funciona en AS400 a partir V5R2).
  1. Colocar cd en un pc
  2. Arrancar pgm para generar imágenes (UltraISO, Nero, etc...) y crear imagen ISO del cd (cd's) que queremos cargar en el AS400.
  3. Copiar archivo iso generado al un directorio del AS400 (p.e. /images)
  4. Crear catalogo de imágenes en el AS400: CRTIMGCLG IMGCLG(MY_SOFTWARE) DIR('/images/MY_SOFTWARE') CRTDIR(*YES) TEXT('My software V.xx for AS400')
  5. Esto creara el directorio /images/MY_SOFTWARE y el objeto QUSRSYS/MY_SOFTWARE de tipo *IMGCLG
  6. Cargar imagen del cd al catalogo de imagenes: ADDIMGCLGE IMGCLG(MY_SOFTWARE) FROMFILE('/images/My_image.iso') TEXT('My software V.xx for AS400')
  7. Esto crea el archivo del ifs /images/MY_SOFTWARE/My_image.iso
  8. Para comprobar si se ha cargado:WRKIMGCLGE IMGCLG(MY_SOFTWARE)
  9. Crear dispositivo óptico virtual (por única vez): CRTDEVOPT DEVD(OPT90) RSRCNAME(*VRT) ONLINE(*NO) TEXT('cd-rom virtual')
  10. Activar el dispositivo óptico virtual:VRYCFG CFGOBJ(OPT90) CFGTYPE(*DEV) STATUS(*ON)
  11. Cargar el catalogo de imagenes (MY_SOFTWARE) al cd virtual (OPT90): LODIMGCLG IMGCLG(MY_SOFTWARE) DEV(OPT90) OPTION(*LOAD)
  12. Operar como un cd cargado en dispositivo optico OPT90 y realizar las operaciones como habitualmente.
  13. Al terminar descargar el catalogo de imagenes (MY_SOFTWARE) al cd virtual (OPT90): LODIMGCLG IMGCLG(MY_SOFTWARE) DEV(OPT90) OPTION(*UNLOAD)

domingo, 17 de febrero de 2008

Copiar archivos spool

La utilidad CPYJOBSPL nos sirve para copiar todos los archivos de spool de un trabajo, del que conocemos su jobid (numero/usuario/nombre_trabajo), si es el trabajo actual podemos usar el símbolo *.
Si utilizamos la opción *SPL nos copiara los archivos de spool a nuestro spool, nos permite indicar un numero máximo de paginas a copiar.
Si usamos la opción *TEXT, nos convierte todos los archivos de spool a ficheros ASCII dentro de una carpeta del IFS que le indiquemos.