[AccessD] Future of Access?

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
>  
>




More information about the AccessD mailing list