Warning: mysqli::__construct(): (HY000/1203): User howardkn already has more than 'max_user_connections' active connections in D:\Inetpub\vhosts\howardknight.net\al.howardknight.net\includes\artfuncs.php on line 21
Failed to connect to MySQL: (1203) User howardkn already has more than 'max_user_connections' active connections
Warning: mysqli::query(): Couldn't fetch mysqli in D:\Inetpub\vhosts\howardknight.net\al.howardknight.net\index.php on line 66
Article <vac1dd$1ab6s$2@dont-email.me>
Deutsch   English   Français   Italiano  
<vac1dd$1ab6s$2@dont-email.me>

View for Bookmarking (what is this?)
Look up another Usenet article 
Path: news.eternal-september.org!eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: Lawrence D'Oliveiro <ldo@nz.invalid>
Newsgroups: comp.arch
Subject: Re: COBOL, Article on new mainframe use
Date: Sat, 24 Aug 2024 07:17:01 -0000 (UTC)
Organization: A noiseless patient Spider
Lines: 25
Message-ID: <vac1dd$1ab6s$2@dont-email.me>
References: <v9t3ih$2e8ee$1@dont-email.me>
	<20240823112029.00002202@yahoo.com> <va9hep$riee$1@dont-email.me>
	<20240823115440.0000782b@yahoo.com> <vaahnh$22g6$1@gal.iecc.com>
	<w14yO.95806$3Npb.19190@fx39.iad>
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
Injection-Date: Sat, 24 Aug 2024 09:17:02 +0200 (CEST)
Injection-Info: dont-email.me; posting-host="e2f4eb43bfe25ed64710f73e8414c83e";
	logging-data="1387740"; mail-complaints-to="abuse@eternal-september.org";	posting-account="U2FsdGVkX19QwISKtP66nt3GNUts2ELE"
User-Agent: Pan/0.159 (Vovchansk; )
Cancel-Lock: sha1:8lSxmIy3xzWFp5WDzlQmAIOmH+w=

On Fri, 23 Aug 2024 17:54:36 GMT, Scott Lurndal wrote:

>            05  COMMAND               PIC X(3).
>                88  NAVIGATE          VALUE "NAV".
>                88  PHASERS           VALUE "PHA".
>                88  TORPEDO           VALUE "TOR".
>                88  SHIELDS           VALUE "DEF".
>                88  DOCK              VALUE "DOC".
>                88  LIB-COM           VALUE "COM".
>                88  NAV-C             VALUE "NAV".
>                88  PHA-C             VALUE "PHA".
>                88  TOR-C             VALUE "TOR".
>                88  DEF-C             VALUE "DEF".
>                88  DOC-C             VALUE "DOC".
>                88  COM-C             VALUE "COM".

Simple-minded translation to Pascal:

    type
        command_type = (NAV, PHA, TOR, DEF, DOC, COM);

    var
        command : command_type;

Can you see now, why the Pascal version would end up so much smaller?