ACQ(E) device fichier_icf; // lien entre un fichier ICF et une unité

BEGSR toto;
...

endsr;

callp  QCMDEXC('wrksplf' : 7)    // nécessite un prototype

CHAIN(N) nocli clientf1 ;
If not %found ;
....

Clear *nokey clientf1; // remise à blanc de clientf1 sauf les clés

Close clientp1;

Commit; // validation de la dernière transaction

Data-Gen DS1 %data(sortie) %gen(MONPGM); //sortie généré par MONPGM depuis DS1.

Data-into DS1 %data(JSON) %parser(MONPGM); //JSON traité par MONPGM et placé dans DS1.

dealloc(N) ptr; //libère l'espace mémoire et affecte null à ptr

delete clientf1;

Dou %EOF;

Dow not *in03 and not *in12;

dsply 'voulez-vous continuer ?' 'QSYSOPR' rep;

if rep = 'O';

if a = B;
ELSE;

if a = B;
ELSEIF a = c;

Except detail; // sortie (spécif O) hors cycle.

Exfmt image; 

Exsr monsouspro; /  exécute monsouspro

eval(H)   montant = (qte * prix) * (1 + (tva /100) );
message = 'Attention , ' + user + ' la date  ' + %CHAR(date) 
               + 'est invalide'; // affectation implicite en V5.

eval-CORR DS1 = DS2; // toutes les zones de même nom sont copiées.

FEOD entcdep1 ; // force écriture physique dans entcdep1

FOR i = 1 to 15 ;
   ...
ENDFOR;        

FOR-EACH wcep IN %list('Syrah' : 'grenache' : 'carignan'); 
 DSPLY wcep ;
endfor;        

FORCE entcdep1 ; // force ce fichier a être lu au prochain cycle

if   *in30;
if   (qte * prix) > 10000;
if   %subst(raison : 2 : 2) <> ' ';

IN *lock dataarea ; // lecture d'une data aréa (avec verrou)

iter; // (saute un tour de boucle (dans un FOR par exemple)

leave; // (sortie anticipée d'une boucle)

leavesr; // (sortie anticipée d'un sous programme)

Monitor; // (démarre un groupe d'instructions sous contrôle)

next ecran nomfichier; // indique l'unité à lire la prochaine fois

on-exit ;

  // actions de sortie

  ....

end-proc;

Monitor;

....

on-error 1204;

     ....

ENDMON;

OPEN CLientp1;

OUT dataarea; // à jour d'une data -area

POST

Post ecran01; // met à jour l'INFDS d'écran01

READ/readp

dow not %eof;
 read clientf1; // lecture séquentielle (readp = en arrière)

READE/
readpe

READe nocde detdcep1; //lecture du suivant si la clé égale nocde.

READC

READC FE; // lecture séquentielle des lignes modifiés dans FE.

REL

REL UNITE ; // le contraire de ACQ

RESET

RESET datastructure; // réattribut les valeurs initiales. [INZ( ).]

RETURN

return:        // sortie anticipée d'un programme
return result; // fin d'une fonction (result est la valeur retour)

rolbk; // annulation de la dernière transaction

SELECT
/WHEN
/OTHER

SELECT ;
  WHEN codfacture = 'CH';
    ....
   WHEN codafacture = 'ES' or codfacture = 'CB';
     ....
   OTHER;
     ....
ENDSL;

SETLL/setgt

SETLL nocli entcdef1; // se positionne sur la première commande
if %equal ; // si positionné par == (au moins une commande).

SORTA (A | D)

Sorta tbldestva ;//(tri le tableau, avant V7, doit être déclaré ASCEND/DESCEND)

TEST(E
 D | T | Z)

test(ed) *ISO datechar;  // test DATECHAR avant conversion.
 if %error ;              // n'est pas une date valide 

UNLOCK

if *in12 ;
unlock articlp1; // déverrouille la ligne

UPDATE

else ;

update articlf1; // mise à jour.

WRITE

write clientf1; // ajout d 'un nouveau client.

XML-INTO

xml-into DS1 %xml(data); // lecture XML et placement dans DS1.

réalisation d'un arrondi lors de l'opération.

lecture sans verrouillage.

complémantation à blanc avec MOVE, MOVEL, XLATE, etc...

pour un calcul, travailler avec une précision maxi (un seul arrondi).

pour un calcul, travailler avec la même précision que la variable 
résultat (arrondi à chaque opération).

Erreur gérée (pour tout les ordres avec indicateur en <<).

