hier mal die H-Spec:

Code:
     H DEBUG(*NO)
     H DECEDIT('0,')
     H DATEDIT(*DMY/)
     H DFTACTGRP(*NO)
     H ACTGRP(*CALLER)
     H OPTION(*NOXREF:*NOSECLVL:*NOEXPDDS:*NOEXT:*NOSHOWSKP)
SQL-Bedingung ist eigtl. egal welche man ausführt, aber hier mal ein Beispiel:

Code:
/free
      exec sql
    select DECRYPT_CHAR(TRIM(LICILI), TRIM(:$SecretKeyP))
        select CAST(DECRYPT_CHAR(LICILI, TRIM(:$SecretKeyP))
         as CHAR(512))
         INTO :$LICI
        FROM ALLICI;
  /end-free
Das Programm wird mit *INLR = *ON verlassen!!

achja, als 1. SQL Statement kommt noch :

Exec SQL set option commit = *none;