// Send a message to "QPGMR"
ASExec("SNDMSG MSG('Hello')TOUSR(QPGMR)")
// Change current library
ASExec("CHGCURLIB PROD2005")
// Add a library in LIBL
ASExec("ADDLIBLE DEVLIBR")
ASExec("CALL PGM(MYPROG) PARM('00213')")
// Create a journal receiver, start journalization.
sCmd is a string
sCmd="CRTJRNRCV JRNRCV(EASYCOM/TMPRCV)"
IF NOT ASExec(sCmd) THEN
IF ExtractString(ErrorInfo (),2,CR)="CPF7010" THEN Info("Receiver already exists") ELSE Info(ErrorInfo)
ELSE
sCmd="CRTJRN JRN(EASYCOM/TMPJRN) JRNRCV(EASYCOM/TMPRCV)"
IF NOT ASExec(sCmd) THEN
IF ExtractString (ErrorInfo(),2,CR)="CPF7015" TEHN Info("Receiver already contains this journal ") ELSE Info(ErrorInfo)
END
sCmd="STRJRNPF FILE(EASYCOM/SP_CUST) JRN(EASYCOM/TMPJRN)"
IF NOT ASExec(sCmd) THEN
IF ExtractString (ErrorInfo (),2,CR)="CPF7030" THEN Info("File already journalized") ELSE Info(ErrorInfo)
END
// Display a file description to a QTEMP file and read it.
gdsOutput is Data Source
ASExec("DSPFD FILE(EASYCOM/SP_CUST) TYPE(*MBR) OUTPUT(*OUTFILE) OUTFILE(QTEMP/OUTPUT)")
HDeclareExternal("QTEMP/OUTPUT",gdsOutput,MyCOnnection)
HReadFirst(gdsOutput)
...
ASExec("DLTF FILE(QTEMP/OUTPUT)")