File Server to retrieve Alpha Name in address book

[mnarewec]

I can do a chain to retrieve The Alpha name (ABALPH) of an address in the
Address book but I want to use a File server like the one which retrieves
the Mailing Address (X01100). I search for but couldn't find servers that I
could use.

If anyone know of File Serves I could use to do the same thing then please
help me out.

Thank you.

Marsh
_________________________________
Marsh Rei Narewec
JDE400 Development, Training & Support
Steamships Computer Services
Papua New Guinea
Ph: (675) 322 0245

--------------------------------------------------------------
CAUTION:
1. This message may contain privileged and confidential information
intended only for the use of the addressee named above. If you are not the
intended recipient of this message; you are hereby notified that any use,
distribution or reproduction of this message is prohibited
2. If you have received this message in error, we apologise. Please notify
us immediately at [email protected]
3. Any views expressed in this message are those of the individual author
and may not necessarily reflect the views of Steamships Trading Company.
4. The sender disclaims liability for any errors, omissions, viruses, loss
and/or damages arising from using, opening or transmitting this e-mail.



------------------------
JDE/400 7.3 00009
Papua New Guinea
Opinions or Post I express are not from my employer

 

[Jim_rubino]

Use the XF0101 - using something like this in your RPG program:

CSR MOVE *BLANK VC001 <------
field for holding the ABALPH
CSR MOVE AN8 ABAN8
<------ AN8 is your files address number
CSR MOVEL'ABKY01' @@KLST
CSR MOVEL'A71 ' @@FMT
CSR Z-ADD1 @@KNUM
CSR MOVEL'CHAIN' @@OPER
CSR MOVEL'N' @@LOCK
CSR CALL 'XF0101'
C* ------- -----------
CSR PARM PS@@1
CSR PARM I0101
CSR @@IOR IFEQ *BLANK
CSR CLEAR@UA
CSR CLEAR@UA
CSR MOVEAABALPH @UA <---------
moving ABALPH=20
CSR Z-ADD30 #OUTLG
CSR EXSR C9822
C* ---- ---------
CSR MOVEA@UB VC001
CSR ENDIF

Jim Rubino=20
Senior Programmer Analyst=20
FIKE CORPORATION =AE=20
704 South 10th Street=20
Blue Springs, Mo. 64015
Direct Dial - (816) 655-4579
Or - (816) 229-6216 Ext. 1079
World Software Technical Editor for JDEtips

 

[Jim_rubino]

Use the XF0101 - using something like this in your RPG program:

CSR MOVE *BLANK VC001 <------
field for holding the ABALPH
CSR MOVE AN8 ABAN8
<------ AN8 is your files address number
CSR MOVEL'ABKY01' @@KLST
CSR MOVEL'A71 ' @@FMT
CSR Z-ADD1 @@KNUM
CSR MOVEL'CHAIN' @@OPER
CSR MOVEL'N' @@LOCK
CSR CALL 'XF0101'
C* ------- -----------
CSR PARM PS@@1
CSR PARM I0101
CSR @@IOR IFEQ *BLANK
CSR CLEAR@UA
CSR CLEAR@UA
CSR MOVEAABALPH @UA <---------
moving ABALPH=20
CSR Z-ADD30 #OUTLG
CSR EXSR C9822
C* ---- ---------
CSR MOVEA@UB VC001
CSR ENDIF

Jim Rubino=20
Senior Programmer Analyst=20
FIKE CORPORATION =AE=20
704 South 10th Street=20
Blue Springs, Mo. 64015
Direct Dial - (816) 655-4579
Or - (816) 229-6216 Ext. 1079
World Software Technical Editor for JDEtips

 

[mnarewec]

Thank you so much Jim.

Marsh
_________________________________
Marsh Rei Narewec
JDE400 Development, Training & Support
Steamships Computer Services
Papua New Guinea
Ph: (675) 322 0245

--------------------------------------------------------------
CAUTION:
1. This message may contain privileged and confidential information
intended only for the use of the addressee named above. If you are not the
intended recipient of this message; you are hereby notified that any use,
distribution or reproduction of this message is prohibited
2. If you have received this message in error, we apologise. Please notify
us immediately at [email protected]
3. Any views expressed in this message are those of the individual author
and may not necessarily reflect the views of Steamships Trading Company.
4. The sender disclaims liability for any errors, omissions, viruses, loss
and/or damages arising from using, opening or transmitting this e-mail.



------------------------
JDE/400 7.3 00009
Papua New Guinea
Opinions or Post I express are not from my employer