|
12:Re: AT ENDは正しく動いているのでは？ gai 07/23 15:07 �� �� ���� *********************************************************** PERFORM DELETE-PROC UNTIL WK-DNO NOT = XXXX-DNO. *********************************************************** *********************************************************** DELETE-PROC SECTION. KK-010. DELETE XXXX-F INVALID KEY MOVE MSG-ABC TO KB-MSG1 MOVE XX-KEY TO KB-MSG2 PERFORM MSG-RTN THRU MSG-EXT. PERFORM READ-PROC. KK-DELETE-EXIT. EXIT. *********************************************************** *********************************************************** READ-PROC SECTION. K-010. READ XXXX-F NEXT AT END MOVE HIGH-VALUE TO XXXX-KEY2. READ-EXIT. EXIT. *********************************************************** XXXX-KEY2 XXXX-DNO 9(06) XXXX-KNO 9(02) WK-DNO9(06) XXXX-DNO |