Re: Long file names for external data structures

Here is a simple example of calling the API from CL
sorry for wordwrap still having issues with code.midrange.com
=======================================
CMD PROMPT('Get Short Name')
PARM KWD(LONG) TYPE(*CHAR) LEN(128) MIN(1) +
CHOICE('Long File Name') PROMPT('Long +
File Name')
PARM KWD(LIB) TYPE(*CHAR) LEN(10) DFT(*LIBL) +
CHOICE('Library Name, *LIBL') +
PROMPT('Library Name')
=============
PGM PARM(&LONGNAME &LIB)


DCL VAR(&OBJNAME) TYPE(*CHAR) LEN(20)
DCL VAR(&FILE) TYPE(*CHAR) STG(*DEFINED) LEN(10) DEFVAR(&OBJNAME)
DCL VAR(&FLIB) TYPE(*CHAR) STG(*DEFINED) LEN(10) DEFVAR(&OBJNAME 11)


DCL VAR(&LONGNAME) TYPE(*CHAR) LEN(128)
DCL VAR(&MSG) TYPE(*CHAR) LEN(128)
DCL VAR(&L_NME_LEN) TYPE(*INT) VALUE(128)
DCL VAR(&LIB) TYPE(*CHAR) LEN(10)


CALL PGM(QDBRTVSN) PARM(&OBJNAME &LONGNAME &L_NME_LEN &LIB 0)


CHGVAR VAR(&MSG) VALUE(&FLIB *TCAT '/' || &FILE)


Call QUILNGTX (&msg x'00000015' ' ' ' ' x'0000000000000000')


ENDPGM
=======================================


Rob Berendt wrote on 12/28/2016 3:52 PM:

Turns out that I did have to use the short name for extname here:
dcl-ds Media_library_info extname('MEDIA_INFO') qualified end-ds;

but if I modified that to
dcl-ds Media_library_info extname('MEDIA_INFO') qualified alias end-ds;

I could use the column long names like
fetch ... :Media_Library_Info.Device_Status
and not have to use their short names like
fetch ... :Media_Library_Info.Device_Sts

'alias' does not seem to apply to the extname


Rob Berendt