Article View: bit.listserv.appc-l
Article #112Re: CPIC samples in COBOL
From: Terry Doner
Date: Thu, 03 Aug 1995 00:00
Date: Thu, 03 Aug 1995 00:00
224 lines
13869 bytes
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-mailShow 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