|
midrange.com
Look at the compile listing of this simple two line program:
... 1 ...+... 2 ...+... 3 ...+... 4 .
FTIM IP E DISK
D BIGHONKINGFLD1 S 1A
Line <---------------------- Source Specifications
----------------------------><---- Comments ----> Do Page Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....
+....7....+....8....+....9....+...10 Num Line Date Id Number
S o u r c e L i s t i n g
1 FTIM IP E DISK
011030 000100
*--------------------------------------------------------------------------------------------*
* RPG name External name
*
* File name. . . . . . . . . : TIM ROB/TIM
*
* Record format(s) . . . . . : TIMR TIMR
*
*--------------------------------------------------------------------------------------------*
2 D BIGHONKINGFLD1 S 1A
011030 000200
3=ITIMR
1000001
*--------------------------------------------------------------------------------------------*
1
* RPG record format . . . . : TIMR
* 1
* External format . . . . . : TIMR : ROB/TIM
* 1
*--------------------------------------------------------------------------------------------*
1
4=I A 1 6 ACOL1
1000002
5=I A 7 12 ACOL2
1000003
6=I A 13 18 ACOL3
1000004
* * * * * E N D O F S O U R C E * * * * *
5722WDS V5R1M0 010525 RN IBM ILE RPG ROB/TIM
GDISYS 10/30/01 13:17:33 Page 3
A d d i t i o n a l D i a g n o s t i c M e s s a g e s
Msg id Sv Number Seq Message text
*RNF7086 00 1 000100 RPG handles blocking for file TIM. INFDS is
updated only
when blocks of data are transferred.
* * * * * E N D O F A D D I T I O N A L D I A G N O S T I C M E
S S A G E S * * * * *
5722WDS V5R1M0 010525 RN IBM ILE RPG ROB/TIM
GDISYS 10/30/01 13:17:33 Page 4
C r o s s R e f e r e n c e
File and Record References:
File Device References (D=Defined)
Record
TIM DISK 1D
TIMR 1 3
Global Field References:
Field Attributes References (D=Defined
M=Modified)
*RNF7031 ACOL1 A(6) 4D
*RNF7031 ACOL2 A(6) 5D
*RNF7031 ACOL3 A(6) 6D
*RNF7031 BIGHONKINGFLD1 A(1) 2D
Indicator References:
Indicator References (D=Defined
M=Modified)
* * * * * E N D O F C R O S S R E F E R E N C E * * * * *
5722WDS V5R1M0 010525 RN IBM ILE RPG ROB/TIM
GDISYS 10/30/01 13:17:33 Page 5
E x t e r n a l R e f e r e n c e s
Statically bound procedures:
Procedure References
No references in the source.
Imported fields:
Field Attributes Defined
No references in the source.
Exported fields:
Field Attributes Defined
No references in the source.
* * * * * E N D O F E X T E R N A L R E F E R E N C E S * * *
* *
5722WDS V5R1M0 010525 RN IBM ILE RPG ROB/TIM
GDISYS 10/30/01 13:17:33 Page 6
M e s s a g e S u m m a r y
Msg id Sv Number Message text
*RNF7031 00 4 The name or indicator is not referenced.
*RNF7086 00 1 RPG handles blocking for the file. INFDS is updated only
when
blocks of data are transferred.
* * * * * E N D O F M E S S A G E S U M M A R Y * * * * *
5722WDS V5R1M0 010525 RN IBM ILE RPG ROB/TIM
GDISYS 10/30/01 13:17:33 Page 7
F i n a l S u m m a r y
Message Totals:
Information (00) . . . . . . . : 5
Warning (10) . . . . . . . : 0
Error (20) . . . . . . . : 0
Severe Error (30+) . . . . . . : 0
--------------------------------- -------
Total . . . . . . . . . . . . . : 5
Source Totals:
Records . . . . . . . . . . . . : 6
Specifications . . . . . . . . : 6
Data records . . . . . . . . . : 0
Comments . . . . . . . . . . . : 0
* * * * * E N D O F F I N A L S U M M A R Y * * * * *
Program TIM placed in library ROB. 00 highest severity. Created on 01/10/30
at 13:17:42.
* * * * * E N D O F C O M P I L A T I O N * * * * *
Rob Berendt
==================
"They that can give up essential liberty to obtain a little temporary
safety deserve neither liberty nor safety."
Benjamin Franklin
"Hatzenbeler, Tim"
<thatzenbeler@clini To:
"'midrange-l@midrange.com'" <midrange-l@midrange.com>
tech.net> cc:
Sent by: Fax to:
midrange-l-admin@mi Subject: RE: dds, sql , ODBC
alias...
drange.com
10/30/2001 12:00 PM
Please respond to
midrange-l
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
--
[ Picked text/plain from multipart/alternative ]
Thank you, I just tried this... Do you know if these fields are
recognized,
by RPG programs, if I don't refer to them by name?
Meaning, if I have 3 PF's (tables) and I uses the same Alias in all 3
files, ie: (customer_number) will these 3 fields be qualified in RPG? If
I
use the prefix command? Or does RPG recognize alias's at all?
I trying to avoid accidentaly overwriting data...
Thanks, tim
> -----Original Message-----
> From: rob@dekko.com [SMTP:rob@dekko.com]
> Sent: Tuesday, October 30, 2001 6:15 AM
> To: midrange-l@midrange.com
> Subject: Re: dds, sql , ODBC alias...
>
>
> Tim,
>
> Try this.
> I had this DDS:
> R TIMR
> ACOL1 6A
> ACOL2 6A
> ACOL3 6A
>
> Record Format Level
> Format Fields Length Identifier
> TIMR 3 18 2B2D75F4432DB
>
> I changed it to this DDS:
> R TIMR
> ACOL1 6A ALIAS(BIGHONKINGFLD1)
> ACOL2 6A ALIAS(BIGHONKINGFLD2)
> ACOL3 6A ALIAS(BIGHONKINGFLD3)
> Then ran CHGPF FILE(ROB/TIM) SRCFILE(ROB/QDDSSRC)
> Record Format Level
> Format Fields Length Identifier
> TIMR 3 18 2B2D75F4432DB
> Kept my data, and my record format level id.
> Then I ran STRSQL and
> select bighonkingfld1 from tim
> and
> select acol1 from tim
> and got the same results.
>
> I thought of this years ago when an old coworker (from the PC arena)
> called
> me up years ago. Seems that the company he worked for had designed a PC
> based system with big field names and the 400 people used gross 6
> character
> field names. 400 people were trying to pull muscle to get the PC people
> to
> change all of their field names.
>
> Rob Berendt
>
> ==================
> "They that can give up essential liberty to obtain a little temporary
> safety deserve neither liberty nor safety."
> Benjamin Franklin
>
>
>
> "Hatzenbeler, Tim"
> <thatzenbeler@clini To:
> "'midrange-l@midrange.com'" <midrange-l@midrange.com>
> tech.net> cc:
> Sent by: Fax to:
> midrange-l-admin@mi Subject: dds, sql ,
ODBC
> alias...
> drange.com
>
>
> 10/29/2001 05:06 PM
> Please respond to
> midrange-l
>
>
>
>
>
>
> This message is in MIME format. Since your mail reader does not
understand
> this format, some or all of this message may not be legible.
> --
> [ Picked text/plain from multipart/alternative ]
> This is a weird question....
>
> I have an as/400 application that uses a DDS described databases...
>
> The rpg programs all use the fieldnames defined in the files... But, is
> there anyway to setup an alias, so when the uses use Crystal Reports, via
> the ODBC, that they can see different fields names (longer more
> descriptive)
>
> I want my current programs to use the ugly short names, and the ODBC
> requests to see the pretty names...
>
> Thanks, tim...
> _______________________________________________
> 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
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
>
>
>
>
>
> _______________________________________________
> 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
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
_______________________________________________
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
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.
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.
