<?xml version="1.0" encoding="UTF-8"?>
<!-- generator="FeedCreator 1.8" -->
<?xml-stylesheet href="https://wikasi.rahar.fr/lib/exe/css.php?s=feed" type="text/css"?>
<rdf:RDF
    xmlns="http://purl.org/rss/1.0/"
    xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
    xmlns:slash="http://purl.org/rss/1.0/modules/slash/"
    xmlns:dc="http://purl.org/dc/elements/1.1/">
    <channel rdf:about="https://wikasi.rahar.fr/feed.php">
        <title>WikASi - Un peu de tout sur le i - index:programmation:clp</title>
        <description></description>
        <link>https://wikasi.rahar.fr/</link>
        <image rdf:resource="https://wikasi.rahar.fr/lib/exe/fetch.php?media=wiki:dokuwiki.svg" />
       <dc:date>2026-04-04T11:52:39+00:00</dc:date>
        <items>
            <rdf:Seq>
                <rdf:li rdf:resource="https://wikasi.rahar.fr/doku.php?id=index:programmation:clp:dcl&amp;rev=1767453234&amp;do=diff"/>
                <rdf:li rdf:resource="https://wikasi.rahar.fr/doku.php?id=index:programmation:clp:format&amp;rev=1744921318&amp;do=diff"/>
                <rdf:li rdf:resource="https://wikasi.rahar.fr/doku.php?id=index:programmation:clp:invitecmd&amp;rev=1744921318&amp;do=diff"/>
                <rdf:li rdf:resource="https://wikasi.rahar.fr/doku.php?id=index:programmation:clp:sql&amp;rev=1744921318&amp;do=diff"/>
                <rdf:li rdf:resource="https://wikasi.rahar.fr/doku.php?id=index:programmation:clp:xls&amp;rev=1744921319&amp;do=diff"/>
            </rdf:Seq>
        </items>
    </channel>
    <image rdf:about="https://wikasi.rahar.fr/lib/exe/fetch.php?media=wiki:dokuwiki.svg">
        <title>WikASi - Un peu de tout sur le i</title>
        <link>https://wikasi.rahar.fr/</link>
        <url>https://wikasi.rahar.fr/lib/exe/fetch.php?media=wiki:dokuwiki.svg</url>
    </image>
    <item rdf:about="https://wikasi.rahar.fr/doku.php?id=index:programmation:clp:dcl&amp;rev=1767453234&amp;do=diff">
        <dc:format>text/html</dc:format>
        <dc:date>2026-01-03T15:13:54+00:00</dc:date>
        <dc:creator>Anonymous (anonymous@undisclosed.example.com)</dc:creator>
        <title>dcl</title>
        <link>https://wikasi.rahar.fr/doku.php?id=index:programmation:clp:dcl&amp;rev=1767453234&amp;do=diff</link>
        <description>Déclarations DCL

