RDBQ2¤Îµ¡Ç½¡Ê½¸·×¤ÎºÇÂç¡Ë¤òCOBOL¤Ç

6:Re: RDBQ2¤Îµ¡Ç½¡Ê½¸·×¤ÎºÇÂç¡Ë¤òCOBOL¤Ç
¥¿¡¼¥é¥ä¥ó 04/13 22:55
ƒ¯COBOLSQLSQLEXTENSION
ƒ²ƒÉ

A-VX RDB„UCOBOLSQL

PERFORM X THRU Y.
EXEC SQL
SELECT MAX(A) INTO B FROM C-FILE GROUP BY D
END-EXEC.
MOVE B TO E.


ıEXEC SQLEND-EXECSQL


COBOLOracleDBPRO*COBOLı
ƒ±„R
COBOLıı


Á°¼¡1-¿·½ñÈÄ

BluesBB ©Sting_Band