🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: bit.listserv.appc-l
Article #112

Re: CPIC samples in COBOL

#112
From: Terry Doner
Date: Thu, 03 Aug 1995 00:00
224 lines
13869 bytes
--=====================_807477126==_
Content-Type: text/plain; charset="us-ascii"

>Hello,
>
>   I am looking for COBOL sample code on how to program in APPC using
>CPI-C. I am looking for instruction on how to compile CPI-C code
>on OS/2, using Micro Focus COBOL.
>

The IBM CPI-C reference book is a must-have in my opinion. It contains sample
code. It comes with a diskette as well. If you are using Communications manager,
then sample code comes with the CM/2 CD-ROM, You could also check into the best
of APPC, APPN, and CPI-C CD-ROM from IBM. All sorts of books and code on
that disk,

There is nothing in the Microfocus documentation that I found very helpful
in writing CPI-C applications. (Using MFC V3.0) This is likely because they want
to make it hard to do, so they can sell you their AAI product.

I have CPI-C application working on OS/2 under MFC. The only trick I had was
in getting the COBOL CPI-C API to load at the right time. There is an
undocumented (in the V3.0 manuals) DLL load command that you can give to the
MFC runtime to make this work. I have attached the code we used to do that.

We had a requierment of dynamically calling the CPI-C APIs and I didn't want the
DLL load call to be in my main DLL. So we wrote this additional module that is
invoked at DLL initialization time.

Hope this helps.


--=====================_807477126==_
Content-Type: application/mac-binhex40; name="PSCSDLL.CBL"
Content-Disposition: attachment; filename="PSCSDLL.CBL"


