My apologies for the duplicate post. This one was originally sent from the wrong email address for the Assembler List, and I presumed it had been dropped into the bit bucket. But, apparently, it went through an approval process, which took a couple of days, and then made it to the list.
-- Art At 09:30 AM 12/23/2011, Art Celestini wrote: >I tend to use mixed case data area tags since I believe they help identify the >field contents better -- a practice I loosely call "capital separated words." >For example: > CLI DgwaParmCount,X'00' Anything for COUNT parameter? > BE Init0020 No ==> Stay with default >* > PACK DgwaDWord,DgwaParmCount Convert desired record ... > CVB R3,DgwaDWord ... count to binary >* >Init0020 DS 0H > CLI DgwaParmObid,X'00' Anything for OBID parameter? > BE Init0030 No ==> Stay with default >* > PACK DgwaDword,DgwaParmObid Convert desired ... > CVB R4,DgwaDWord ... OBID to binary >* >Init0030 DS 0H > ST R3,Dgwa#Records Save binary record ... > STH R4,DgwaObid ... count and OBID >* > NI DgwaParmSeed,X'7F' Ensure positive initial seed >* >* _________________ Copy Model DCB and DCBE to DGWA _________________ >* > MVC DgwaOutDcb,OutDcbModel Initialize DCB > MVC DgwaOutDcbe,OutDcbeModel Initialize DCBE >* > PUSH USING Save current USING state >* > USING IHADCB,DgwaOutDcb Map encapsulated DCB >* > LA R0,DgwaOutDcbe Get DCBE's address > ST R0,DCBDCBE Set DCBE's address in DCB > MVCFI DCBDDNAM,'SYSUT1 ' Set "SYSUT1" as DDNAME >* > POP USING Restore earlier USING state >(MVCFI - MVC From Inverted - is a macro that generates "MVCIN DCBDDNAM(8),=C' >1TUSYS'+7") > >-- Art Celestini > > > > >At 08:39 PM 12/22/2011, Paul Gilmartin wrote: > >>On 12/22/2011 16:10, Bodoh John Robert wrote: >>>I do it a little different. I like mixed case for comments and remarks but >>>like uppercase for the actual code. The mixed case comments and remarks are >>>easier to read and the uppercase code is quite distinguishable from the >>>comments and remarks. >>Plays well with case-sensitive searches in an editor, which will >>find either code or comments, but not both. >> >>-- gil > > > >================================================== >Art Celestini Celestini Development Services >Phone: 201-670-1674 Wyckoff, NJ >============= http://celestini.com ============= >Mail sent to the "From" address used in this post >will be rejected by our server. Please send off- >list email to: ibmmain<at-sign>celestini<dot>com. >==================================================
