!* AUTHOR: E. Johnson DATE: 30-Jan-80 VERSION: 1.1 FOR: Seldon Bernstein LANGUAGE: TECO V34 RESIDENCE: [?,?]KEEPER.TES USEAGE: PDS> MUNG KEEPER,filespec ABSTRACT: This macro will strip a file of records that do not contain a specified string in a specified location. The records may be variable in length and the string may contain any number of characters. If a given record is not long enough to test, then it is retained. MODIFICATIONS: No. Date Init. Reason --- --------- ----- --------------------------------------------- 1 25-Jul-90 JNG Made macro MUNGable with the file specified. *! @^UI\@O/BEGIN/ !BEGIN! J IEB ZJ @I/ HK Y / HXA MA ETUZ 7ET @^A/ H J/ QZET @^A/Starting KEEPER NOTE: The delete key will not work!!!!!! Please be accurate in answering the next two prompts. To abort type 3 CTRL-Z's / @^UA/::S/ 1U1 0UB 0UC ! Initialize search command in QA ! @^A/Enter Keyword Position: / ! Prompt for search string position !  <^TUC QC-127"E@^A/ D  D/| QC-13"E0;'[C'>^T ! Put ascii digits on stack ! <:]C; (QC-48)*Q1+QBUB Q1*10U1>QB-1UB ! Convert to column number ! @^A/Enter Keyword: / ! Prompt for keyword ! <^TUA ETUZ QA-127"E@^A/ D  D/QZET| QA-13"E0;'QA:^UA '>^T ! Add string to search command in QA ! 27:^UA ! Then terminate search command. ! < J ! DO UNTIL EOF ! <.-Z; ! DO UNTIL End of Page ! QBC MA"F 0L K | L ' ! Kill the lines without keyword ! >^N"T0;'P ! Get next page if it exists ! > @^A/ KEEPER Done/ Ex \@EW%%MI