Page History
Pass a 3 digit packed number to a program called XXXX:Lce3GLDefineParameter
Lce3GLDefineParameter (iSession,
...
0,
...
0,
...
"P",
...
"P",
...
3,
...
0,
...
&(value));
...
Lce3GLCall (iSession,
...
"XXXX",
...
"*LIBL",
...
0);
The same, but also get a 7 digits packed number back again:Lce3GLDefineParameter
Lce3GLDefineParameter (iSession,
...
0,
...
0,
...
"P",
...
"P",
...
3,
...
0,
...
&(value));
...
Lce3GLDefineParameter (iSession,
...
1,
...
0,
...
"R",
...
"P",
...
7,
...
0,
...
&NULL);
...
Lce3GLCall (iSession,
...
"XXXX",
...
"*LIBL",
...
1);
Lce3GLGetValue(iSession,
...
1,
...
0,
...
&(value2));
...
Call IBM program QCMDEXC to execute a WRKSBSJOB QCMN function:pszFunction = "WRKSBSJOB QCMD
pszFunction = "WRKSBSJOB QCMD";
sprintf(pszSize,
...
"%d",
...
strlen(pszFunction))
...
Lce3GLDefineParameter (iSession,
...
0,
...
0,
...
"P",
...
"A",
...
256,
...
0,
...
pszFunction);
...
Lce3GLDefineParameter (iSession,
...
1,
...
0,
...
"P",
...
"P",
...
15,
...
5,
...
pszSize);
...
Lce3GLCall (iSession,
...
"QCMDEXC",
...
"*LIBL",
...
1);
Call program YYYY that receives a single data structure made up of an A(10), a P(7,3) and a S(6,0). Get back all values returned in the data structure:Lce3GLDefineParameter
Lce3GLDefineParameter (iSession,
...
0,
...
0,
...
"B",
...
"A",
...
10,
...
0,
...
"ABCD");
...
Lce3GLDefineParameter (iSession,
...
0,
...
1,
...
"B",
...
"P",
...
7,
...
3,
...
"45.67");
...
Lce3GLDefineParameter (iSession,
...
0,
...
2,
...
"B",
...
"S",
...
6,
...
0,
...
"10194");
...
Lce3GLCall (iSession,
...
"YYYY",
...
"*LIBL",
...
0);
Lce3GLGetValue(iSession,
...
0,
...
0,
...
pszValue1);
Lce3GLGetValue(iSession,
...
0,
...
1,
...
pszDoubleValue);
Lce3GLGetValue(iSession,
...
0,
...
2,
...
pszLongValue);