Un peu de CL CLP CLLE, CMD, UIM...

Associer une commande *cmd - appelée SPS - et ses mots-clé à une aide *pnlgrp

             CMD        PROMPT('Show Program Source')
             PARM       KWD(PROG) TYPE(*CNAME) LEN(10) MIN(1) +
                          CHOICE('Programme')
             PARM       KWD(BIBSRC) TYPE(*CNAME) LEN(10) +
                          DFT(MILAN) ALWUNPRT(*YES) CHOICE('Bib. +
                          des fichiers sources')

:pnlgrp.

:help name = 'SPS'.  Show Program Source
:xh3. SPS
:p.
Allows you to quickly browse the source code of a program.
:p.
The library list is used for the search.
:pc.
According to the type of object program found, SPS
looks for the source code in the usual source file : Qclsrc, Qrpgsrc, Qlblsrc.
:p.
In addition, the compile date and text of the object program is shown in the log.
:ehelp.

:help name = 'SPS/PROG'. Program
:xh3. Program
:p.
Type in the name of the program.
:pc.
*libl is used for the search.
:ehelp.

:help name = 'SPS/BIBSRC'.  Library of source files
:xh3. Lib. of source files
:p.
The library where the source files are located.
:ehelp.

:epnlgrp.

Il ne faut pas oublier que le System 38 qui est à l’origine de l’OS/400 a été financé dans les années 80 sur un budget supplémentaire car le laboratoire Rochester voulait placer le management d’ IBM devant le fait accompli.
Comme l’écrivait Frank Soltis dans son livre à ce sujet : 
« il est plus efficace de prendre le risque d’être réprimandé après coup que de demander en vain».
Donc l’OS/400 est né de la compétence d’une équipe de visionnaires, du génie de Frank Soltis et de l’audace d’un laboratoire isolé dans des champs de maïs du Minnesota.

Extrait d'une lettre de www.repeglio.com    merci à Jean Mikhaleff   ;-))