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