WORKING-STORAGE SECTION. 01 data-value. 05 returned-packed1 pic s9(3)v9(2) packed-decimal. PROCEDURE DIVISION. move 345.67 to returned-packed1. DISPLAY data-value UPON data-area FOR "DECDATA" LIBRARY "QGPL". ACCEPT data-value FROM data-area FOR "DECDATA" LIBRARY "QGPL". =========================================================== R. Bruce Hoffman, Jr. -- IBM Certified Specialist - AS/400 Administrator -- IBM Certified Specialist - RPG IV Developer "America is the land that fought for freedom and then began passing laws to get rid of it." - Alfred E. Neuman -----Original Message----- From: Tim Truax <firstname.lastname@example.org> To: COBOL400-L List <cobol400-L@midrange.com> Date: Thursday, August 16, 2001 4:57 PM Subject: Change *DTAARA from within a COBOL pgm ? I have a COBOL 400 program that uses a call to QCMDEXC to change a *DTAARA (Data area). Is there a less overhead utilizing manner in which to change a *DTAARA from within a COBOL program than using the QCMDEXC? Maybe some similar way to the way RPG400 does it by using the IN opcode then the OUT opcode? Thanks! Tim Truax :-)
As an Amazon Associate we earn from qualifying purchases.
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.