/*--+------------------------------------------------------------+--*/ /*--+ PROGRAM ID : $DSPOBJS +--*/ /*--+ PROGRAM NAME : CL OF DISPLAY OBJECT SIZE +--*/ /*--+------------------------------------------------------------+--*/ /*--+ VERSION : 1.2 (98/10/16) ADDED OVRDBF AND DLTOVR +--*/ /*--+ 1.1 (98/10/12) ADDED MONMSG CPF2177 +--*/ /*--+ 1.0 (98/09/28) +--*/ /*--+------------------------------------------------------------+--*/ PGM PARM(&OBJANDLIB &OBJTYPE &UNIT &BYTE) /*--+------------------------------------------------------------+--*/ /* + DECLARE + */ /*--+------------------------------------------------------------+--*/ DCL VAR(&OBJANDLIB ) TYPE(*CHAR) LEN( 20 ) /* OBJECT AND LIBRARY */ DCL VAR(&OBJ ) TYPE(*CHAR) LEN( 10 ) /* OBJECT */ DCL VAR(&LIB ) TYPE(*CHAR) LEN( 10 ) /* LIBRARY */ DCL VAR(&OBJTYPE ) TYPE(*CHAR) LEN( 590 ) /* OBJECT TYPE + CT */ DCL VAR(&UNIT ) TYPE(*CHAR) LEN( 6 ) /* UNIT */ DCL VAR(&BYTE ) TYPE(*DEC ) LEN( 4 ) /* BYTE */ DCL VAR(&OBJLIBTYPE) TYPE(*CHAR) LEN( 27 ) /* OBJECT LIB OBJTYPE */ DCL VAR(&TMP_OBJTYP) TYPE(*CHAR) LEN( 6 ) /* TEMPORARY OBJTYPE */ DCL VAR(&MESSAGE ) TYPE(*CHAR) LEN( 80 ) /* USER MESSAGE */ /* OBJECT TYPE PARAMETER */ DCL VAR(&CT ) TYPE(*DEC ) LEN( 3 0) /* PARAMETER COUNT */ DCL VAR(&ST_OBJTYPE) TYPE(*CHAR) LEN( 672 ) /* STRING OF OBJTYPE */ DCL VAR(&ST_CMD ) TYPE(*CHAR) LEN(2000 ) /* STRING OF COMMAND */ DCL VAR(&OBJTYPE001) TYPE(*CHAR) LEN( 7 ) /* ALL OF OBJECT TYPE */ DCL VAR(&OBJTYPE002) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE003) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE004) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE005) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE006) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE007) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE008) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE009) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE010) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE011) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE012) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE013) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE014) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE015) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE016) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE017) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE018) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE019) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE020) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE021) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE022) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE023) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE024) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE025) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE026) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE027) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE028) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE029) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE030) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE031) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE032) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE033) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE034) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE035) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE036) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE037) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE038) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE039) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE040) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE041) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE042) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE043) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE044) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE045) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE046) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE047) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE048) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE049) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE050) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE051) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE052) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE053) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE054) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE055) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE056) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE057) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE058) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE059) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE060) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE061) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE062) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE063) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE064) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE065) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE066) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE067) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE068) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE069) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE070) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE071) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE072) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE073) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE074) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE075) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE076) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE077) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE078) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE079) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE080) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE081) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE082) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE083) TYPE(*CHAR) LEN( 7 ) DCL VAR(&OBJTYPE084) TYPE(*CHAR) LEN( 7 ) /*--+------------------------------------------------------------+--*/ /* + START OF PROGRAM + */ /*--+------------------------------------------------------------+--*/ /*--+------------------------------------------------------------+--*/ /* + INITIALIZE + */ /*--+------------------------------------------------------------+--*/ CHGVAR VAR(&OBJ ) VALUE(%SST(&OBJANDLIB 1 10)) CHGVAR VAR(&LIB ) VALUE(%SST(&OBJANDLIB 11 10)) /*--+-------------------------------+--*/ /* + DISPLAY OF INITIALIZE MESSAGE + */ /*--+-------------------------------+--*/ CHGVAR VAR(&MESSAGE) VALUE('OBJECT ' *BCAT + &OBJ *BCAT + 'FIND IN ' *BCAT + &LIB ) SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) + MSGDTA(&MESSAGE) + TOPGMQ(*EXT) + MSGTYPE(*STATUS) /*--+-----------------------------------+--*/ /* + SEPARATE OBJTYPE??? FROM &OBJTYPE + */ /*--+-----------------------------------+--*/ CHGVAR VAR(&CT ) VALUE(%BINARY(&OBJTYPE 1 2)) IF (&CT *GE 001) CHGVAR VAR(&OBJTYPE001) VALUE(%SST(&OBJTYPE 3 7)) IF (&CT *GE 002) CHGVAR VAR(&OBJTYPE002) VALUE(%SST(&OBJTYPE 10 7)) IF (&CT *GE 003) CHGVAR VAR(&OBJTYPE003) VALUE(%SST(&OBJTYPE 17 7)) IF (&CT *GE 004) CHGVAR VAR(&OBJTYPE004) VALUE(%SST(&OBJTYPE 24 7)) IF (&CT *GE 005) CHGVAR VAR(&OBJTYPE005) VALUE(%SST(&OBJTYPE 31 7)) IF (&CT *GE 006) CHGVAR VAR(&OBJTYPE006) VALUE(%SST(&OBJTYPE 38 7)) IF (&CT *GE 007) CHGVAR VAR(&OBJTYPE007) VALUE(%SST(&OBJTYPE 45 7)) IF (&CT *GE 008) CHGVAR VAR(&OBJTYPE008) VALUE(%SST(&OBJTYPE 52 7)) IF (&CT *GE 009) CHGVAR VAR(&OBJTYPE009) VALUE(%SST(&OBJTYPE 59 7)) IF (&CT *GE 010) CHGVAR VAR(&OBJTYPE010) VALUE(%SST(&OBJTYPE 66 7)) IF (&CT *GE 011) CHGVAR VAR(&OBJTYPE011) VALUE(%SST(&OBJTYPE 73 7)) IF (&CT *GE 012) CHGVAR VAR(&OBJTYPE012) VALUE(%SST(&OBJTYPE 80 7)) IF (&CT *GE 013) CHGVAR VAR(&OBJTYPE013) VALUE(%SST(&OBJTYPE 87 7)) IF (&CT *GE 014) CHGVAR VAR(&OBJTYPE014) VALUE(%SST(&OBJTYPE 94 7)) IF (&CT *GE 015) CHGVAR VAR(&OBJTYPE015) VALUE(%SST(&OBJTYPE 101 7)) IF (&CT *GE 016) CHGVAR VAR(&OBJTYPE016) VALUE(%SST(&OBJTYPE 108 7)) IF (&CT *GE 017) CHGVAR VAR(&OBJTYPE017) VALUE(%SST(&OBJTYPE 115 7)) IF (&CT *GE 018) CHGVAR VAR(&OBJTYPE018) VALUE(%SST(&OBJTYPE 122 7)) IF (&CT *GE 019) CHGVAR VAR(&OBJTYPE019) VALUE(%SST(&OBJTYPE 129 7)) IF (&CT *GE 020) CHGVAR VAR(&OBJTYPE020) VALUE(%SST(&OBJTYPE 136 7)) IF (&CT *GE 021) CHGVAR VAR(&OBJTYPE021) VALUE(%SST(&OBJTYPE 143 7)) IF (&CT *GE 022) CHGVAR VAR(&OBJTYPE022) VALUE(%SST(&OBJTYPE 150 7)) IF (&CT *GE 023) CHGVAR VAR(&OBJTYPE023) VALUE(%SST(&OBJTYPE 157 7)) IF (&CT *GE 024) CHGVAR VAR(&OBJTYPE024) VALUE(%SST(&OBJTYPE 164 7)) IF (&CT *GE 025) CHGVAR VAR(&OBJTYPE025) VALUE(%SST(&OBJTYPE 171 7)) IF (&CT *GE 026) CHGVAR VAR(&OBJTYPE026) VALUE(%SST(&OBJTYPE 178 7)) IF (&CT *GE 027) CHGVAR VAR(&OBJTYPE027) VALUE(%SST(&OBJTYPE 185 7)) IF (&CT *GE 028) CHGVAR VAR(&OBJTYPE028) VALUE(%SST(&OBJTYPE 192 7)) IF (&CT *GE 029) CHGVAR VAR(&OBJTYPE029) VALUE(%SST(&OBJTYPE 199 7)) IF (&CT *GE 030) CHGVAR VAR(&OBJTYPE030) VALUE(%SST(&OBJTYPE 206 7)) IF (&CT *GE 031) CHGVAR VAR(&OBJTYPE031) VALUE(%SST(&OBJTYPE 213 7)) IF (&CT *GE 032) CHGVAR VAR(&OBJTYPE032) VALUE(%SST(&OBJTYPE 220 7)) IF (&CT *GE 033) CHGVAR VAR(&OBJTYPE033) VALUE(%SST(&OBJTYPE 227 7)) IF (&CT *GE 034) CHGVAR VAR(&OBJTYPE034) VALUE(%SST(&OBJTYPE 234 7)) IF (&CT *GE 035) CHGVAR VAR(&OBJTYPE035) VALUE(%SST(&OBJTYPE 241 7)) IF (&CT *GE 036) CHGVAR VAR(&OBJTYPE036) VALUE(%SST(&OBJTYPE 248 7)) IF (&CT *GE 037) CHGVAR VAR(&OBJTYPE037) VALUE(%SST(&OBJTYPE 255 7)) IF (&CT *GE 038) CHGVAR VAR(&OBJTYPE038) VALUE(%SST(&OBJTYPE 262 7)) IF (&CT *GE 039) CHGVAR VAR(&OBJTYPE039) VALUE(%SST(&OBJTYPE 269 7)) IF (&CT *GE 040) CHGVAR VAR(&OBJTYPE040) VALUE(%SST(&OBJTYPE 276 7)) IF (&CT *GE 041) CHGVAR VAR(&OBJTYPE041) VALUE(%SST(&OBJTYPE 283 7)) IF (&CT *GE 042) CHGVAR VAR(&OBJTYPE042) VALUE(%SST(&OBJTYPE 290 7)) IF (&CT *GE 043) CHGVAR VAR(&OBJTYPE043) VALUE(%SST(&OBJTYPE 297 7)) IF (&CT *GE 044) CHGVAR VAR(&OBJTYPE044) VALUE(%SST(&OBJTYPE 304 7)) IF (&CT *GE 045) CHGVAR VAR(&OBJTYPE045) VALUE(%SST(&OBJTYPE 311 7)) IF (&CT *GE 046) CHGVAR VAR(&OBJTYPE046) VALUE(%SST(&OBJTYPE 318 7)) IF (&CT *GE 047) CHGVAR VAR(&OBJTYPE047) VALUE(%SST(&OBJTYPE 325 7)) IF (&CT *GE 048) CHGVAR VAR(&OBJTYPE048) VALUE(%SST(&OBJTYPE 332 7)) IF (&CT *GE 049) CHGVAR VAR(&OBJTYPE049) VALUE(%SST(&OBJTYPE 339 7)) IF (&CT *GE 050) CHGVAR VAR(&OBJTYPE050) VALUE(%SST(&OBJTYPE 346 7)) IF (&CT *GE 051) CHGVAR VAR(&OBJTYPE051) VALUE(%SST(&OBJTYPE 353 7)) IF (&CT *GE 052) CHGVAR VAR(&OBJTYPE052) VALUE(%SST(&OBJTYPE 360 7)) IF (&CT *GE 053) CHGVAR VAR(&OBJTYPE053) VALUE(%SST(&OBJTYPE 367 7)) IF (&CT *GE 054) CHGVAR VAR(&OBJTYPE054) VALUE(%SST(&OBJTYPE 374 7)) IF (&CT *GE 055) CHGVAR VAR(&OBJTYPE055) VALUE(%SST(&OBJTYPE 381 7)) IF (&CT *GE 056) CHGVAR VAR(&OBJTYPE056) VALUE(%SST(&OBJTYPE 388 7)) IF (&CT *GE 057) CHGVAR VAR(&OBJTYPE057) VALUE(%SST(&OBJTYPE 395 7)) IF (&CT *GE 058) CHGVAR VAR(&OBJTYPE058) VALUE(%SST(&OBJTYPE 402 7)) IF (&CT *GE 059) CHGVAR VAR(&OBJTYPE059) VALUE(%SST(&OBJTYPE 409 7)) IF (&CT *GE 060) CHGVAR VAR(&OBJTYPE060) VALUE(%SST(&OBJTYPE 416 7)) IF (&CT *GE 061) CHGVAR VAR(&OBJTYPE061) VALUE(%SST(&OBJTYPE 423 7)) IF (&CT *GE 062) CHGVAR VAR(&OBJTYPE062) VALUE(%SST(&OBJTYPE 430 7)) IF (&CT *GE 063) CHGVAR VAR(&OBJTYPE063) VALUE(%SST(&OBJTYPE 437 7)) IF (&CT *GE 064) CHGVAR VAR(&OBJTYPE064) VALUE(%SST(&OBJTYPE 444 7)) IF (&CT *GE 065) CHGVAR VAR(&OBJTYPE065) VALUE(%SST(&OBJTYPE 451 7)) IF (&CT *GE 066) CHGVAR VAR(&OBJTYPE066) VALUE(%SST(&OBJTYPE 458 7)) IF (&CT *GE 067) CHGVAR VAR(&OBJTYPE067) VALUE(%SST(&OBJTYPE 465 7)) IF (&CT *GE 068) CHGVAR VAR(&OBJTYPE068) VALUE(%SST(&OBJTYPE 472 7)) IF (&CT *GE 069) CHGVAR VAR(&OBJTYPE069) VALUE(%SST(&OBJTYPE 479 7)) IF (&CT *GE 070) CHGVAR VAR(&OBJTYPE070) VALUE(%SST(&OBJTYPE 486 7)) IF (&CT *GE 071) CHGVAR VAR(&OBJTYPE071) VALUE(%SST(&OBJTYPE 493 7)) IF (&CT *GE 072) CHGVAR VAR(&OBJTYPE072) VALUE(%SST(&OBJTYPE 500 7)) IF (&CT *GE 073) CHGVAR VAR(&OBJTYPE073) VALUE(%SST(&OBJTYPE 507 7)) IF (&CT *GE 074) CHGVAR VAR(&OBJTYPE074) VALUE(%SST(&OBJTYPE 514 7)) IF (&CT *GE 075) CHGVAR VAR(&OBJTYPE075) VALUE(%SST(&OBJTYPE 521 7)) IF (&CT *GE 076) CHGVAR VAR(&OBJTYPE076) VALUE(%SST(&OBJTYPE 528 7)) IF (&CT *GE 077) CHGVAR VAR(&OBJTYPE077) VALUE(%SST(&OBJTYPE 535 7)) IF (&CT *GE 078) CHGVAR VAR(&OBJTYPE078) VALUE(%SST(&OBJTYPE 542 7)) IF (&CT *GE 079) CHGVAR VAR(&OBJTYPE079) VALUE(%SST(&OBJTYPE 549 7)) IF (&CT *GE 080) CHGVAR VAR(&OBJTYPE080) VALUE(%SST(&OBJTYPE 556 7)) IF (&CT *GE 081) CHGVAR VAR(&OBJTYPE081) VALUE(%SST(&OBJTYPE 563 7)) IF (&CT *GE 082) CHGVAR VAR(&OBJTYPE082) VALUE(%SST(&OBJTYPE 570 7)) IF (&CT *GE 083) CHGVAR VAR(&OBJTYPE083) VALUE(%SST(&OBJTYPE 577 7)) IF (&CT *GE 084) CHGVAR VAR(&OBJTYPE084) VALUE(%SST(&OBJTYPE 584 7)) /*--+---------------------------+--*/ /* + SET STRING OF OBJECT TYPE + */ /*--+---------------------------+--*/ CHGVAR VAR(&ST_OBJTYPE) + VALUE(&OBJTYPE001 *CAT ' ' *CAT + &OBJTYPE002 *CAT ' ' *CAT + &OBJTYPE003 *CAT ' ' *CAT + &OBJTYPE004 *CAT ' ' *CAT + &OBJTYPE005 *CAT ' ' *CAT + &OBJTYPE006 *CAT ' ' *CAT + &OBJTYPE007 *CAT ' ' *CAT + &OBJTYPE008 *CAT ' ' *CAT + &OBJTYPE009 *CAT ' ' *CAT + &OBJTYPE010 *CAT ' ' *CAT + &OBJTYPE011 *CAT ' ' *CAT + &OBJTYPE012 *CAT ' ' *CAT + &OBJTYPE013 *CAT ' ' *CAT + &OBJTYPE014 *CAT ' ' *CAT + &OBJTYPE015 *CAT ' ' *CAT + &OBJTYPE016 *CAT ' ' *CAT + &OBJTYPE017 *CAT ' ' *CAT + &OBJTYPE018 *CAT ' ' *CAT + &OBJTYPE019 *CAT ' ' *CAT + &OBJTYPE020 *CAT ' ' *CAT + &OBJTYPE021 *CAT ' ' *CAT + &OBJTYPE022 *CAT ' ' *CAT + &OBJTYPE023 *CAT ' ' *CAT + &OBJTYPE024 *CAT ' ' *CAT + &OBJTYPE025 *CAT ' ' *CAT + &OBJTYPE026 *CAT ' ' *CAT + &OBJTYPE027 *CAT ' ' *CAT + &OBJTYPE028 *CAT ' ' *CAT + &OBJTYPE029 *CAT ' ' *CAT + &OBJTYPE030 *CAT ' ' *CAT + &OBJTYPE031 *CAT ' ' *CAT + &OBJTYPE032 *CAT ' ' *CAT + &OBJTYPE033 *CAT ' ' *CAT + &OBJTYPE034 *CAT ' ' *CAT + &OBJTYPE035 *CAT ' ' *CAT + &OBJTYPE036 *CAT ' ' *CAT + &OBJTYPE037 *CAT ' ' *CAT + &OBJTYPE038 *CAT ' ' *CAT + &OBJTYPE039 *CAT ' ' *CAT + &OBJTYPE040 *CAT ' ' *CAT + &OBJTYPE041 *CAT ' ' *CAT + &OBJTYPE042 *CAT ' ' *CAT + &OBJTYPE043 *CAT ' ' *CAT + &OBJTYPE044 *CAT ' ' *CAT + &OBJTYPE045 *CAT ' ' *CAT + &OBJTYPE046 *CAT ' ' *CAT + &OBJTYPE047 *CAT ' ' *CAT + &OBJTYPE048 *CAT ' ' *CAT + &OBJTYPE049 *CAT ' ' *CAT + &OBJTYPE050 *CAT ' ' *CAT + &OBJTYPE051 *CAT ' ' *CAT + &OBJTYPE052 *CAT ' ' *CAT + &OBJTYPE053 *CAT ' ' *CAT + &OBJTYPE054 *CAT ' ' *CAT + &OBJTYPE055 *CAT ' ' *CAT + &OBJTYPE056 *CAT ' ' *CAT + &OBJTYPE057 *CAT ' ' *CAT + &OBJTYPE058 *CAT ' ' *CAT + &OBJTYPE059 *CAT ' ' *CAT + &OBJTYPE060 *CAT ' ' *CAT + &OBJTYPE061 *CAT ' ' *CAT + &OBJTYPE062 *CAT ' ' *CAT + &OBJTYPE063 *CAT ' ' *CAT + &OBJTYPE064 *CAT ' ' *CAT + &OBJTYPE065 *CAT ' ' *CAT + &OBJTYPE066 *CAT ' ' *CAT + &OBJTYPE067 *CAT ' ' *CAT + &OBJTYPE068 *CAT ' ' *CAT + &OBJTYPE069 *CAT ' ' *CAT + &OBJTYPE070 *CAT ' ' *CAT + &OBJTYPE071 *CAT ' ' *CAT + &OBJTYPE072 *CAT ' ' *CAT + &OBJTYPE073 *CAT ' ' *CAT + &OBJTYPE074 *CAT ' ' *CAT + &OBJTYPE075 *CAT ' ' *CAT + &OBJTYPE076 *CAT ' ' *CAT + &OBJTYPE077 *CAT ' ' *CAT + &OBJTYPE078 *CAT ' ' *CAT + &OBJTYPE079 *CAT ' ' *CAT + &OBJTYPE080 *CAT ' ' *CAT + &OBJTYPE081 *CAT ' ' *CAT + &OBJTYPE082 *CAT ' ' *CAT + &OBJTYPE083 *CAT ' ' *CAT + &OBJTYPE084) /*--+-------------------------------+--*/ /* + SET STRING OF DSPOBJD COMMAND + */ /*--+-------------------------------+--*/ CHGVAR VAR(&ST_CMD) + VALUE('DSPOBJD OBJ(' *CAT + &LIB *TCAT + '/' *CAT + &OBJ *CAT + ') OBJTYPE(' *CAT + &ST_OBJTYPE *TCAT + ') ' *CAT + 'OUTPUT(*OUTFILE) OUTFILE(QTEMP/DSPOBJS)' ) /*--+---------------------------------+--*/ /* + CREATE OF DSPOBJS FILE IN QTEMP + */ /*--+---------------------------------+--*/ CALL QCMDEXC (&ST_CMD 2000) MONMSG MSGID(CPF2105) EXEC(DO) /* REMOVE '*' FROM &OBJTYPE001 */ CHGVAR VAR(&TMP_OBJTYP) VALUE(%SST(&OBJTYPE001 2 6)) /* JOIN(OBJECT AND LIBRARY AND OBJECT TYPE) */ CHGVAR VAR(&OBJLIBTYPE) VALUE(&OBJANDLIB *CAT &TMP_OBJTYP) SNDPGMMSG MSGID(CPF2105) MSGF(QCPFMSG) MSGDTA(&OBJLIBTYPE) + MSGTYPE(*ESCAPE) ENDDO MONMSG MSGID(CPF2123) EXEC(DO) SNDPGMMSG MSGID(CPF2123) MSGF(QCPFMSG) MSGDTA(&OBJANDLIB) + MSGTYPE(*ESCAPE) ENDDO MONMSG MSGID(CPF2110) EXEC(DO) SNDPGMMSG MSGID(CPF2110) MSGF(QCPFMSG) MSGDTA(&LIB) + MSGTYPE(*ESCAPE) ENDDO MONMSG MSGID(CPF2177) EXEC(DO) SNDPGMMSG MSGID(CPF2177) MSGF(QCPFMSG) + MSGTYPE(*ESCAPE) ENDDO /*--+------------------------------------------------------------+--*/ /* + M A I N + */ /*--+------------------------------------------------------------+--*/ /*--+------------------+--*/ /* + CALL RPG PROGRAM + */ /*--+------------------+--*/ OVRDBF FILE(DSPOBJS) TOFILE(QTEMP/DSPOBJS) CALL PGM(RDSPOBJS) PARM(&OBJ &LIB &ST_OBJTYPE &UNIT &BYTE) DLTOVR FILE(DSPOBJS) /*--+------------------------------------------------------------+--*/ /* + END OF PROGRAM + */ /*--+------------------------------------------------------------+--*/ #_EXIT_: ENDPGM