Le fichier source : un PF où chaque membre est un programme

Créer un fichier source

Une seule commande, CRTSRCPF. Notre démonstration en a créé trois :

CRTSRCPF  FILE(JOBIPOK/QDDSSRC)   RCDLEN(92) TEXT('Sources DDS de la demonstration')
CRTSRCPF  FILE(JOBIPOK/QRPGLESRC) RCDLEN(112)
CRTSRCPF  FILE(JOBIPOK/QCLSRC)    RCDLEN(92)
CPC7301  Fichier QRPGLESRC créé dans la bibliothèque JOBIPOK.

Le fichier naît sans membre : le paramètre MBR de CRTSRCPF vaut *NONE par défaut, et le nombre de membres est illimité (MAXMBRS(*NOMAX)). Chaque source devient ensuite un membre, créé par l'éditeur (SEU, VS Code avec Code for IBM i) ou par ADDPFM, avec un type de source : RPGLE, CLLE, PF, LF…

Les noms habituels ne sont pas une obligation, mais ce sont les valeurs par défaut des compilateurs : sans précision, chaque commande cherche son source dans ce fichier, et dans le membre qui porte le nom de l'objet à créer.

Notre QDDSSRC contient ainsi un membre par fichier de la démonstration, chacun de son type :

SELECT SYSTEM_TABLE_MEMBER, SOURCE_TYPE, NUMBER_ROWS
  FROM QSYS2.SYSPARTITIONSTAT
 WHERE TABLE_SCHEMA = 'JOBIPOK' AND TABLE_NAME = 'QDDSSRC'

ATTAQUE   PF   7        POKEFEU   LF   4
POKEATK   LF   5        POKEJOIN  LF   9
POKEDEX   PF   6        POKEMON   PF   7
                        POKETYPE  LF   4

La longueur d'enregistrement

Chaque ligne de source est un enregistrement de trois zones :

Le catalogue SQL le confirme sur nos deux fichiers :

SELECT SYSTEM_TABLE_NAME, COLUMN_NAME, DATA_TYPE, LENGTH, NUMERIC_SCALE
  FROM QSYS2.SYSCOLUMNS WHERE TABLE_SCHEMA = 'JOBIPOK' …

QCLSRC     SRCSEQ  NUMERIC    6  2
QCLSRC     SRCDAT  NUMERIC    6  0
QCLSRC     SRCDTA  CHAR      80
QRPGLESRC  SRCSEQ  NUMERIC    6  2
QRPGLESRC  SRCDAT  NUMERIC    6  0
QRPGLESRC  SRCDTA  CHAR     100

92 est la longueur par défaut de CRTSRCPF : IBM la décrit comme 6 octets de numéro de séquence, 6 de date et 80 de source. 80 colonnes, c'est la largeur des sources en colonnes : spécifications RPG, DDS, CL. Le RPG en format libre, lui, écrit volontiers des lignes plus longues : nos exemples en contiennent de 83 caractères. D'où l'habitude de créer QRPGLESRC en RCDLEN(112), soit 100 caractères de source.

Ce qui arrive à une ligne trop longue

Copions le programme LIREATK, écrit dans QRPGLESRC (112), vers QCLSRC (92). CPYF refuse d'abord, puis accepte avec FMTOPT(*MAP) :

CPYF  FROMFILE(JOBIPOK/QRPGLESRC) TOFILE(JOBIPOK/QCLSRC) FROMMBR(LIREATK) TOMBR(COURT)
CPF2962  FMTOPT(*MAP) ou FMTOPT(*NOCHK) obligatoire pour la copie.

CPYF  … FMTOPT(*MAP)
CPC2955  22 enregistrement(s) du membre LIREATK copié(s).

Aucun avertissement. Pourtant, les deux lignes de 83 caractères ont perdu leurs trois derniers :

Avant : snd-msg %trim(format) + ' :     ' + %trim(attaque) + ' (' + %char(puiss) + ')';
Après : snd-msg %trim(format) + ' :     ' + %trim(attaque) + ' (' + %char(puiss) + '

La copie ne compile plus :

RNF5177  Opération ENDyy manquante pour le groupe d'opérations DOW
RNF0267  Character literal has missing trailing apostrophe; …
RNS9310  La compilation a échoué. Le programme COURT n'a pas été créé dans la bibliothèque JOBIPOK.

Fichier source ou PF de données ?

Les deux sont des fichiers physiques, attribut PF. Le catalogue QSYS2.SYSFILES les distingue par leur type :

TABLE_NAME  FILE_TYPE  MAXIMUM_RECORD_LENGTH  NUMBER_MEMBERS  MAXIMUM_MEMBERS
POKEMON     DATA                          27               1                1
QCLSRC      SOURCE                        92               1  (illimité)
QRPGLESRC   SOURCE                       112               3  (illimité)

Comme tout PF, un fichier source se lit en SQL, à condition de désigner le membre par un ALIAS :

CREATE ALIAS JOBIPOK.SRC_LIREATK FOR JOBIPOK.QRPGLESRC (LIREATK);
SELECT SRCSEQ, SRCDAT, SRCDTA FROM JOBIPOK.SRC_LIREATK WHERE SRCSEQ BETWEEN 18 AND 19;

SRCSEQ  SRCDAT  SRCDTA
  18.0       0    endif;
  19.0       0    read pokeatk;

La date vaut 0 : ces lignes ont été envoyées par notre outil de démonstration, qui ne la renseigne pas ; c'est une zone que les éditeurs utilisent pour dater les lignes modifiées.

Enfin, un source n'est plus obligé de vivre dans un fichier source : les compilateurs savent aussi lire un fichier de l'IFS, par le paramètre SRCSTMF de CRTBNDRPG ou de CRTBNDCL, ce qui permet de ranger ses sources dans Git.

Questions fréquentes