Funktion
Die SOURCE-Klausel nennt jenes Datenfeld, dessen Inhalt das Listenprogrammsteuersystem durch eine implizite MOVE-Anweisung in das druckfähige Feld, in dessen Beschreibung die SOURCE-Klausel enthalten ist, transportiert, sobald diese gedruckt werden soll.
Format
SOURCE IS bezeichner
Syntaxregel
Jeder Bezeichner, der in einem der Kapitel der DATA DIVISION definiert ist, kann in einer SOURCE-Klausel angegeben werden. Aus der REPORT SECTION darf in einer SOURCE-Klausel allerdings nur das PAGE-COUNTER-Sonderregister ("Seitenzähler“), das LINE-COUNTER-Sonderregister ("Zeilenzähler“) oder ein Summenzähler an-gegeben werden, wenn er zu der Liste gehört, in deren Beschreibung die SOURCE-Klausel auftritt.
Allgemeine Regeln
Die Beschreibung eines elementaren Feldes, die eine SOURCE-Klausel enthält, muss auch eine COLUMN-Klausel ausweisen, d.h. druckfähig sein.
Die SOURCE-Klausel erzeugt in Verbindung mit der COLUMN-Klausel eine implizite MOVE-Anweisung. Für diese MOVE-Anweisung ist das Sendefeld durch den Bezeichner aus der SOURCE-Klausel festgelegt. Als Empfangsfeld dient das druckfähige Feld, dessen Beschreibung die SOURCE-Klausel enthält. Die Maskenzeichenfolgen der PICTURE-Klauseln der beiden Felder müssen mit den Regeln der MOVE-Anweisung (siehe "MOVE-Anweisung") in Einklang sein.
Da die SOURCE-Klausel niemals zu einer Wertänderung des in ihr angeführten Datenfeldes führen kann, darf sie sich auch auf ein Gruppenwechseldatenfeld beziehen. Generell wird der Wertinhalt des Sendefeldes gedruckt, der bei der Ausführung der MOVE-Anweisung (Erstellung der zugehörigen Leiste) vorhanden ist. Sollen in Gruppenfüßen die alten Werte der Gruppenwechseldatenfelder stehen, so ist die Funktion 1 des CBL-CTR-Sonderregisters (siehe "CBL-CTR-Sonderregister") zu verwenden.
Beispiel 10-7
FILE SECTION.
...
02 ABTEILUNG PIC XXX.
...
REPORT SECTION.
...
02 COLUMN 19 PIC XXX SOURCE ABTEILUNG.
...
Die SOURCE-Klausel bewirkt, dass der Inhalt aus dem Datenfeld ABTEILUNG in das betroffene druckfähige Feld transportiert wird, sobald die Leiste erstellt wird, zu der das druckfähige Feld gehört.