AS/400 vs. VMS

[Robert J.M. Edis]

G'day Dave

Try 

align (1,,5)(,,36)(,,47)
field D_STRING display id 01
field ELEMENT3 of FILEA display
field ELEMENT4 of FILEA

As the defined item can never be modified by referencing an ID, this might
have something to do with with the ID is not automatically generated on the
AS/400.

If that doesn't work try

align (1,,4)(,,6)(,,37)(,,48)
field T_FAKE  silent    ;1 character string        
field D_STRING display                
field ELEMENT3 of FILEA display
field ELEMENT4 of FILEA display

Blue

-----Original Message-----
From: McKenzie, David
To: 'Knox, Dave  (Dallas CSC Citrix)'; 'powerh-l@lists.swau.edu'
Sent: 12/28/99 6:31 PM
Subject: RE: AS/400 vs. VMS

Thanks for the idea. Unfortunately, Powerhouse on the AS/400 is "nice"
enough to give you the error:
"*E* There are overlapping groups in the ALIGN statement."
when you put your align statement out of order.  

I even tried sticking the elements together to simulate one field as:
>align (1,,5)(,,15)(,,36)(,,47)
>field ELEMENT1 of FILEA display       ;These two made up D_STRING
>field ELEMENT2 of FILEA display       ;
>field ELEMENT3 of FILEA display
>field ELEMENT4 of FILEA display

Worked great on VMS, but for some reason, the AS/400 doesn't like it's
fields stuck together (gotta love it)!

So, using Dave's idea as a hint, my "final" solution is to use a "fake"
temporary like so:
>align (1,,4)(,,6)(,,37)(,,48)
>field T_FAKE  display    ;1 character string        
>field D_STRING                          
>field ELEMENT3 of FILEA display
>field ELEMENT4 of FILEA display
	
Of course, you have to make sure that there is at least one space
between the temporary string and the defined one (but not, surprisingly,
between the ID and the temporary).

Not elegant, but works. If someone has a better solution, I'd love to
hear it.


Dave McKenzie
TradePoint Systems, LLC
(603) 889-3200 x275


-----Original Message-----
From: Knox, Dave (Dallas CSC Citrix) [mailto:knoxda01@unisourcelink.com]
Sent: Tuesday, December 28, 1999 5:38 PM
To: 'powerh-l@lists.swau.edu'; 'McKenzie, David'
Subject: RE: AS/400 vs. VMS


Had this one a while ago (on MPE), but principle is the same.

The id no.s tend to get driven by the first item on the cluster, so by
tweaking the order of the items, AND the align statement, you can fool
it
into displaying the id no. As in...

> >align (1,,36)(,,5)(,,47)
> >field ELEMENT3 of FILEA display
> >field D_STRING
> >field ELEMENT4 of FILEA
> 
> 
> 
> ----------
> From: 	McKenzie, David[SMTP:dmckenzie@tradepointsys.com]
> Sent: 	Tuesday, December 28, 1999 4:27 PM
> To: 	'powerh-l@lists.swau.edu'
> Subject: 	AS/400 vs. VMS
> 
> Hi all,
> 
> I'm having a slight problem with an AS/400 / VMS discrepancy
> 
> I have the following code (sorta):
> 
> >
> >screen SCREENA
> >
> >file FILEA primary occurs 5
> >
> >define D_STRING char*30 = ELEMENT1 of FILEA + ELEMENT2 of FILEA
> >
> >cluster occurs with FILEA
> >
> >align (1,,5)(,,36)(,,47)
> >field D_STRING
> >field ELEMENT3 of FILEA display
> >field ELEMENT4 of FILEA
> >
> >align (,,5)(,,10)(,,24)
> >field ELEMENT5 of FILEA display
> >field ELEMENT6 of FILEA display
> >
> >cluster
> 
> The problem I'm having is that when I compile this code on the AS/400
> (PH 6.07.F), I don't get any ID numbers. But when I compile the exact
> same code on VMS (PH 8.10.C2),  my ID numbers reappear.  Now, I was
able
> to get them back on the AS/400 by changing my define to a temporary,
but
> I'd prefer not doing this and having to reload my temporary every time
I
> do a GET. 
> 
> Anyone have any ideas?
> 
> Dave McKenzie
> TradePoint Systems, LLC
> (603) 889-3200 x275
> 
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
= =
Subscribe: "subscribe powerh-l" in message body to
majordomo@lists.swau.edu
Unsubscribe: "unsubscribe powerh-l" in message to
majordomo@lists.swau.edu
This list is closed, thus to post to the list, you must be a subscriber.
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
This list is closed, thus to post to the list, you must be a subscriber.