¿ 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
Ejemplo API QUSROBJD. Recuperar descripción de objeto

En este ejemplo que nos envia Rainer nos muestra el funcionamiento del API QUSROBJD para saber si en nuestro sistema existe un objeto tipo *USRPRF

     
     IOBJ         DS
I B 1 40OBJBYT
I B 5 80OBJAVL
I 9 18 OBJNAM
I 19 28 OBJLIB
I 29 38 OBJTYP
I 39 48 OBJRLB
I B 49 520OBJAUT
I 53 62 OBJOWN
I 63 64 OBJDOM
I 65 77 OBJCRT
I 78 90 OBJCHD
IAPIERR DS
I I 256 B 1 40ERRSIZ
I I 0 B 5 80ERRLEN
I 9 15 ERRMIC
I 16 16 ERRNBR
I 17 256 ERRDTA
IQMHERR DS
I I 16 B 1 40ER2SIZ
I I 0 B 5 80ER2LEN
I 9 15 ER2MIC
I 16 16 ER2NBR
*
I DS
I I 90 B 1 40APILEN
I I 'OBJD0100' 5 12 APIFMT
I 13 32 APIOBJ
I DS
I I 1 20 QMHFIL
I I 240 B 21 240QMHLEN
I I '*ESCAPE ' 25 34 QMHTYP
I I '* ' 35 44 QMHPGQ
I I 1 B 45 480QMHSTK
I I 49 52 QMHKEY
*
I 'QCPFMSG QSYS 'C QCPFMS
*
C *ENTRY PLIST
C PARM OBJECT 10
C PARM LIBRAR 10
C PARM APITYP 10
*
C OBJECT CAT LIBRAR APIOBJ
C EXSR $CKOBJ
*
C ERRLEN IFEQ 0
C MOVE OBJRLB LIBRAR
C ELSE
C EXSR $SNDPM
C ENDIF
*
C RETRN
* - - - - - - - - - - - - - - - - - - - - - - - - - - -
C $CKOBJ BEGSR
*
C CALL 'QUSROBJD'
C PARM OBJ
C PARM APILEN
C PARM APIFMT
C PARM APIOBJ
C PARM APITYP
C PARM APIERR
*
C ENDSR
* - - - - - - - - - - - - - - - - - - - - - - - - - - -
C $SNDPM BEGSR
*
C CALL 'QMHSNDPM'
C PARM ERRMIC
C PARM QCPFMS QMHFIL
C PARM ERRDTA
C PARM QMHLEN
C PARM QMHTYP
C PARM QMHPGQ
C PARM QMHSTK
C PARM QMHKEY
C PARM QMHERR
*
C ENDSR
* - - - - - - - - - - - - - - - - - - - - - - - - - - -

Puedes encontrar el fuente aquí

Marzo 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