00001 REM "This Utility will read thru IDDBD for a specific menu 00002 REM "and print out all the seletion that run a Report 00005 BEGIN 00010 OPEN (1) "IDDBD" 00020 READ RECORD (1,KEY="M"+"IDMENU2 "+"11") A$ 00030 M$=A$ 00040 WHILE LEN(M$)<DEC(A$(6,2)); READ RECORD (1) A$; M$=M$+A$; WEND 00050 FOR X=18 TO LEN(M$)-18 STEP 30; IF M$(X+9,1)="R" PRINT M$(X+10,8) FI; NEXT X