MBP INPUT PROCEDURE logo
Begin PROCEDURE DIVISION %PREINIT AA100-BEGIN %INITWS BA102-START-BROWSE %MGLOCKY BA102-START-BROWSE %MGREDLE Rec Found? BA110-READ-NEXT %MGREDNX JA100-LOGICAL-JOIN %JOIN BA115-SELECT %SELECT Release Decision Release to Sort %MYTOSRT EOF End