|
Debbie, Sorry for the confusion. I was joking with R Bruce re cobol syntax. He pointed out that rpg dtaara syntax was no better than cobol. I think Cl has an excellent syntax and my ChgDtaAra remark was referring to how simple and directly you can code such a stmt in CL. This is all IBM's fault<g>. If they just provided a chgdtaara api ( all types of dtaara ), you could code an ile chgdtaara module any way you wanted it. Regards, Steve Richter -----Original Message----- From: Debbie Panco <dpanco43@ix.netcom.com> To: midrange-l@midrange.com <midrange-l@midrange.com> Date: Monday, August 20, 2001 9:49 AM Subject: RE: Change *DTAARA from within a COBOL pgm ? follow up >Steve, > What version of Cobol or Cobol 400 are you referring to that >allows the RTVDTAARA & CHGDTAARA commands within >the Cobol code? > > >Deborah Panco >Senior Systems Analyst / Project Leader >United Consumer Financial Services >dpanco43@ix.netcom.com >440-835-6674 > >-----Original Message----- >From: midrange-l-admin@midrange.com [mailto:midrange-l-admin@midrange.com] >On Behalf Of srichter >Sent: Thursday, August 16, 2001 7:56 PM >To: midrange-l@midrange.com >Subject: Re: Change *DTAARA from within a COBOL pgm ? follow up > >R. Bruce, > >I cant disagree with you on rpg. > >but > 05 returned-packed1 pic s9(3)v9(2) packed-decimal. >Oh brother. Type that 10 times fast. > >To promote peace and serenity, what about: > RTVDTAARA DTAARA(&LIB/&NAME (5 10)) RTNVAR(&Data) >and > CHGDTAARA DTAARA(&LIB/&NAME (5 10)) VALUE(&DATA) > >Glad you posted the code though. > >-Steve > > >---------- Original Message ---------------------------------- >From: "R. Bruce Hoffman, Jr." <rbruceh@attglobal.net> >Reply-To: midrange-l@midrange.com >Date: Thu, 16 Aug 2001 19:40:46 -0400 > >>Hey, at least I don't burn 40 columns just to say : >> >> C IN POOP >> >>and let's not forget the define statements too.... >> >>;-) >> >>as for the code, they are standard DISPLAY and ACCEPT with IBM extensions. >>Format 9 for ACCEPT and Format 5 for DISPLAY. >> >>Just because (as Al pointed out) the language is standardized, >(standardised >>for you, Jon...) does not mean that compiler developers don't have some >>latitude in extending the language.... >> >><TONGUE location="firmly in cheek" grin="on" size="large"> >>RPG is just one big extension over no standard.... >></TONGUE> >> >> >>=========================================================== >>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: srichter <srichter@mail.autocoder.com> >>To: midrange-l@midrange.com <midrange-l@midrange.com> >>Date: Thursday, August 16, 2001 7:28 PM >>Subject: Re: Change *DTAARA from within a COBOL pgm ? >> >> >>>That is some nasty looking code. >>> >>>I will never criticize rpg again<g>. >>> >>>Steve Richter >>> >>>---------- Original Message ---------------------------------- >>>From: "R. Bruce Hoffman, Jr." <rbruceh@attglobal.net> >>>Reply-To: midrange-l@midrange.com >>>Date: Thu, 16 Aug 2001 19:19:05 -0400 >>> >>>> 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 <truax@telerama.com> >>>>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 :-) >>>> >>>> >>>>_______________________________________________ >>>>This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing >>list >>>>To post a message email: MIDRANGE-L@midrange.com >>>>To subscribe, unsubscribe, or change list options, >>>>visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l >>>>or email: MIDRANGE-L-request@midrange.com >>>> >>>> >>>_______________________________________________ >>>This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing >list >>>To post a message email: MIDRANGE-L@midrange.com >>>To subscribe, unsubscribe, or change list options, >>>visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l >>>or email: MIDRANGE-L-request@midrange.com >>> >> >>_______________________________________________ >>This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list >>To post a message email: MIDRANGE-L@midrange.com >>To subscribe, unsubscribe, or change list options, >>visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l >>or email: MIDRANGE-L-request@midrange.com >> >> >_______________________________________________ >This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list >To post a message email: MIDRANGE-L@midrange.com >To subscribe, unsubscribe, or change list options, >visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l >or email: MIDRANGE-L-request@midrange.com > >_______________________________________________ >This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list >To post a message email: MIDRANGE-L@midrange.com >To subscribe, unsubscribe, or change list options, >visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l >or email: MIDRANGE-L-request@midrange.com > >
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.