Apostrophe &#039; &amp; Arobas @

 DCL VAR(&amp;QUOTE) TYPE(*CHAR) LEN(1) VALUE(X&#039;7D&#039;)

 DCL VAR(&amp;AROBAS) TYPE(*CHAR) LEN(1) VALUE(X&#039;7C&#039;)

 DCL VAR(&amp;AROB44) TYPE(*CHAR) LEN(1) VALUE(X&#039;44&#039;)


Variables

DCL &amp;FILLIB  *CHAR 20

DCL  &amp;FILE  *CHAR  LEN(10) STG(*DEFINED) DEFVAR(&amp;FILLIB 01)</description>
    </item>
    <item rdf:about="https://wikasi.rahar.fr/doku.php?id=index:programmation:clp:format&amp;rev=1744921318&amp;do=diff">
        <dc:format>text/html</dc:format>
        <dc:date>2025-04-17T20:21:58+00:00</dc:date>
        <dc:creator>Anonymous (anonymous@undisclosed.example.com)</dc:creator>
        <title>format</title>
        <link>https://wikasi.rahar.fr/doku.php?id=index:programmation:clp:format&amp;rev=1744921318&amp;do=diff</link>
        <description>Formattage

Nombre

DCL &amp;RCD    *DEC  10

DCL &amp;RCDA   *CHAR 10

DCL &amp;I      *INT

DCL &amp;X      *DEC  10

DCL &amp;TOTX   *CHAR 10


CHGVAR &amp;RCDA (&amp;RCD)

DOFOR      &amp;I  FROM( 1 ) TO( 10 )

IF (%SST(&amp;RCDA &amp;I 1) &gt; &#039;0&#039;)  LEAVE

ENDDO

CHGVAR &amp;X (11 - &amp;I)

CHGVAR     VAR(%SST(&amp;TOTX 1 &amp;X)) VALUE(%SST(&amp;RCDA &amp;I &amp;X))</description>
    </item>
    <item rdf:about="https://wikasi.rahar.fr/doku.php?id=index:programmation:clp:invitecmd&amp;rev=1744921318&amp;do=diff">
        <dc:format>text/html</dc:format>
        <dc:date>2025-04-17T20:21:58+00:00</dc:date>
        <dc:creator>Anonymous (anonymous@undisclosed.example.com)</dc:creator>
        <title>invitecmd</title>
        <link>https://wikasi.rahar.fr/doku.php?id=index:programmation:clp:invitecmd&amp;rev=1744921318&amp;do=diff</link>
        <description>Invite ?? de commande

??  : Vue Saisie &gt; envoyé au CPP

?*  : Vue Verrouillé &gt; envoyé au CPP

?&lt;  : Vue Saisie MAIS &gt; envoi Command DFT au CPP

?-  : NON affiché &gt; envoyé au CPP

?&amp;  : NON affiché sauf F9 MAIS &gt; envoi Command DFT au CPP

?%  : ON affiché sauf F9 Verrouillé &gt; envoyé au CPP</description>
    </item>
    <item rdf:about="https://wikasi.rahar.fr/doku.php?id=index:programmation:clp:sql&amp;rev=1744921318&amp;do=diff">
        <dc:format>text/html</dc:format>
        <dc:date>2025-04-17T20:21:58+00:00</dc:date>
        <dc:creator>Anonymous (anonymous@undisclosed.example.com)</dc:creator>
        <title>sql</title>
        <link>https://wikasi.rahar.fr/doku.php?id=index:programmation:clp:sql&amp;rev=1744921318&amp;do=diff</link>
        <description>SQL en vrac

Services SQL i

	*  SQL en vrac

Sql_Exc

	*  Exec SQL

QMQRY
 CHGVAR     &amp;VAR1 (&amp;QUOTE *TCAT &amp;OBJ_ODOBTX *TCAT &amp;QUOTE)\\
 STRQMQRY   QMQRY(*LIBL/RLIBOS) OUTPUT(*OUTFILE) +
          OUTFILE(QTEMP/&amp;REFFILE) OUTMBR(*FIRST +
          &amp;OPTION) RDB(&amp;RDB_RWRDB) USER(&amp;RMTUSER) +
          PASSWORD(&amp;RMTPWD) SETVAR((LIBELE &amp;VAR1))</description>
    </item>
    <item rdf:about="https://wikasi.rahar.fr/doku.php?id=index:programmation:clp:xls&amp;rev=1744921319&amp;do=diff">
        <dc:format>text/html</dc:format>
        <dc:date>2025-04-17T20:21:59+00:00</dc:date>
        <dc:creator>Anonymous (anonymous@undisclosed.example.com)</dc:creator>
        <title>xls</title>
        <link>https://wikasi.rahar.fr/doku.php?id=index:programmation:clp:xls&amp;rev=1744921319&amp;do=diff</link>
        <description>Convertir une durée en Minutes en Jour Heure Minute Seconde

=ENT(ARRONDI(G2;0)/1440)&amp;“ jours ”&amp;ENT(MOD(ARRONDI(G2;0);1440)/60)&amp;“ heures ”&amp;ENT(MOD(ARRONDI(G2;0);60)/1)&amp;“ minutes ”</description>
    </item>
</rdf:RDF>