(This file must be converted with BinHex 4.0)
:#e"63e0%6%`Z3d*-!&4&@&4dG(Kd!!!!!#!c!!!!!$US-$!`-6!`)%P%48j858C
*3d&858p1)%4*9NP658p1,L!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!
J)#!J)#!J)#!J-$!`-6!`0c%0-$!`-M!`)&"56dG538dY583Z)&"63e0%6%`Z)#!
J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J-$!`-M!
`0c%0-$!`-c!`,b!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!
J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J-$!`-c!`0c%0-$!`-c%`+Mdp26d
p26dp26dp26dp26dp26dp26dp26dp26dp26dp26dp26dp26dp26dp26dp26dp26d
p26dp26dp26dp26dU-$!`-c%`0c%0-$!`-c)`+L!J)#!J)#!J)#!J)#!J)#!J9%p
56dj86be%6de*6NP26L"#38j,)#K$+5!J)#!J)#!J)#!J)#!J)#!J)#!J)#!U-$!
`-c)`0c%0-$!`-c-`+L!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!
J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!U-$!`-c-`0c%0-$!`-c3`+L!
J)#!J)#!J)#!J)#!J9P-J3dp#6d`J58NJ8&*24e*"65"%490$8NP39%P26L!J)#!
J)#!J)#!J)#!J)#!J)#!U-$!`-c3`0c%0-$!`-c8`+LdY,5dY,5dY,5dY,5dY,5d
Y,5dY,5dY,5dY,5dY,5dY,5dY,5dY,5dY,5dY,5dY,5dY,5dY,5dY,5dY,5dY,5d
U-$!`-c8`0c%0-$!`-cB`+L"38Np(8N&0)%4&8d0559"858p11L!J)#!J)#!J)#!
J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!U-$!`-cB`0c%0-$!`-cF
`+L!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!
J)#!J)#!J)#!J)#!J)#!J)#!U-$!`-cF`0c%0-$!`-cJ`+L"85%P6)&"56dG538d
J59-J990&4#"86b"549026&C&)%e*3e*24Np$99-J4&P138e*3b"$38a-)%a*6NY
&8L!U-$!`-cJ`0c%0-$!`-cNf+L!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!
J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!U-$!`-cNf0c%0-$!
`-cNh+L!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!
J)#!J)#!J)#!J)#!J)#!J)#!J)#!U-$!`-cNh0c%0-$!`-cNi+L"$38a-483J68p
%98a&8b!J)#!J)#!J)#"%490$8NP39%P26L!J)#!J)#!J)#!J)#!J)#!J)#!J)#!
J)#!J)#!U-$!`-cNi0c%0-$!`-cNj+L!Y,5dY,5dY,5dY,5dY,5!J)#!J)#!J)#!
Y,5dY,5dY,5dY,5!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!U-$!`-cNj0c%
0-$!`0$!`+L!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!
J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!U-$!`0$!`0c%0-$!`0$3`+Mdp26dp26d
p26dp26dp26dp26dp26dp26dp26dp26dp26dp26dp26dp26dp26dp26dp26dp26d
p26dp26dp26dU-$!`0$3`0c%0-$!`0$8`,b!J)#!J)#!J)#!J)#!J)#!J)#!J)#!
J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J-$!`0$8
`0c%0-$!`0$B`+Mdp26dp26dp26dp26dp26dp26dp26dp26dp26dp26dp26dp26d
p26dp26dp26dp26dp26dp26dp26dp26dp26dU-$!`0$B`0c%0-$!`0$F`+L!J)#!
J)#!J)#!J)#!J)#!J)#!J3b"))%%J6L"()%8J)#!J6#"2)%FJ)#!J)#!J)#!J)#!
J)#!J)#!J)#!J)#!U-$!`0$F`0c%0-$!`0$J`+Mdp26dp26dp26dp26dp26dp26d
p26dp26dp26dp26dp26dp26dp26dp26dp26dp26dp26dp26dp26dp26dp26dU-$!
`0$J`0c%0-$!`0$N`+L!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!
J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!U-$!`0$N`0c%0-$!`0$Na+L"
@49)Z)%&$3d939#iJ)#!J9e**9&4&6Lp$5%&14d9%)%*C)#!J)#!J)#"*69"-48e
&6P4"9%P26L!J)#!J)#!U-$!`0$Na0c%0-$!`0$Nb+L"16biJ)&4&8e3J)b!J)#!
J+%C96%`J-908)%&14#"-3908)%j"688T)#"%394&)#K068d[4%3[@9PC@5NJ)#!
U-$!`0$Nb0c%0-$!`0$Nc+L!Y,5dY)#dY,5dY,5dJ)#!J,5dY,5dY,5dY,5dY,5d
Y,5dY,5dY,5dY)#!Y,5dY,5dY,5dY,5dY,5dY,5dJ)#!U-$!`0$Nc0c%0-$!`0$N
d+L!a,M!`)%%b-M!j1$JJ)#!J8d06)%G56e93)#!J)#!J)#!J)#!J)#!J)#!J)#"
23e3[-6)[-6Nj0#!J)#!J)#!U-$!`0$Nd0c%0-$!`0$Ne+L!J)#!J)#!J)#!J)#!
J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!
J)#!U-$!`0$Ne0c%0-$!`0$Nf+L"%490$8NP39%P26L"24L"$5%&14d8k)#!J)#!
J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!U-$!`0$Nf0c%0-$!
`0$Nh+L!Y,5dY,5dY,5dY,5dY,5dY,5dY,5dJ)#!J)#!J)#!J)#!J)#!J)#!J)#!
J)#!J)#!J)#!J)#!J)#!J)#!J)#!U-$!`0$Nh0c%0-$!`0$Ni+L!Y)%P1594*38`
J8N9-48&645!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!
J)#!J)#!U-$!`0$Ni0c%0-$!`0$Nj+L!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!
J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!U-$!`0$Nj0c%
0-$!`06!`+Mdp26dp26dp26dp26dp26dp26dp26dp26dp26dp26dp26dp26dp26d
p26dp26dp26dp26dp26dp26dp26dp26dU-$!`06!`0c%0-$!`06%`,b!J)#!J)#!
J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!
J)#!J)#!J)#!J-$!`06%`0c%0-$!`06)`+Mdp26dp26dp26dp26dp26dp26dp26d
p26dp26dp26dp26dp26dp26dp26dp26dp26dp26dp26dp26dp26dp26dU-$!`06)
`0c%0-$!`06-`+L!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!
J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!U-$!`06-`0c%0-$!`063`+L!J)#!
J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)%G&6N9538`J)#!J)#!J)#!J)#!J)#!J)#!
J)#!J)#!J)#!J)#!U-$!`063`0c%0-$!`068`+L!J)#!J)#!J)#!J)#!J)#!J)#!
J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!U-$!
`068`0c%0-$!`06B`+LdY,5dY,5dY,5dY,5dY,5dY,5dY,5dY,5dY,5dY,5dY,5d
Y,5dY,5dY,5dY,5dY,5dY,5dY,5dY,5dY,5dY,5dU-$!`06B`0c%0-$!`06F`+L!
J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!
J)#!J)#!J)#!J)#!J)#!U-$!`06F`0c%0-$!`06J`+L"-38j(98&(45"-49C&6#!
J)#!J1L"@8b"$6d*26#"*55"548a&390&)$-Z-5!J)#!J)#!J)#!J)#!J)#!J)#!
U-$!`06J`0c%0-$!`06N`+L"38Np(8N&0)%0269"*6%9%)%p11L"28bmb,#"0580
56dC23e96)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!U-$!`06N`0c%0-$!`06N
a+L"38Np(8N&0)&*96L"26L!J)#!J1L"28bmb)&G*6N429e-J)#!J)#!J)#!J)#!
J)#!J)#!J)#!J)#!J)#!J)#!U-$!`06Na0c%0-$!`06Nb+L"38Np(8N&0)&G5594
848iJ4Np51L"68LC%)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!
J)#!U-$!`06Nb0c%0-$!`06Nc+L!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!
J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!U-$!`06Nc0c%0-$!
`06Nd+Mdp26dp26dp26dp26dp26dp26dp26dp26dp26dp26dp26dp26dp26dp26d
p26dp26dp26dp26dp26dp26dp26dU-$!`06Nd0c%0-$!`0M!`,b!J)#!J)#!J)#!
J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!
J)#!J)#!J-$!`0M!`0c%0-$!`16!`)%919NP56dj048j8)%4*9NP658p1,L!J)#!
J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J-$!`16!`0c%
0-$!a-6!`)%P18&98,8p99&"99#"6480858p1,L!J)#!J)#!J)#!J)#!J)#!J)#!
J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J-$!a-6!`0M%0-$!a-M!`)#!J)#!J)#!
J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!
J)#!J)#!J)#!J-$!a-M!`0M%0-$!a-c!`)%C*6%8Y3dp19&*26#iJ)#!J)#!J)#!
J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J-$!a-c!
`0M%0-$!a0$!`)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!
J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J-$!a0$!`0M%0-$!a0$%`)#!J)#"
648a&3e3J3d&54#e'58a&)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!
J)#!J)#!J)#!J)#!J-$!a0$%`0M%0-$!a0$)`)#!J)#!J)#!J)#!J390658G1)#!
J)#!J)&42)&"63e0%6%`J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J-$!
a0$)`0M%0-$!a0$-`)#!J)#!J)#!J)#!J380$4906)#!J)#!J)%P6)&0&899&6P4
*38`Z)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J-$!a0$-`0M%0-$!a1$!`,b!
J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!
J)#!J)#!J)#!J)#!J)#!J-$!a1$!`0M%0-$!a16!`)%4"9%%J4%P@590*6diZ)#!
J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!
J-$!a16!`0M%0-$!b-$!`)%C*6%8J8d9$9%P26LiJ)#!J)#!J)#!J)#!J)#!J)#!
J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J-$!b-$!`0M%0-$!b-6!
`)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!
J)#!J)#!J)#!J)#!J)#!J)#!J-$!b-6!`0M%0-$!b0$!`)%C%)#"$39*%,8C*6%8
J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!
J)#!J-$!b0$!`0M%0-$!b06!`)#!J)#"548028N4*6NFJ68p%45"*8b"')#!J)#!
J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J-$!b06!`0M%0-$!
b06%`)#!J)#"-38*&6#"548028N46)%&545"69%&14%&54#!J)#!J)#!J)#!J)#!
J)#!J)#!J)#!J)#!J)#!J)#!J)#!J-$!b06%`0M%0-$!b06)`)#!J)#"548028N3
J3dp19%&*6P-J-$!`1$!J3dK"8N&$9%958b!J)#!J)#!J)#!J)#!J)#!J)#!J)#!
J)#!J)#!J-$!b06)`0M%0-$!b06-`)#!J)#"#6%p$5b"$6dj838P18b!`)#"5480
28N46)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J-$!b06-`0M%
0-$!b063`)#!J)#"%394")&*&3dp54#"*8b"$39*%,8C*6%8Y8N9$,L!J)#!J)#!
J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J-$!b063`0M%0-$!b0c!`)$!a)#"$39*
%,8C*6%8Y8N9$)#!J)#!J)#!J)#!J)#!J8%P$)&JS1$!T,Jd`-$)i-$!J)#!J)#!
J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!
J)#!J)#!J)#!J)#!`-$)i-$!f-3d`-$-`-$!J9dp55dP14be69%p538G&)&0&3e4
*6diZ)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!`-$-
`-$!h-3d`-$-a-$!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!
J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!`-$-a-$!h-3d`-$-a-6!J-$%
J)%C*6%a&8L!J)#!J)#!J)#!J)#!J)#!J)#!J)#"358-J@#Jd-bNJ9N&-988J)#!
J)#!J)#!J)#!J)#!J)#!`-$-a-6!h-3d`-$-a-M!J)#!J)#FU+LSJ8&0$8d4-6#!
Y)&0839*8)%p')&G28NY*6NFJ8e428N&(45!U+LSR,L!J)#!J)#!J)#!J)#!J)#!
`-$-a-M!h-3d`-$-a-cF[)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!
J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!`-$-a-cFh-3d`-$)h-$!
J-$%J)%0"8N3Y8N9$6e*%,JdJ)#!J)#!J)#!J)$!e)#"$39*%,9*&3dp54#e138e
&,8a&6L!J)#"358-J15J`-LNZ$5!J)#!J)#!J)#!J-$8J)%0"8N3Y8N9$6e*%,8j
"688J)#!J)#!J)&"*3b"B+$Be+5i0)#!J)#!J)#!J)#!`05!J4NP-6%95)#!J)#!
J)#!J)#!J)#!J)#!J8%P$)&JS-6-T,Jd0-$!c-6-i)$!a)#"38Np(,8P%)#!J)#!
J)#!J)#!J)#!J)#!J)#!J8%P$)$NS-$3T)%0269!Y@#i0-$!c-6-j)#!J)#!i1#!
J6%p"4#e&8P*28L!J)#!J)#!J)#!J)#!J9N&-988J-#i0-$!c-63`)#!J)#!J)#!
J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!
J)#!J)#!J)#!J-$!c-63`0c%0-$!c-63a)$!a)#"-6d&%,9"56dG538dY3d&-6#!
J)#!J)#!J)#!J8%P$)$NS-$)T)%0269!Y@#"@38a945!c-LiJ)#!J)#!J-$!c-63
a0c%0-$!c-63f)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!
J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J-$!c-63f0c%0-$!c-63h)$!a)#"
'58a&,90348-Z$6!`-c%d1#!J)#!J-$8J)%C*6%8Y6N&045e-48iJ)#!J)#!J)#!
J)&"*3b!j+$!b+5"$6de3,9JZ$6!`-c%d15!J)#!J-$8J)%C*6%8Y6N&045!J)#!
J)#!J)#!J)#!J)&"*3b"B+$Be+5iJ)#!J)#!J)#!J)#!J)#!J)#!J)#!J)$!`-c%
d16Fa$6!c-c8`-#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!
J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)$!c-c8`-$Fa$6!c0MJ`-#"38Np
$48498N8J4%P@590*6diZ)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!
J)#!J)#!J)#!J)#!J)$!c0MJ`-$Fa$6!c0MJa-#"&6P45@5e36dP19#"6480858p
1,L!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)$!
c0MJa-$Fa$6!c0MJb-#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!
J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)$!c0MJb-$Fa$6!c16%b-#S
J6e"&6L""6N3J8N9"4#"85%8J4NP-45!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!
J)#!J)#!J)#!J)#!J)#!J)$!c16%b-$Ba$6!c16%c-#SJ)#!J)#!J)#!J)#!J)#!
J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!
J)$!c16%c-$Ba$6!c16-`-#SJ)#!J6e"&6L"*6P"99#!J3d&54#e'58a&)#!J)#!
J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)$!c16-`-$Ba$6%a0$!
a-#SJ)#!J8N9"4#"$39*%,8C*6%8J58j86b"$39*%,9*&3dp54#!J)#!J)#!J)#!
J)#!J)#!J)#!J)#!J)#!J)#!J)$%a0$!a-$Ba$6!c1$3c-#SJ)#!J)#!J)#!J)#!
J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!
J)#!J)$!c1$3c-$Ba$6!c1$3b-#SJ3da28d8J9%K&)%C*6%96)#!J)#!J)#!J)#!
J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)$!c1$3b-$Ba$6!
c1$3c-#SJ)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!
J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)$!c1$3c-$Ba$6!c1$8a-#SJ)#!J3da28d8
J3d&54#e'58a&)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!
J)#!J)#!J)$!c1$8a-$Ba$6!c16%c-#SJ)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!
J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)$!c16%c-$B
a$6!c0MJc-#SJ)#!J68p@45"$39*%,9*&3dp54#e138e&)#!J)#!J9%mJ4NP-45e
138e&$6!c0MJd-#SJ)#!J68p@45"$39*%,9*&3dp54#e138e&,8a&6L!J9%mJ4NP
-45e138e&,8a&6Jd`-cBi-c!J)#!J)%e29N8J*d0358023Np-,N4-6#FJ)#!J)#!
J)&42)%C*6%8Y6N&043d`-cBi0$!J)#!J)%e29N8J-6)J)#!J)#!J)#!J)#!J)#!
J)#!J)&42)%C*6%8Y6N&045e-48i0-$-f1$8`)#!J)#!J)#!J)#!J)#!J)#!J)#!
J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J-$-
f1$8`0c%0-$-f1$B`)#!J)#"$38a-)&JR16%R)&9658j()#"38Np(,8P%)#!J)#!
J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J-$-f1$B`0c%0-$-f1$F`)#!
J)#!J)#!J)#!J)#!J)#!J)#!J)#"-6d&%,9"56dG538dY3d&-6!d`-cBi1$!J)#!
J)#!J)#!J)#!J)#!J)#!J)#!J)%C*6%8Y8e"&3b!J)#!J)#!J)#!J)#!J)#!J)#!
J)#!J)#!J)#!J)#!J)#!`-cBi1$!h-3d`-cBi16)J)#!J)#!J)#!J)#!J)#!J)#!
J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!
`-cBi16)h-3d`-cBi168J)#!J)%P')#"-6d&%,8958Np5)#!J)#!J)#!J)#!J)#!
J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!J)#!`-cBi168h-3dJ)#!J)#!
J)#!J)#!J)#"%59036%&C)#G&8P*28L"-6d&%58j()#FJ4NP-45e138e&$5!J)#!
J)#!J)#!J)#!J)%G23N&$5`d`-cBi16BJ)#!J)%914#e*4Jd0)#!J)#!J)#!J)#"
(6d*"3dX0)#!J)#!J)#!J)#!Z$4UJ$3!!:

--=====================_807477126==_
Content-Type: text/plain; charset="us-ascii"

Terry Doner
Senior Systems Consultant
Toronto-Dominion Bank
Toronto, Ontario, Canada
voice : 416-944-5227
fax   : 416-944-6288
email : donert@tdbank.ca

--=====================_807477126==_--
Technical Details
Message-ID: <m0se2vv-000qDDC@inforamp.net>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail

Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 10aed9,e5cbbd5cca70ba8b
X-Google-Attributes: gid10aed9,public
From: Terry Doner <donert@TDBANK.CA>
Subject: Re: CPIC samples in COBOL
Date: 1995/08/03
Message-ID: <m0se2vv-000qDDC@inforamp.net>
X-Deja-AN: 107482419
sender: APPC Discussion List <APPC-L@AMERICAN.EDU>
x-attachments: N:\MAILBOX\SCS\CBL\PSCSDLL.CBL;
x-sender: donert@tdbank.ca
comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
content-type: multipart/mixed; boundary="=====================_807477126==_"
mime-version: 1.0
newsgroups: bit.listserv.appc-l
x-mailer: Windows Eudora Version 1.4.4