MACRO 09000000 &NAME JTRUNC &FILE= 18000000 .* GENERATES A CALL TO THE WORKFILE I/O PACKAGE TO TRUNCATE 18050000 .* AN OUTPUT BUFFER. THIS CAUSES THE CURRENT OUTPUT BUFFER 18100000 .* TO BE REGARDED AS FULL AND PUT TO FILE. THE NEXT LOGICAL 18150000 .* RECORD WILL BE PUT IN THE NEXT PHYSICAL BUFFER. 18200000 AIF (K'&FILE EQ 0).ERR1 27000000 &NAME JINST LA,R10,&FILE,FILE 36000000 L R12,JMLC LOAD BASE 45000000 BAL R9,JTRUNC(,R12) GO TO JTRUNC 54000000 MEXIT 63000000 .ERR1 MNOTE 8,'PARAMETER ERROR.' 72000000 MEND 81000000