MartyConnelly
martyconnelly at shaw.ca
Wed Jul 16 21:02:33 CDT 2003
Sadly ;) Hold the Coffin nails... Here is a cobol script program to resolve a domain name Yes there is a cobol script language to replace vb script and there is Cobol.Net language from Fujitsu http://www.cobolscript.com/ 00002 * CobolScript program name: dns.cbl 000003 * This web-based program provides an example 000004 * of GETHOSTBYNAME usage, of array usage, 000005 * of storing html in gldi's, and of inline 000006 * PERFORM VARYINGs. 000007 * 000008 * Copyright 2002 Deskware, Inc. 000009 ***************************************** 000010 * Include the TCP/IP variable copybook. 000011 COPY `tcpip.cpy`. 000001 01 TCPIP-HOSTENT. 000002 05 TCPIP-HOSTENT-HOSTNAME PIC X(255). 000003 05 TCPIP-HOSTENT-NUM-ALIASES PIC X(01). 000004 05 TCPIP-HOSTENT-ALIASES OCCURS 8 TIMES. 000005 10 TCPIP-HOSTENT-ALIAS PIC X(255). 000006 05 TCPIP-HOSTENT-ADDRESS-TYPE PIC 9(07). 000007 05 TCPIP-HOSTENT-ADDRESS-LENGTH PIC 9(07). 000008 05 TCPIP-HOSTENT-NUM-ADDRESSES PIC X(01). 000009 05 TCPIP-HOSTENT-ADDRESSES OCCURS 8 TIMES. 000010 10 TCPIP-HOSTENT-ADDRESS PIC X(255). 000011 ************************************** 000012 * TCP/IP RETURN CODES DATA STRUCTURE * 000013 * DO NOT CHANGE IT. * 000014 ************************************** 000015 01 TCPIP-RETURN-CODES. 000016 05 TCPIP-RETURN-CODE PIC 9(07). 000017 05 TCPIP-RETURN-MESSAGE PIC X(255). 000012 000013 1 content_length PIC 9(05). 000014 000015 1 web_header_html. 000016 5 `Content-type: text/html`. 000017 5 FILLER PIC X VALUE LINEFEED. 000018 5 `<HTML><BODY>`. 000019 5 `<BR>`. 000020 5 `<B>Sample CobolScript DNS Application</B>`. 000021 5 `<BR><BR>`. 000022 5 `Enter a Fully Qualified Domain Name or an IP address and then click on the Resolve button.`. 000023 5 `<FORM ACTION="/cgi-bin/cobolscript.exe?dns.cbl" METHOD="POST">`. 000024 5 `<INPUT TYPE="TEXT" NAME="host_name" SIZE=60 VALUE="`. 000025 5 host_name PIC X(80) VALUE `www.cornell.edu`. 000026 5 `">`. 000027 5 `<INPUT TYPE="SUBMIT" VALUE="Resolve">`. 000028 5 `</FORM>`. 000029 5 `<HR>`. 000030 000031 1 web_footer_html. 000032 5 `</BODY></HTML>`. 000033 000034 MAIN. 000035 GETENV USING `CONTENT_LENGTH` content_length. 000036 000037 IF content_length > 0 000038 ACCEPT DATA FROM WEBPAGE 000039 END-IF. 000040 000041 IF host_name = SPACES 000042 MOVE `www.cornell.edu` TO host_name 000043 END-IF. 000044 000045 * Populate TCP/IP structure that is defined in included copybook. 000046 GETHOSTBYNAME USING host_name. 000047 000048 DISPLAYLF web_header_html. 000049 PERFORM DISPLAY-TCPIP-INFO. 000050 DISPLAYLF web_footer_html. 000051 000052 GOBACK. 000053 000054 DISPLAY-TCPIP-INFO. 000055 000056 1 counter PIC Z9. 000057 000058 DISPLAY `<TABLE BORDER=1 BGCOLOR="CCCCCC">`. 000059 000060 DISPLAY `<TR BGCOLOR="lightgreen">`. 000061 DISPLAY `<TD><B>host_name:</B></TD>`. 000062 DISPLAY `<TD><B>` & host_name & `</B></TD>`. 000063 DISPLAY `</TR>`. 000064 000065 000066 DISPLAY `<TR BGCOLOR="BBFFDD">`. 000067 DISPLAY `<TD>TCPIP-RETURN-CODE: </TD>`. 000068 DISPLAY `<TD>` & TCPIP-RETURN-CODE & `</TD>`. 000069 DISPLAY `</TR>`. 000070 000071 DISPLAY `<TR BGCOLOR="BBFFDD">`. 000072 DISPLAY `<TD>TCPIP-RETURN-MESSAGE: </TD>`. 000073 DISPLAY `<TD>` & TCPIP-RETURN-MESSAGE & ` </TD>`. 000074 DISPLAY `</TR>`. 000075 000076 DISPLAY `<TR>`. 000077 DISPLAY `<TD>TCPIP-HOSTENT-HOSTNAME: </TD>`. 000078 DISPLAY `<TD>` & TCPIP-HOSTENT-HOSTNAME & ` </TD>`. 000079 DISPLAY `</TR>`. 000080 000081 DISPLAY `<TR>`. 000082 DISPLAY `<TD>TCPIP-HOSTENT-ADDRESS-TYPE: </TD>`. 000083 DISPLAY `<TD>` & TCPIP-HOSTENT-ADDRESS-TYPE & `</TD>`. 000084 DISPLAY `</TR>`. 000085 000086 DISPLAY `<TR>`. 000087 DISPLAY `<TD>TCPIP-HOSTENT-ADDRESS-LENGTH: </TD>`. 000088 DISPLAY `<TD>` & TCPIP-HOSTENT-ADDRESS-LENGTH & `</TD>`. 000089 DISPLAY `</TR>`. 000090 000091 DISPLAY `<TR>`. 000092 DISPLAY `<TD>TCPIP-HOSTENT-NUM-ADDRESSES: </TD>`. 000093 DISPLAY `<TD>` & TCPIP-HOSTENT-NUM-ADDRESSES & ` </TD>`. 000094 DISPLAY `</TR>`. 000095 000096 * Display all hostent-address elements from inside inline PERFORM loop 000097 PERFORM VARYING counter FROM 1 BY 1 UNTIL counter > 8 000098 DISPLAY `<TR BGCOLOR="lightblue">` 000099 DISPLAY `<TD>TCPIP-HOSTENT-ADDRESS(` & counter & `): </TD>` 000100 DISPLAY `<TD>` & TCPIP-HOSTENT-ADDRESS(counter) & ` </TD>` 000101 DISPLAY `</TR>` 000102 END-PERFORM. 000103 000104 DISPLAY `<TR>`. 000105 DISPLAY `<TD>TCPIP-HOSTENT-NUM-ALIASES: </TD>`. 000106 DISPLAY `<TD>` & TCPIP-HOSTENT-NUM-ALIASES & ` </TD>`. 000107 DISPLAY `</TR>`. 000108 000109 * Display all hostent-alias elements from inside inline PERFORM loop 000110 PERFORM VARYING counter FROM 1 BY 1 UNTIL counter > 8 000111 DISPLAY `<TR BGCOLOR="lightblue">` 000112 DISPLAY `<TD>TCPIP-HOSTENT-ALIAS(` & counter & `): </TD>` 000113 DISPLAY `<TD>` & TCPIP-HOSTENT-ALIAS(counter) & ` </TD>` 000114 DISPLAY `</TR>` 000115 END-PERFORM. 000116 000117 DISPLAY `</TABLE>`. 000118 Huffman, Jarad B. wrote: > two of the requirements for a BS in computer science at my local > university are 2 semesters of COBOL. It's still widely used, sadly. > > > > Jarad Huffman > > -----Original Message----- > From: Hale, Jim [mailto:jim.hale at fleetpride.com] > Sent: Wednesday, July 16, 2003 9:18 AM > To: 'Access Developers discussion and problem solving' > Subject: RE: [AccessD] Future of Access? > > <who is going to be able to maintain his software if it > <is not converted every few years to a technology that people are > able > and willing to work with?> > > My son just graduated from college with a business degree in MIS. > He has had the GOOD fortune to land a great job with a major > insurance company. The catch? He has been assigned to the > mainframe maintenance team. He is attempting to learn COBOL, JCL > and easytrieve (?) to service apps that might have been cutting > edge 30 yrs ago. For someone whose total experience is with object > oriented programming (he is a pretty good web designer) he is > going nuts! Even the manuals are out of print <g>. > > Jim Hale > > -----Original Message----- > From: Wortz, Charles [mailto:CWortz at tea.state.tx.us] > Sent: Wednesday, July 16, 2003 8:52 AM > To: Access Developers discussion and problem solving > Subject: RE: [AccessD] Future of Access? > > > Arthur, > > But in 30 years will the kids know how to use pencils? <grin> > > That is one of the reasons I told Chris to expect some conversions of > his software. Unless he is planning on staying on the project for > the > next 30 years, who is going to be able to maintain his software > if it > is not converted every few years to a technology that people are able > and willing to work with? > > The software does not wear out, but finding people that understand > old > software and are willing to maintain it is very expensive. The dBase > applications I wrote 10-15 years ago probably still would work > fine, but > how are you going to find anybody that understands the dBase file > structure and is willing to work with it? They would have to > double my > salary if they wanted me to stick with dBase. Thus, they all have > been > converted to Access since that is a technology that has an large > labor > pool of developers and maintainers. > > Charles Wortz > Software Development Division > Texas Education Agency > 1701 N. Congress Ave > Austin, TX 78701-1494 > 512-463-9493 > CWortz at tea.state.tx.us > > > > -----Original Message----- > From: Arthur Fuller [mailto:artful at rogers.com] > Sent: Wednesday 2003 Jul 16 08:16 > To: 'Access Developers discussion and problem solving' > Subject: RE: [AccessD] Future of Access? > > The only technology guaranteed to be here in 2033, AFAIK, is a pencil > and paper :-) However, the remote users might not like the time-lag. > > Arthur > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Foote, > Chris > Sent: July 16, 2003 5:57 AM > To: 'Access Developers discussion and problem solving' > Subject: RE: [AccessD] Future of Access? > > > Thanks for the input Gustav! > > I'd forgotten about Oracle! I'll add that to the list of > possibilities. > > The requirements are (at this stage) pretty vague, but is likely to > involve up to ten concurrent users on geographically remote sites. > I'm > guessing on half a million records split between five/six main > tables. > My current A97 db with 16k records weighs in at (FE + BE) 15MB. My > proposed db is not much more complicated than this. > > Thirty years ago my programming was done on a Ferranti Pegasus > mainframe. I had to write the programme one paper with a pencil, > convert > it to hole on punched cards, wait for the technician to run the > programme and give me the paper read-out. The Pegasus (IIRC) used 60 > thousand ECC83 valves (tubes) and had a whole building to itself. > Thirty > years on, I've got more processing power in my cell phone! > > But my company /still/ wants me to design a database to be used > for the > /next/ thirty years! > > Best Regards! > Chris Foote (UK) > _______________________________________________ > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > >------------------------------------------------------------------------ > >_______________________________________________ >AccessD mailing list >AccessD at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/accessd >Website: http://www.databaseadvisors.com > >