|
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
|
