(def comm |
| ((def fic |
| | | / fic = fichier : le rang physique RGPHY reçoit la conversion du rang logique CONV-RGLOG / |
| | | ((def lect () |
| | | / lect : on recherche, dans le fichier ouvert sous le numéro logique NUM-LOG et au rang physique RGPHY, la valeur stockée, retournée dans VAL / |
| | | ("{RGPHY}={CONV-RGLOG} SEARCH={NUM-LOG},{RGPHY}:{VAL}")) |
| | | (def ecr () |
| | | / ecr : on modifie, dans le fichier ouvert sous le numéro logique NUM-LOG et au rang physique RGPHY, la valeur stockée par une nouvelle valeur VAL / |
| | | ("{RGPHY}={CONV-RGLOG} MODIF={NUM-LOG},{RGPHY}:{VAL}")) |
| | | (def ins () |
| | | / ins : on insère, dans le fichier ouvert sous le numéro logique NUM-LOG et à un nouveau rang physique RGPHY, la valeur VAL / |
| | | ("{RGPHY}={CONV-RGLOG} INSERT={NUM-LOG},{RGPHY}:{VAL}")) |
| | | (def supp () |
| | | / supp : on supprime, dans le fichier ouvert sous le numéro logique NUM-LOG, la valeur stockée au rang physique RGPHY / |
| | | ("{RGPHY}={CONV-RGLOG} DELETE={NUM-LOG},{RGPHY}")) |
| | | )) |
| (def tab |
| | | / tab = tableau / |
| | | ((def lect () |
| | | / lect : on retourne dans VAL la valeur du rang logique VAL-RGLOG / |
| | | ("{VAL}={VAL-RGLOG}")) |
| | | (def ecr () |
| | | / ecr : on modifie la valeur au rang logique VAL-RGLOG par la valeur VAL / |
| | | ("{VAL-RGLOG}={VAL}")) |
| | | )) |
| )) |