To install LANSA and your application, if you are not using LSIINSTALL your program may be structured to look something like this:
PGM PARM(&DEV)
*restore the command LSISETUP and DC@LCP060
RSTOBJ OBJ(LSISETUP) SAVLIB(DCXISVLIB) +
DEV(&DEVNAME) RSTLIB(QTEMP) +
OPTFILE('/AS400/LOADLIB')
RSTOBJ OBJ(DC@LCP060) SAVLIB(DCXISVLIB) +
DEV(&DEVNAME) RSTLIB(QTEMP) +
OPTFILE('/AS400/LOADLIB')
* Setup environment
LSISETUP DEVICE(&DEVNAME)
* Install LANSA
LSIINSTALL PGMLIB(&PGMLIB) CONNIDN(4695)
…* Install LANSA Integrator
LSIINTINS …
* Clean-up the work environment
LSICLEANUP
…* Install your application
LANSA IMPORT(MYAPPINST)
…ENDPGM