pour CALLB, transmission du descripteur de paramètres [ILE].

pour TEST (date, heure, horodatage).

pour SORTA (V7R1), indique dynamiquement le critère de tri.

%BITNOT(x'00') = x'FF'

%BITOR(x'F0' : x'0F') = x'FF'

%BITAND(x'F1' : x'1F') = x'11'

%BITXOR(x'F1' : x'1F') = x'EE' [1110 1110)

ZoneChar=%CHAR(ZoneDec) // 000123,45- ==> '-123,45'

Eval pos = %check('0123456789.' : variable)

eval datcmd = %DATE(datchar : *YMD0)//(c'est un zéro)

eval datliv = datcmd + %DAYS(15)

transforme une valeur numérique (char en V5.2,date en V5.3) en numérique condensé ou packé.
(%DECH applique un arrondi)

eval DATAMJ = %dec(DATCDE : *YMD)

eval ecart = %DIFF(datliv : datcmd : *DAYS)

%DIV

%EDITC

eval msg = 'date de traitement' + 
           %editc(date : 'Y') 
         
eval montanchar = %editc( 
                  qte * prix : '3')

%EDITW

if   I < %elem(tbl_tva)

%EOF

dow  not %eof(clients)

%ERROR

if   %error

%EQUAL

%EDITFLT

Update clientf1 %FIELDS(nomcli : depcli : ville) ;

%FLOAT

%FOUND

%GRAPH

eval demain = maintenant + %hours(18)

transforme une valeur numérique (ou caractère en 5.20)au format binaire signé

CHAIN %KDS(dscli) clientf1;
// mais aussi CHAIN (DEPCLI : NOCLI) clientf1;

%LEN

if   %len(%trim(nom)) > 2

eval L = %len(zone-variable)

%LIST

tbcepage = %list('Syranh' : 'grenache' : 'carignan')

IF wcep in %list('Syrah' : 'grenache' : 'carignan') 

%LOOKUP
(%LOOKUPxx)

eval pos = %lookup('$' : monnaies)

%MAX

maxi = %max(priha: prirv: privente);

        

%MIN

datecheance = %min(datliv : datfac) + %days(60);

        

voir %HOURS()

voir %DAYS()

exprime un nombre de microsecondes

voir %HOURS

%NULLIND

IF   %NULLIND(datcmd) = *ON 
         
EVAL %NULLIND(prime) = *OFF 
EVAL prime = 1500 

positionne sur une occurrence de DS

%OCCUR(DS1) = 7 ou x = %occur(DS2)

%OPEN

if   %open(clients)

if   %parms > 2 

if   %parms > %parmnum(nocli) // nocli transmis ?

%PROC

monpgm = %proc();

%RANGE

if car in %range('a' : 'z')

Réalloue un espace mémoire plus grand

voir %ALLOC

%REM

if   %rem(an : 4 )= 0 

                          [var1 = 'AS/400'] 
eval x = %scan('4' : var1) 
eval var2 = %replace('5': var1:x) 
                          [var2 = 'AS/500']

eval var2 = %replace('X': var1 : 1 : 3) 
   [je remplace 3 caractères : var2 = 'X500']

%SECONDS

voir %HOURS()

%SHTDN

if %SHTDN

%SCAN

eval chaine = 'ILE/RPG-IV' 
eval pos = %scan('I' : chaine)        [pos=1]
eval deb = pos + 1 
eval pos = %scan('I' : chaine: deb)   [pos=9]

%SCANR

eval chaine = 'ILE/RPG-IV' 
eval pos = %scanr('I' : chaine)        [pos=9]
        

eval resultat = %SCANRPL('GAP' : 'RPG' : origine)

if    %SUBST(nom : %size(nom): 1) = *blank

%STATUS

if   %error and %status(clients) = 1252

eval annee = %SUBDT(datliv : *YEARS)

if   %subst(raisoc : 1 : 1) <> ' '
         
eval %subst(pgm : 1 : 1) = 'Q' 

resultat = %xfoot( %subarr(tbl : i : 5) )// 5 postes

%TIME

if %time(pointage : *HMS) = T'23:59:59'

%TLOOKUP[xx]

voir %lookup

eval NP = %trim(nom) + ' ' + %trim(prenom)

%UCS2

transforme une valeur numérique (ou caractère ) au format binaire non signé

%XFOOT

eval total = %xfoot(tb_salaire) + prime

eval resultat = %XLATE('abcdef' : 'ABCDEF' : origine)

xml-into DS1 %xml(data : 'doc=string')

voir %DAYS