*COMDECK  RPT811
00001  RPT-PRINT811.                                                    02/28/78
00002      IF CATEGORY-811-SW EQUAL "Y"                                 RPT811
00003          MOVE "N" TO CATEGORY-811-SW                                 LV001
00004          GO TO RPT-PRINT811-XIT.                                  RPT811
00005      IF RTBL-OPT-FORMAT EQUAL "D"                                 RPT811
00006          MOVE SPACES TO CATEGORY-DETAIL-811                       RPT811
00007          MOVE STDRPT-LINE TO LINE-811                             RPT811
00008          MOVE STDRPT-70CHR TO DETAIL-811                          RPT811
00009          MOVE CATEGORY-DETAIL-811 TO STD-REPORT-REC.              RPT811
00010  RPT-PRINT811-XIT.                                                RPT811
00011      EXIT.                                                        RPT811
