6.3.2 C Examples
Pass a 3 digit packed number to a program called XXXX:
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 (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";
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 (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);