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)

No hay comentarios: