listJob is a ASObjectCollection
//per default behaviour, list all objects in *LIBL.
IF NOT ASObjetsList(listJob,"","", "", MaConnection1)
Errorr(ErrorrInfo())
END
// list all programs into the CR library
IF NOT ASObjetsList(listJob,"CR","", "*PGM", MaConnexion1)
Erreur(ErreurInfo(errComplet))
FIN