PHP-Code:
AUTH_NONE    C       X'0000'

CharType = '*PGM';

ConvertObjectTypeHex( '*SYMTOHEX'
                    : CharType
                    : HexType
                    : errc0100 );

result = GetSysPointer( HexType
                      : %trim( PgmName )
                      : %trim( PgmLibl )
                      : AUTH_NONE ); 
Wenn das Object ein *SRVPGM ist stürzt das API ab, in der Hilfe steht, dass man mit X'2201' das unterbinden kann, aber wie genau?

Gruß
Xanas