Example

// Current JOB

asopnfilecollec est une ASOpenFileInfoCollection

SI PAS ASOpenFileInfoList(asopnfilecollec,MaConnexion) ALORS
   Info(ErreurInfo(errComplet))
SINON
   I est un entier = 1
   POUR TOUT asopnf DE asopnfilecollec
       Trace(I,": ",asopnf.fileName, asopnf.threadId)

I = I+1
FIN
FIN

// Specific JOB

asopnfilecollec2 est une ASOpenFileInfoCollection

SI PAS ASOpenFileInfoList(asopnfilecollec2,MaConnexion, "653011/QSYS/QINTER") ALORS
   Info(ErreurInfo(errComplet))
SINON
   J est un entier = 1
   POUR TOUT asopnf2 DE asopnfilecollec2
       Trace(J,": ",asopnf2.fileName + " FROM " + asopnf2.mbrOrDeviceName, asopnf2.threadId)
       J = J+1
   FIN
FIN

// Thread of a specific JOB
asopnfilecollec3 est une ASOpenFileInfoCollection

SI PAS ASOpenFileInfoList(asopnfilecollec3,MaConnexion, "653011/QSYS/QINTER", Val("2")) ALORS
   Info(ErreurInfo(errComplet))
SINON
   K est un entier = 1
   POUR TOUT asopnf3 DE asopnfilecollec3
       Trace(K,": ",asopnf3.fileName, asopnf3.threadId)
       K = K+1
   FIN
FIN