各ソース・レコードでは、ソース ID と呼ばれる 1 つの番号が割り当てられます。後のレコードでこのレコードに記述されたソース行を参照するときは、この番号が使用されます。 行は、PL/I 1 次ソース・ファイルまたは INCLUDE されたファイルの行の場合があります。行は、このレコードのソース・ファイル ID と行番号のフィールドで示されます。 このレコードの残りの部分は、ソース行の実データを保持します。
Dcl
1 Xin_Src Based( null() ), /* source record */
/* */
2 Xin_Src_Hdr /* standard header */
like Xin_Hdr, /* */
/* */
2 Xin_Src_File_Id /* file id */
fixed bin(32) unsigned, /* */
/* */
2 Xin_Src_Line_No /* line no within file */
fixed bin(32) unsigned, /* */
/* */
2 Xin_Src_Id /* id for this source record */
fixed bin(32) unsigned, /* */
/* */
2 Xin_Src_Length /* length of text */
fixed bin(16) unsigned, /* */
/* */
2 Xin_Src_Text /* actual text */
char( 137 refer(xin_Src_Length) );