开云体育

ctrl + shift + ? for shortcuts
© 2025 开云体育
  1. H390-MVS
  2. Messages
Expanded Topics Messages Polls
Date
Re: FILE STATUS CLAUSE

 

HERE is the code and input file AUTEURS (F, record length=65, block length=65)
==============
?
//AUTEURS ?JOB (COBOL), ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00000100
// ? ? ? ? ? ? 'moi', ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00000200
// ? ? ? ? ? ? CLASS=A, ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00000300
// ? ? ? ? ? ? MSGCLASS=H, ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00000400
// ? ? ? ? ? ? REGION=8M,TIME=1440, ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00000500
// ? ? ? ? ? ? MSGLEVEL=(1,1) ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00000600
//*** ?00000700
//* ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00000800
//* Name: .JCLLIB(XXXXXXX1) ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00000900
//* ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00001000
//* Desc: Sieve of Eratosthenes programmed in COBOL. ? ? ? ? ? ? ? ? ? ?00001100
//* ? ? ? All prime numbers up to the value entered via ? ? ? ? ? ? ? ? 00001200
//* ? ? ? //GO.SYSIN DD are computed. Due to a COBOL ? ? ? ? ? ? ? ? ? ?00001300
//* ? ? ? implementation limitation a maximum limit ? ? ? ? ? ? ? ? ? ? 00001400
//* ? ? ? of 32767 can be entered. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00001500
//* ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00001600
//*** ?00001700
//PRIMES EXEC COBUCG, ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00001800
// ? ? ? ? PARM.COB='FLAGW,LOAD,SUPMAP,SIZE=2048K,BUF=1024K,LIB' ? ? ? ?00001900
//COB.SYSPUNCH DD DUMMY ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00002000
//COB.SYSIN DD * ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00002100
? ? ? ?IDENTIFICATION DIVISION. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00002200
? ? ? * ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00002300
? ? ? ?PROGRAM-ID. ?AUTEURS. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00002400
? ? ? * ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00002500
? ? ? ?AUTHOR. ? ? ? ? ? Al. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00002600
? ? ? * Ce programme vise a se familiariser avec le traitement SEQUENTI.00002700
? ? ? * Il vise aussi a redefinir une structure de fiche pour ? ? ? ? ? 00002800
? ? ? * FONCTION1: AFFICHER la liste des auteurs de la bibliotheque ? ? 00002900
? ? ? * FONCTION2: COMPTER le nombre total d'enregistrements ? ? ? ? ? ?00003000
? ? ? * INPUT ?: fichier des auteurs inscrits dans la bibliotheque ? ? ?00003100
? ? ? * ? ? ? ? ? ? TousLesAuteurs.txt" ?alias UT-S-AUTEURS ? ? ? ? ? ? 00003200
? ? ? * SORTIE : ECRAN le nombre d'auteurs connus ? ? ? ? ? ? ? ? ? ? ? 00003300
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00003400
? ? ? ?ENVIRONMENT DIVISION. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00003500
? ? ? * ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00003600
? ? ? ?INPUT-OUTPUT SECTION. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00003700
? ? ? ?FILE-CONTROL. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00003800
? ? ? * ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00003900
? ? ? ? ? ? SELECT I-FICHIER-AUTEURS ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00004000
? ? ? ? ? ? ASSIGN TO UT-S-AUTEURS ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00004100
? ? ? ? ? ? STATUS IND-I-CODE-LECTURE. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00004200
? ? ? ?DATA DIVISION. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00004300
? ? ? * ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00004400
? ? ? ?FILE SECTION. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00004500
? ? ? * ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00004600
? ? ? ?FD ?I-FICHIER-AUTEURS ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00004700
? ? ? ? ? ?RECORDING F ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00004800
? ? ? ? ? ?LABEL RECORD IS STANDARD. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00004900
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00005000
? ? ? ?01 ?I-FICHE-AUTEUR PIC X(65). ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00005100
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00005200
? ? ? ?WORKING-STORAGE SECTION. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00005300
? ? ? * ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00005400
? ? ? *INDICATEURS ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00005500
? ? ? ?01 ? ?INDICATEURS. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00005600
? ? ? ? ?05 ?IND-FIN-FICHIER-AUTEURS PIC X(4) VALUE 'FAUX'. ? ? ? ? ? ? 00005700
? ? ? ? ?05 ?IND-I-CODE-LECTURE ? ? ?PIC 9(2) VALUE ZEROS. ? ? ? ? ? ? ?00005800
? ? ? * ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00005900
? ? ? ? ?01 ?WS-FICHE-AUTEUR. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00006200
? ? ? ? ? ? 05 NUMERO-AUTEUR ? ? ? ?PIC 9(3). ? ? ? ? ? ? ? ? ? ? ? ? ? 00006300
? ? ? ? ? ? 05 NOM-AUTEUR. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00006400
? ? ? ? ? ? ? ?10 AUTEUR-CLE1 ? ? ? PIC X(4). ? ? ? ? ? ? ? ? ? ? ? ? ? 00006500
? ? ? ? ? ? ? ?10 FILLER ? ? ? ? ? ?PIC X(8). ? ? ? ? ? ? ? ? ? ? ? ? ? 00006600
? ? ? ? ? ? 05 PRENOM-AUTEUR. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00006700
? ? ? ? ? ? ? ?10 AUTEUR-CLE2 ? ? ? PIC X(4). ? ? ? ? ? ? ? ? ? ? ? ? ? 00006800
? ? ? ? ? ? ? ?10 FILLER ? ? ? ? ? ?PIC X(9). ? ? ? ? ? ? ? ? ? ? ? ? ? 00006900
? ? ? ? ? ? 05 FILLER ? ? ? ? ? ? ? PIC X(10). ? ? ? ? ? ? ? ? ? ? ? ? ?00007000
? ? ? ? ? ? 05 ANNEE-NAISSANCE ? ? ?PIC X(4). ? ? ? ? ? ? ? ? ? ? ? ? ? 00007100
? ? ? ? ? ? 05 ANNEE-NAISSANCE-NUM ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00007200
? ? ? ? ? ? ? ? ?REDEFINES ANNEE-NAISSANCE PIC 9(4). ? ? ? ? ? ? ? ? ? ?00007300
? ? ? ? ? ? 05 FILLER ? ? ? ? ? ? ? PIC X(7). ? ? ? ? ? ? ? ? ? ? ? ? ? 00007400
? ? ? ? ? ? 05 ANNEE-DECES ? ? ? ? ?PIC X(4). ? ? ? ? ? ? ? ? ? ? ? ? ? 00007500
? ? ? ? ? ? 05 ANNEE-DECES-NUM ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00007600
? ? ? ? ? ? ? ? REDEFINES ANNEE-DECES PIC 9(4). ? ? ? ? ? ? ? ? ? ? ? ? 00007700
? ? ? ? ? ? 05 NATIONALITE ? ? ? ? ? ?PIC X(12). ? ? ? ? ? ? ? ? ? ? ? ?00007800
? ? ? * ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00007900
? ? ? *COMPTEURS ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00008000
? ? ? ? 01 ?VARIABLES-DE-TRAVAIL. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00008100
? ? ? ? ? ?05 WS-NB-AUTEURS ? ? ? ?PIC 9(5) VALUE ZEROS. ? ? ? ? ? ? ? ?00008200
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00008300
? ? ? * VARIABLES-DE-TRAVAIL. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00008400
? ? ? * SHOULD BE REPLACE BY ACCEPT FROM DATE ? ? ? ? ? ? ? ? ? ? ? ? ? 00008500
? ? ? ?01 ?DATE-DU-JOUR. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00008600
? ? ? ? ? ?05 SIECLE ? ? ? ? ? ? ? ? ? PIC 99 ? ? ?VALUE 20. ? ? ? ? ? ?00008700
? ? ? ? ? ?05 DATE-FRM-COURT. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00008800
? ? ? ? ? ? ? 10 ANNEE-COURANTE ? ? ? ?PIC 99 ? ? ?VALUE 25. ? ? ? ? ? ?00008900
? ? ? ? ? ? ? 10 MOIS-COURANT ? ? ? ? ?PIC 99 ? ? ?VALUE 02. ? ? ? ? ? ?00009000
? ? ? ? ? ? ? 10 JOUR-COURANT ? ? ? ? ?PIC 99 ? ? ?VALUE 28. ? ? ? ? ? ?00009100
? ? ? ? 01 ?AGE-AUTEUR ? ? ? ? PIC 999 ? ? VALUE ZEROS. ? ? ? ? ? ? ? ? 00009200
? ? ? ? 01 ?FIN-WS ? ? ? ? ? ? PIC X(5) ? ?VALUE ? 'FIN'. ? ? ? ? ? ? ? 00009300
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00009400
? ? ? ?PROCEDURE DIVISION. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00009500
? ? ? *-------------- ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00009600
? ? ? ?000-PRINCIPAL. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00009700
? ? ? *-------------- ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00009800
? ? ? * TRAITER TOUTES LES FICHES ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00009900
? ? ? ? ? ?DISPLAY 'execution du module 000-PRINCIPAL' ? ? ? ? ? ? ? ? ?00010000
? ? ? ? ? ?PERFORM 100-INIIALISER ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00010100
? ? ? ? ? ?PERFORM X100-LIRE-FICHIER-AUTEUR ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00010200
? ? ? ? ? ?PERFORM 200-TRAITER-FICHES ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00010300
? ? ? ? ? ? ? ? UNTIL IND-FIN-FICHIER-AUTEURS = 'VRAI' ? ? ? ? ? ? ? ? ?00010400
? ? ? ? ? ?PERFORM 900-TERMINER ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00010500
? ? ? ? ? ?DISPLAY 'fIN NORMALE DU PROGRAMME AUTEURS' ? ? ? ? ? ? ? ? ? 00010600
? ? ? ? ? ?STOP RUN. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00010700
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00010800
? ? ? *-------------- ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00010900
? ? ? ?100-INIIALISER. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00011000
? ? ? *-------------- ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00011100
? ? ? * INTIIALISER variables ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00011200
? ? ? ? ? ?DISPLAY 'execution du module 100-INIIALISER' ? ? ? ? ? ? ? ? 00011300
? ? ? ? ? ?OPEN ? ?INPUT ? I-FICHIER-AUTEURS ? ? ? ? ? ? ? ? ? ? ? ? ? ?00011400
? ? ? ? ? ?DISPLAY 'OUVERTURE AUTEURS' ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00011500
? ? ? ? ? ?DISPLAY IND-I-CODE-LECTURE. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00011600
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00011700
? ? ? *-------------- ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00011800
? ? ? ?200-TRAITER-FICHES. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00011900
? ? ? *-------------- ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00012000
? ? ? *AFFICHER le contenu d'un enregistrement A L'ECRAN ? ? ? ? ? ? ? ?00012100
? ? ? ? ? ?DISPLAY 'xecution du module 200-TRAITER-FICHES' ? ? ? ? ? ? ?00012200
? ? ? ? ? ?DISPLAY I-FICHE-AUTEUR ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00012300
? ? ? ? ? ?PERFORM X100-LIRE-FICHIER-AUTEUR. ? ? ? ? ? ? ? ? ? ? ? ? ? ?00012400
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00012500
? ? ? *------------------ ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00012600
? ? ? ?900-TERMINER. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00012700
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00012800
? ? ? *------------------ ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00012900
? ? ? ? ? ?DISPLAY 'xecution du module 900-TERMINER' ? ? ? ? ? ? ? ? ? ?00013000
? ? ? ? ? ?CLOSE ? ? ? ? ? I-FICHIER-AUTEURS ? ? ? ? ? ? ? ? ? ? ? ? ? ?00013100
? ? ? ? ? ?SUBTRACT 1 FROM WS-NB-AUTEURS ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00013200
? ? ? ? ? ?DISPLAY 'Nombre d"auteurs connus :' ? ? ? ? ? ? ? ? ? ? ? ? ?00013300
? ? ? ? ? ?DISPLAY ?WS-NB-AUTEURS. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00013400
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00013500
? ? ? *------------------ ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00013600
? ? ? ?X100-LIRE-FICHIER-AUTEUR. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00013700
? ? ? *------------------ ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00013800
? ? ? *LIRE le contenu du fichier ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00013900
? ? ? *RETOURNE une fiche ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00014000
? ? ? ? ? ?DISPLAY 'execution du module X100-LIRE-FICHIER-AUTEUR' ? ? ? 00014100
? ? ? ? ? ?ADD 1 TO ?WS-NB-AUTEURS ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00014200
? ? ? ? ? ?READ ? I-FICHIER-AUTEURS INTO WS-FICHE-AUTEUR ? ? ? ? ? ? ? ?00014300
? ? ? ? ? ? ? ?AT END MOVE 'VRAI' TO IND-FIN-FICHIER-AUTEURS ? ? ? ? ? ?00014400
? ? ? ? ? ? ? ? ? ?DISPLAY 'FIN DU FICHIER-AUTEURS' ? ? ? ? ? ? ? ? ? ? 00014500
? ? ? ? ? ? ?DISPLAY WS-FICHE-AUTEUR ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00014600
? ? ? ? ? ? ?DISPLAY I-FICHE-AUTEUR. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00014700
? ? ? ? END-READ. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00014800
? ? ? ? ? ? ?DISPLAY WS-FICHE-AUTEUR. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00014900
/* ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00015000
//COB.SYSLIB DD DSNAME=SYS1.COBLIB,DISP=SHR ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00015200
//*OB.SYSLIB DD DSNAME=HERC01.DEV.COPYBOOK,SHR ? ? ? ? ? ? ? ? ? ? ? ? ?00015300
//GO.AUTEURS DD DSNAME='HERC01.AUTEURS',DISP=SHR ? ? ? ? ? ? ? ? ? ? ? ?00015400
//GO.SYSOUT ?DD SYSOUT=*,DCB=(RECFM=FBA,LRECL=161,BLKSIZE=16100) ? ? ? ?00015500
// ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00015600
==============
extract of AUTEURS dataset
001ZWEIG ? ? ? STEFAN ? ? ? ? ? ? ? ? 1881 ? ? ? 1942AUTR 0000100
002ZWEIG ? ? ? STEFAN ? ? ? ? ? ? ? ? 1881 ? ? ? ? ? AUTR 0000200
?
Re: FILE STATUS CLAUSE

 

Try this web page for more resources:

Kind?regards
Dagfinn

On Fri, 4 Apr 2025 at 17:47, Alain Parent via <para1107=[email protected]> wrote:
Thk? to you 3,
I appreciate and follow up about your ideas.
?
first, it is NOT VSAN, it is a PS dataset as input.
the code compile and run without the "file status" clause
I will give all the code soon.
?
Al
Re: FILE STATUS CLAUSE

 

Thk? to you 3,
I appreciate and follow up about your ideas.
?
first, it is NOT VSAN, it is a PS dataset as input.
the code compile and run without the "file status" clause
I will give all the code soon.
?
Al
Re: FILE STATUS CLAUSE

 

开云体育

On 04/04/2025 14:28, Alain Parent via groups.io wrote:
to solve the error, I have try to rollback on TK4 (mvs 3.8j level 8505)
same problem.
?
Stick to TK5 as the compiler is the same other than a patch on tk5 to fix xref.

You need to provide more of your source code for anyone to work out the issue BUT assume the problem is YOUR coding.

I suggest you download and read the manuals for ANSI COBOL as there a a few and you can find them all on my system at :



Help yourself but there will be a few not related to that compiler.

?
Re: FILE STATUS CLAUSE

 

On Fri, Apr 4, 2025 at 06:28 AM, Alain Parent wrote:
to solve the error, I have try to rollback on TK4 (mvs 3.8j level 8505)
same problem.
?
This has no sense. TK4- is the same MVS with the same COBOL compiler.
Both TK4- and TK5 uses the Ansi Cobol compiler (Cobol 68).
?
Cheers,
Rob
?
Re: FILE STATUS CLAUSE

 

to solve the error, I have try to rollback on TK4 (mvs 3.8j level 8505)
same problem.
?
thk in advance for help
Al
Re: FILE STATUS CLAUSE

 

Hi
Are you trying to use a VSAM file?
If so: no support with this version of the compiler.
If not: it would be better to see the rest of the source as well
?
Marco
FILE STATUS CLAUSE

 

hI everay one,
fresh installation of TK5 to use Hercules, i have gotten this compiler error
?
LINE 23 ? ? IKF1017I-E ? ? FILE INVALID IN SELECT CLAUSE
?
here is the cobol code about it
?
?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- ?- 20 line(s) excluded
?000021 ? ? ? ? ? ? SELECT I-ACCOUNT-FILE
?000022 ? ? ? ? ? ? ASSIGN TO UT-S-ACCOUNT
?000023 ? ? ? ? ? ? FILE STATUS IS IND-I-CODE-READING.
?
and so IN DATA DIV
0056? IND-I-CODE-READING ? ? ?PIC 9(2) VALUE ZEROS.
?
?
here is the setup
????????????????? Hercules Version ?: 4.7.0.11119-SDL-gf7d2360a
with upgrade 4 installed
? ? ? ? ? ? ? ? ? ? . . . .? TT ? TT ? TT ? ?KK ? KK ? ? ? ?55 ? ? ? Update 4
on : Windows 10?
?
Can help me please
?
?
Re: Hercules with OSA QDIO network connectivity on Windows 11 not working

 

your Hyperion is too old.? The current version is 4.8 please update.


regards;

Rahim???



??



On Thursday, April 3, 2025 at 09:59:40 AM CDT, phil34130 via groups.io <phil34130@...> wrote:


I have Hercules-4.3.0.10296-SDL
I run z/OS 2.4
my PC has a fixed IP address of 192.168.0.69? ? ? ? ? ? ?
My z/OS IP address is 192.168.0.66
my router gateway address is 192.168.0.254
my PC is connected via wifi
?
?
in my hercules.cnf file i have:
0600.3 ?OSD ? ? ? ?ipaddr 192.168.0.66/24 iface 192.168.0.69 chpid 06
?
Everything seems to be ok on (trl,tcpip dev,..) the z/OS side, except the interface stats show a bytes in/out count of 0.
and I cannot ping the z/OS address from my PC, nor my PC from z/OS
?
On TSO:
?===> tso ping 192.168.0.69 ? ? ? ? ?
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?

?CS V2R4: Pinging host 192.168.0.69 ?
?Ping #1 timed out ? ? ? ? ? ? ? ? ??
?*** ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
?
From my PC:
C:\Users\tcmau>ping 192.168.0.66
Envoi d’une requête 'Ping' ?192.168.0.66 avec 32 octets de données :
Réponse de 192.168.0.69 : Impossible de joindre l’h?te de destination.
Réponse de 192.168.0.69 : Impossible de joindre l’h?te de destination.
Réponse de 192.168.0.69 : Impossible de joindre l’h?te de destination.
Réponse de 192.168.0.69 : Impossible de joindre l’h?te de destination.
Statistiques Ping pour 192.168.0.66:
? ? Paquets : envoyés = 4, re?us = 4, perdus = 0 (perte 0%),
?
ipconfig on my pc returns;
C:\Users\tcmau>ipconfig
Configuration IP de Windows

Carte inconnue Connexion au réseau local :
? ?Statut du média. . . . . . . . . . . . : Média déconnecté
? ?Suffixe DNS propre à la connexion. . . :
Carte réseau sans fil Connexion au réseau local* 1 :
? ?Statut du média. . . . . . . . . . . . : Média déconnecté
? ?Suffixe DNS propre à la connexion. . . :
Carte réseau sans fil Connexion au réseau local* 2 :
? ?Statut du média. . . . . . . . . . . . : Média déconnecté
? ?Suffixe DNS propre à la connexion. . . :
Carte réseau sans fil Wi-Fi :
? ?Suffixe DNS propre à la connexion. . . :
? ?Adresse IPv6. . . . . . . . . . . . . .: 2a01:e0a:55e:a470:702:6f38:5328:bc4b
? ?Adresse IPv6 temporaire . . . . . . . .: 2a01:e0a:55e:a470:58a5:6b9:bbbf:73f5
? ?Adresse IPv6 de liaison locale. . . . .: fe80::c37:a2cf:2bb3:3878%3
? ?Adresse IPv4. . . . . . . . . . . . . .: 192.168.0.69
? ?Masque de sous-réseau. . . . . . . . . : 255.255.0.0
? ?Passerelle par défaut. . . . . . . . . : fe80::6aa3:78ff:fe7a:c39b%3
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?192.168.0.254
Carte Ethernet Connexion réseau Bluetooth :
? ?Statut du média. . . . . . . . . . . . : Média déconnecté
? ?Suffixe DNS propre à la connexion. . . :
?
?
in VTAM i have defined:
?BROWSE ? ?SYS1.VTAMLST(TRL600) - 01.00 ? ? ? ? ? ? Line 0000000000 Col 0
*** Top of Data **
TRL600 ? ?VBUILD TYPE=TRL ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
TRL6 ? ? TRLE ?LNCTL=MPC, ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?X?
? ? ? ? ? ? ? ?READ=(0600), ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?X?
? ? ? ? ? ? ? ?WRITE=(0601), ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? X?
? ? ? ? ? ? ? ?DATAPATH=(0602), ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?X?
? ? ? ? ? ? ? ?PORTNAME=OSA0001, ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? X?
? ? ? ? ? ? ? ?MPCLEVEL=QDIO ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
* ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
?
in TCPIP config i have:
; ----------------------------------------------------------------------
; Hardware definitions: ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
; ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
; ----------------------------------------------------------------------
INTERFace OSA0001PHIL DEFINE IPAQENET CHPIDTYPE OSD PORTNAME OSA0001 ? ?
? ? ? ? ? IPADDR 192.168.0.66/28 NONROUTER ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
; ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
BEGINRoutes ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ROUTE 192.168.0.0 255.255.0.0 = OSA0001PHIL MTU 1492 ? ? ? ? ? ? ? ? ?
? ROUTE DEFAULT 192.168.0.254 OSA0001PHIL MTU 1492 ? ? ? ? ? ? ? ? ? ? ?
ENDRoutes ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
; ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
START OSA0001PHIL ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
?
D NET,TRL gives me:
?
D NET,TRL,TRLE=TRL6 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
IST097I DISPLAY ACCEPTED ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
IST075I NAME = TRL6, TYPE = TRLE 309 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
IST1954I TRL MAJOR NODE = TRL600 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
IST486I STATUS= ACTIV, DESIRED STATE= ACTIV ? ? ? ? ? ? ? ? ? ? ? ? ? ?
IST087I TYPE = LEASED ? ? ? ? ? ? , CONTROL = MPC , HPDT = YES ? ? ? ??
IST1715I MPCLEVEL = QDIO ? ? ? MPCUSAGE = SHARE ? ? ? ? ? ? ? ? ? ? ? ?
IST1716I PORTNAME = OSA0001 ? ?LINKNUM = ? 0 ? OSA CODE LEVEL = C3F1 ??
IST2337I CHPID TYPE = OSD ? ? ?CHPID = 06 ?PNETID = **NA** ? ? ? ? ? ??
IST1577I HEADER SIZE = 4096 DATA SIZE = 0 STORAGE = ***NA*** ? ? ? ? ??
IST1221I WRITE DEV = 0601 STATUS = ACTIVE ? ? STATE = ONLINE ? ? ? ? ??
IST1577I HEADER SIZE = 4092 DATA SIZE = 0 STORAGE = ***NA*** ? ? ? ? ??
IST1221I READ ?DEV = 0600 STATUS = ACTIVE ? ? STATE = ONLINE ? ? ? ? ??
IST924I ------------------------------------------------------------- ?
IST1221I DATA ?DEV = 0602 STATUS = ACTIVE ? ? STATE = N/A ? ? ? ? ? ? ?
IST1724I I/O TRACE = OFF ?TRACE LENGTH = *NA* ? ? ? ? ? ? ? ? ? ? ? ? ?
IST1717I ULPID = TCPIP ULP INTERFACE = OSA0001PHIL ? ? ? ? ? ? ? ? ? ??
IST2310I ACCELERATED ROUTING DISABLED ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
IST2331I QUEUE ? QUEUE ? ? READ ? ? ? ? ? ? QUEUE ? ? ? ? ? ? ? ? ? ? ?
IST2332I ID ? ? ?TYPE ? ? ?STORAGE ? ? ? ? ?STATUS ? ? ? ? ? ? ? ? ? ??
IST2205I ------ ?-------- ?--------------- ?---------------------- ? ??
IST2333I RD/1 ? ?PRIMARY ? 4.0M(64 SBALS) ? ACTIVE
IST2333I RD/1 ? ?PRIMARY ? 4.0M(64 SBALS) ? ACTIVE ? ? ? ? ?
IST2305I NUMBER OF DISCARDED INBOUND READ BUFFERS = 0 ? ? ??
IST2386I NUMBER OF DISCARDED OUTBOUND WRITE BUFFERS = 0 ? ??
IST1757I PRIORITY1: UNCONGESTED PRIORITY2: UNCONGESTED ? ? ?
IST1757I PRIORITY3: UNCONGESTED PRIORITY4: UNCONGESTED ? ? ?
IST1801I UNITS OF WORK FOR NCB AT ADDRESS X'21654010' ? ? ??
IST1802I P1 CURRENT = 0 AVERAGE = 0 MAXIMUM = 0 ? ? ? ? ? ??
IST1802I P2 CURRENT = 0 AVERAGE = 0 MAXIMUM = 0 ? ? ? ? ? ??
IST1802I P3 CURRENT = 0 AVERAGE = 0 MAXIMUM = 0 ? ? ? ? ? ??
IST1802I P4 CURRENT = 0 AVERAGE = 1 MAXIMUM = 1 ? ? ? ? ? ??
IST924I ----------------------------------------------------
?
D TCPIP,,N,DEV :
? ?
D TCPIP,,N,DEV ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
EZZ2500I NETSTAT CS V2R4 TCPIP 384 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
DEVNAME: LOOPBACK ? ? ? ? ?DEVTYPE: LOOPBACK ? ? ? ? ? ? ? ? ? ? ? ?
? DEVSTATUS: READY ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? LNKNAME: LOOPBACK ? ? ? ? ?LNKTYPE: LOOPBACK ? ?LNKSTATUS: READY ?
? ? ACTMTU: 65535 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ROUTING PARAMETERS: ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? MTU SIZE: N/A ? ? ? ? ? ? ? METRIC: 00 ? ? ? ? ? ? ? ? ? ? ? ? ?
? ? DESTADDR: 0.0.0.0 ? ? ? ? ? SUBNETMASK: 0.0.0.0 ? ? ? ? ? ? ? ??
? MULTICAST SPECIFIC: ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? MULTICAST CAPABILITY: NO ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? LINK STATISTICS: ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? ? BYTESIN ? ? ? ? ? ? ? ? ? ? ? ? ? = 0 ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? INBOUND PACKETS ? ? ? ? ? ? ? ? ? = 0 ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? INBOUND PACKETS IN ERROR ? ? ? ? ?= 0 ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? INBOUND PACKETS DISCARDED ? ? ? ? = 0 ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ?INBOUND PACKETS DISCARDED ? ? ? ? = 0 ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ?INBOUND PACKETS WITH NO PROTOCOL ?= 0 ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ?BYTESOUT ? ? ? ? ? ? ? ? ? ? ? ? ?= 0 ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ?OUTBOUND PACKETS ? ? ? ? ? ? ? ? ?= 0 ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ?OUTBOUND PACKETS IN ERROR ? ? ? ? = 0 ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ?OUTBOUND PACKETS DISCARDED ? ? ? ?= 0 ? ? ? ? ? ? ? ? ? ? ? ? ??
?INTFNAME: OSA0001PHIL ? ? ? INTFTYPE: IPAQENET ? INTFSTATUS: READY ?
? ? ?PORTNAME: OSA0001 ? DATAPATH: 0602 ? ? DATAPATHSTATUS: READY ? ?
? ? ?CHPIDTYPE: OSD ? ? ? ? ? ?SMCR: YES ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ?PNETID: *NONE* ? ? ? ? ? ?SMCD: YES ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ?TRLE: TRL6 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? ? ?SPEED: 0000000100 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ?IPBROADCASTCAPABILITY: NO ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ?CFGROUTER: NON ? ? ? ? ? ? ? ? ACTROUTER: NON ? ? ? ? ? ? ? ? ??
? ? ?ARPOFFLOAD: YES ? ? ? ? ? ? ? ?ARPOFFLOADINFO: YES ? ? ? ? ? ? ?
? ? ?CFGMTU: NONE ? ? ? ? ? ? ? ? ? ACTMTU: 576 ? ? ? ? ? ? ? ? ? ? ?
? ? ?IPADDR: 192.168.0.66/28 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ?VLANID: NONE ? ? ? ? ? ? ? ? ? VLANPRIORITY: DISABLED ? ? ? ? ??
? ? ?READSTORAGE: GLOBAL (4096K) ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ?INBPERF: BALANCED ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ?CHECKSUMOFFLOAD: UNSUPPORTED ? SEGMENTATIONOFFLOAD: NO ? ? ? ? ?
? ? ?SECCLASS: 255 ? ? ? ? ? ? ? ? ?MONSYSPLEX: NO ? ? ? ? ? ? ? ? ??
? ? ?ISOLATE: NO ? ? ? ? ? ? ? ? ? ?OPTLATENCYMODE: NO ? ? ? ? ? ? ??
? ?MULTICAST SPECIFIC: ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ?MULTICAST SPECIFIC: ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ?MULTICAST CAPABILITY: YES ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ?GROUP ? ? ? ? ? ? REFCNT ? ? ?SRCFLTMD ? ? ? ? ? ? ? ? ? ? ? ? ?
? ? ?----- ? ? ? ? ? ? ------ ? ? ?-------- ? ? ? ? ? ? ? ? ? ? ? ? ?
? ? ?224.0.0.1 ? ? ? ? 0000000001 ?EXCLUDE ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ? ?SRCADDR: NONE ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ?INTERFACE STATISTICS: ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ?BYTESIN ? ? ? ? ? ? ? ? ? ? ? ? ? = 0 ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ?INBOUND PACKETS ? ? ? ? ? ? ? ? ? = 0 ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ?INBOUND PACKETS IN ERROR ? ? ? ? ?= 0 ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ?INBOUND PACKETS DISCARDED ? ? ? ? = 0 ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ?INBOUND PACKETS WITH NO PROTOCOL ?= 0 ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ?BYTESOUT ? ? ? ? ? ? ? ? ? ? ? ? ?= 316 ? ? ? ? ? ? ? ? ? ? ? ??
? ? ?OUTBOUND PACKETS ? ? ? ? ? ? ? ? ?= 1 ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ?OUTBOUND PACKETS IN ERROR ? ? ? ? = 0 ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ?OUTBOUND PACKETS DISCARDED ? ? ? ?= 0 ? ? ? ? ? ? ? ? ? ? ? ? ??
?IPV4 LAN GROUP SUMMARY ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
?LANGROUP: 00003 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ?NAME ? ? ? ? ? ? ?STATUS ? ? ?ARPOWNER ? ? ? ? ?VIPAOWNER ? ? ? ??
? ?---- ? ? ? ? ? ? ?------ ? ? ?-------- ? ? ? ? ?--------- ? ? ? ??
? ?OSA0001PHIL ? ? ? ACTIVE ? ? ?OSA0001PHIL ? ? ? YES ? ? ? ? ? ? ??
?OSA-EXPRESS NETWORK TRAFFIC ANALYZER INFORMATION: ? ? ? ? ? ? ? ? ??
?NO OSA-EXPRESS NETWORK TRAFFIC ANALYZER INTERFACES ARE DEFINED ? ? ?
?2 OF 2 RECORDS DISPLAYED ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
?
D U,,,600:
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
IEE457I 16.05.38 UNIT STATUS 447 ? ? ? ? ? ? ? ? ? ? ?
UNIT TYPE STATUS ? ? ? ?VOLSER ? ? VOLSTATE ? ? ?SS ??
0600 OSA ?A-BSY ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 0 ??
0601 OSA ?A ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 0 ??
0602 OSA ?A-BSY ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 0 ??
0603 OSA ?OFFLINE ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 0 ??
0604 OSA ?OFFLINE ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 0 ??
?
in? HCD 0600 is defined as:
?------------------------------------------------------------------------
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? I/O Device List ? ? ? ?Row 22 of 41 More: ?
?Command ===> ___________________________________________ Scroll ===> PAG
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
?Select one or more devices, then press Enter. To add, use F11. ? ? ? ? ?
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? ?----------Device------ --#--- --------Control Unit Numbers + --------?
?/ Number ? Type + ? ? ? ?CSS OS 1--- 2--- 3--- 4--- 5--- 6--- 7--- 8---?
?_ 0600,15 ?OSA ? ? ? ? ? ? ? 1 ?0990 ____ ____ ____ ____ ____ ____ ____?
?_ 060F ? ? OSAD ? ? ? ? ? ? ?1 ?0990 ____ ____ ____ ____ ____ ____ ____?
?
?
?
Would you have any idea how to get this working (i.e connectivity in & out of z/OS under hercules via my gateway)
Thank you very much for your help.
Philippe
Hercules with OSA QDIO network connectivity on Windows 11 not working

 

I have Hercules-4.3.0.10296-SDL
I run z/OS 2.4
my PC has a fixed IP address of 192.168.0.69? ? ? ? ? ? ?
My z/OS IP address is 192.168.0.66
my router gateway address is 192.168.0.254
my PC is connected via wifi
?
?
in my hercules.cnf file i have:
0600.3 ?OSD ? ? ? ?ipaddr 192.168.0.66/24 iface 192.168.0.69 chpid 06
?
Everything seems to be ok on (trl,tcpip dev,..) the z/OS side, except the interface stats show a bytes in/out count of 0.
and I cannot ping the z/OS address from my PC, nor my PC from z/OS
?
On TSO:
?===> tso ping 192.168.0.69 ? ? ? ? ?
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?

?CS V2R4: Pinging host 192.168.0.69 ?
?Ping #1 timed out ? ? ? ? ? ? ? ? ??
?*** ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
?
From my PC:
C:\Users\tcmau>ping 192.168.0.66
Envoi d’une requête 'Ping' ?192.168.0.66 avec 32 octets de données :
Réponse de 192.168.0.69 : Impossible de joindre l’h?te de destination.
Réponse de 192.168.0.69 : Impossible de joindre l’h?te de destination.
Réponse de 192.168.0.69 : Impossible de joindre l’h?te de destination.
Réponse de 192.168.0.69 : Impossible de joindre l’h?te de destination.
Statistiques Ping pour 192.168.0.66:
? ? Paquets : envoyés = 4, re?us = 4, perdus = 0 (perte 0%),
?
ipconfig on my pc returns;
C:\Users\tcmau>ipconfig
Configuration IP de Windows

Carte inconnue Connexion au réseau local :
? ?Statut du média. . . . . . . . . . . . : Média déconnecté
? ?Suffixe DNS propre à la connexion. . . :
Carte réseau sans fil Connexion au réseau local* 1 :
? ?Statut du média. . . . . . . . . . . . : Média déconnecté
? ?Suffixe DNS propre à la connexion. . . :
Carte réseau sans fil Connexion au réseau local* 2 :
? ?Statut du média. . . . . . . . . . . . : Média déconnecté
? ?Suffixe DNS propre à la connexion. . . :
Carte réseau sans fil Wi-Fi :
? ?Suffixe DNS propre à la connexion. . . :
? ?Adresse IPv6. . . . . . . . . . . . . .: 2a01:e0a:55e:a470:702:6f38:5328:bc4b
? ?Adresse IPv6 temporaire . . . . . . . .: 2a01:e0a:55e:a470:58a5:6b9:bbbf:73f5
? ?Adresse IPv6 de liaison locale. . . . .: fe80::c37:a2cf:2bb3:3878%3
? ?Adresse IPv4. . . . . . . . . . . . . .: 192.168.0.69
? ?Masque de sous-réseau. . . . . . . . . : 255.255.0.0
? ?Passerelle par défaut. . . . . . . . . : fe80::6aa3:78ff:fe7a:c39b%3
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?192.168.0.254
Carte Ethernet Connexion réseau Bluetooth :
? ?Statut du média. . . . . . . . . . . . : Média déconnecté
? ?Suffixe DNS propre à la connexion. . . :
?
?
in VTAM i have defined:
?BROWSE ? ?SYS1.VTAMLST(TRL600) - 01.00 ? ? ? ? ? ? Line 0000000000 Col 0
*** Top of Data **
TRL600 ? ?VBUILD TYPE=TRL ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
TRL6 ? ? TRLE ?LNCTL=MPC, ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?X?
? ? ? ? ? ? ? ?READ=(0600), ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?X?
? ? ? ? ? ? ? ?WRITE=(0601), ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? X?
? ? ? ? ? ? ? ?DATAPATH=(0602), ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?X?
? ? ? ? ? ? ? ?PORTNAME=OSA0001, ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? X?
? ? ? ? ? ? ? ?MPCLEVEL=QDIO ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
* ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
?
in TCPIP config i have:
; ----------------------------------------------------------------------
; Hardware definitions: ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
; ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
; ----------------------------------------------------------------------
INTERFace OSA0001PHIL DEFINE IPAQENET CHPIDTYPE OSD PORTNAME OSA0001 ? ?
? ? ? ? ? IPADDR 192.168.0.66/28 NONROUTER ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
; ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
BEGINRoutes ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ROUTE 192.168.0.0 255.255.0.0 = OSA0001PHIL MTU 1492 ? ? ? ? ? ? ? ? ?
? ROUTE DEFAULT 192.168.0.254 OSA0001PHIL MTU 1492 ? ? ? ? ? ? ? ? ? ? ?
ENDRoutes ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
; ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
START OSA0001PHIL ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
?
D NET,TRL gives me:
?
D NET,TRL,TRLE=TRL6 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
IST097I DISPLAY ACCEPTED ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
IST075I NAME = TRL6, TYPE = TRLE 309 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
IST1954I TRL MAJOR NODE = TRL600 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
IST486I STATUS= ACTIV, DESIRED STATE= ACTIV ? ? ? ? ? ? ? ? ? ? ? ? ? ?
IST087I TYPE = LEASED ? ? ? ? ? ? , CONTROL = MPC , HPDT = YES ? ? ? ??
IST1715I MPCLEVEL = QDIO ? ? ? MPCUSAGE = SHARE ? ? ? ? ? ? ? ? ? ? ? ?
IST1716I PORTNAME = OSA0001 ? ?LINKNUM = ? 0 ? OSA CODE LEVEL = C3F1 ??
IST2337I CHPID TYPE = OSD ? ? ?CHPID = 06 ?PNETID = **NA** ? ? ? ? ? ??
IST1577I HEADER SIZE = 4096 DATA SIZE = 0 STORAGE = ***NA*** ? ? ? ? ??
IST1221I WRITE DEV = 0601 STATUS = ACTIVE ? ? STATE = ONLINE ? ? ? ? ??
IST1577I HEADER SIZE = 4092 DATA SIZE = 0 STORAGE = ***NA*** ? ? ? ? ??
IST1221I READ ?DEV = 0600 STATUS = ACTIVE ? ? STATE = ONLINE ? ? ? ? ??
IST924I ------------------------------------------------------------- ?
IST1221I DATA ?DEV = 0602 STATUS = ACTIVE ? ? STATE = N/A ? ? ? ? ? ? ?
IST1724I I/O TRACE = OFF ?TRACE LENGTH = *NA* ? ? ? ? ? ? ? ? ? ? ? ? ?
IST1717I ULPID = TCPIP ULP INTERFACE = OSA0001PHIL ? ? ? ? ? ? ? ? ? ??
IST2310I ACCELERATED ROUTING DISABLED ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
IST2331I QUEUE ? QUEUE ? ? READ ? ? ? ? ? ? QUEUE ? ? ? ? ? ? ? ? ? ? ?
IST2332I ID ? ? ?TYPE ? ? ?STORAGE ? ? ? ? ?STATUS ? ? ? ? ? ? ? ? ? ??
IST2205I ------ ?-------- ?--------------- ?---------------------- ? ??
IST2333I RD/1 ? ?PRIMARY ? 4.0M(64 SBALS) ? ACTIVE
IST2333I RD/1 ? ?PRIMARY ? 4.0M(64 SBALS) ? ACTIVE ? ? ? ? ?
IST2305I NUMBER OF DISCARDED INBOUND READ BUFFERS = 0 ? ? ??
IST2386I NUMBER OF DISCARDED OUTBOUND WRITE BUFFERS = 0 ? ??
IST1757I PRIORITY1: UNCONGESTED PRIORITY2: UNCONGESTED ? ? ?
IST1757I PRIORITY3: UNCONGESTED PRIORITY4: UNCONGESTED ? ? ?
IST1801I UNITS OF WORK FOR NCB AT ADDRESS X'21654010' ? ? ??
IST1802I P1 CURRENT = 0 AVERAGE = 0 MAXIMUM = 0 ? ? ? ? ? ??
IST1802I P2 CURRENT = 0 AVERAGE = 0 MAXIMUM = 0 ? ? ? ? ? ??
IST1802I P3 CURRENT = 0 AVERAGE = 0 MAXIMUM = 0 ? ? ? ? ? ??
IST1802I P4 CURRENT = 0 AVERAGE = 1 MAXIMUM = 1 ? ? ? ? ? ??
IST924I ----------------------------------------------------
?
D TCPIP,,N,DEV :
? ?
D TCPIP,,N,DEV ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
EZZ2500I NETSTAT CS V2R4 TCPIP 384 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
DEVNAME: LOOPBACK ? ? ? ? ?DEVTYPE: LOOPBACK ? ? ? ? ? ? ? ? ? ? ? ?
? DEVSTATUS: READY ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? LNKNAME: LOOPBACK ? ? ? ? ?LNKTYPE: LOOPBACK ? ?LNKSTATUS: READY ?
? ? ACTMTU: 65535 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ROUTING PARAMETERS: ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? MTU SIZE: N/A ? ? ? ? ? ? ? METRIC: 00 ? ? ? ? ? ? ? ? ? ? ? ? ?
? ? DESTADDR: 0.0.0.0 ? ? ? ? ? SUBNETMASK: 0.0.0.0 ? ? ? ? ? ? ? ??
? MULTICAST SPECIFIC: ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? MULTICAST CAPABILITY: NO ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? LINK STATISTICS: ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? ? BYTESIN ? ? ? ? ? ? ? ? ? ? ? ? ? = 0 ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? INBOUND PACKETS ? ? ? ? ? ? ? ? ? = 0 ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? INBOUND PACKETS IN ERROR ? ? ? ? ?= 0 ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? INBOUND PACKETS DISCARDED ? ? ? ? = 0 ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ?INBOUND PACKETS DISCARDED ? ? ? ? = 0 ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ?INBOUND PACKETS WITH NO PROTOCOL ?= 0 ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ?BYTESOUT ? ? ? ? ? ? ? ? ? ? ? ? ?= 0 ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ?OUTBOUND PACKETS ? ? ? ? ? ? ? ? ?= 0 ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ?OUTBOUND PACKETS IN ERROR ? ? ? ? = 0 ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ?OUTBOUND PACKETS DISCARDED ? ? ? ?= 0 ? ? ? ? ? ? ? ? ? ? ? ? ??
?INTFNAME: OSA0001PHIL ? ? ? INTFTYPE: IPAQENET ? INTFSTATUS: READY ?
? ? ?PORTNAME: OSA0001 ? DATAPATH: 0602 ? ? DATAPATHSTATUS: READY ? ?
? ? ?CHPIDTYPE: OSD ? ? ? ? ? ?SMCR: YES ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ?PNETID: *NONE* ? ? ? ? ? ?SMCD: YES ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ?TRLE: TRL6 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? ? ?SPEED: 0000000100 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ?IPBROADCASTCAPABILITY: NO ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ?CFGROUTER: NON ? ? ? ? ? ? ? ? ACTROUTER: NON ? ? ? ? ? ? ? ? ??
? ? ?ARPOFFLOAD: YES ? ? ? ? ? ? ? ?ARPOFFLOADINFO: YES ? ? ? ? ? ? ?
? ? ?CFGMTU: NONE ? ? ? ? ? ? ? ? ? ACTMTU: 576 ? ? ? ? ? ? ? ? ? ? ?
? ? ?IPADDR: 192.168.0.66/28 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ?VLANID: NONE ? ? ? ? ? ? ? ? ? VLANPRIORITY: DISABLED ? ? ? ? ??
? ? ?READSTORAGE: GLOBAL (4096K) ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ?INBPERF: BALANCED ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ?CHECKSUMOFFLOAD: UNSUPPORTED ? SEGMENTATIONOFFLOAD: NO ? ? ? ? ?
? ? ?SECCLASS: 255 ? ? ? ? ? ? ? ? ?MONSYSPLEX: NO ? ? ? ? ? ? ? ? ??
? ? ?ISOLATE: NO ? ? ? ? ? ? ? ? ? ?OPTLATENCYMODE: NO ? ? ? ? ? ? ??
? ?MULTICAST SPECIFIC: ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ?MULTICAST SPECIFIC: ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ?MULTICAST CAPABILITY: YES ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ?GROUP ? ? ? ? ? ? REFCNT ? ? ?SRCFLTMD ? ? ? ? ? ? ? ? ? ? ? ? ?
? ? ?----- ? ? ? ? ? ? ------ ? ? ?-------- ? ? ? ? ? ? ? ? ? ? ? ? ?
? ? ?224.0.0.1 ? ? ? ? 0000000001 ?EXCLUDE ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ? ?SRCADDR: NONE ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ?INTERFACE STATISTICS: ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ?BYTESIN ? ? ? ? ? ? ? ? ? ? ? ? ? = 0 ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ?INBOUND PACKETS ? ? ? ? ? ? ? ? ? = 0 ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ?INBOUND PACKETS IN ERROR ? ? ? ? ?= 0 ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ?INBOUND PACKETS DISCARDED ? ? ? ? = 0 ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ?INBOUND PACKETS WITH NO PROTOCOL ?= 0 ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ?BYTESOUT ? ? ? ? ? ? ? ? ? ? ? ? ?= 316 ? ? ? ? ? ? ? ? ? ? ? ??
? ? ?OUTBOUND PACKETS ? ? ? ? ? ? ? ? ?= 1 ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ?OUTBOUND PACKETS IN ERROR ? ? ? ? = 0 ? ? ? ? ? ? ? ? ? ? ? ? ??
? ? ?OUTBOUND PACKETS DISCARDED ? ? ? ?= 0 ? ? ? ? ? ? ? ? ? ? ? ? ??
?IPV4 LAN GROUP SUMMARY ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
?LANGROUP: 00003 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
? ?NAME ? ? ? ? ? ? ?STATUS ? ? ?ARPOWNER ? ? ? ? ?VIPAOWNER ? ? ? ??
? ?---- ? ? ? ? ? ? ?------ ? ? ?-------- ? ? ? ? ?--------- ? ? ? ??
? ?OSA0001PHIL ? ? ? ACTIVE ? ? ?OSA0001PHIL ? ? ? YES ? ? ? ? ? ? ??
?OSA-EXPRESS NETWORK TRAFFIC ANALYZER INFORMATION: ? ? ? ? ? ? ? ? ??
?NO OSA-EXPRESS NETWORK TRAFFIC ANALYZER INTERFACES ARE DEFINED ? ? ?
?2 OF 2 RECORDS DISPLAYED ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
?
D U,,,600:
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
IEE457I 16.05.38 UNIT STATUS 447 ? ? ? ? ? ? ? ? ? ? ?
UNIT TYPE STATUS ? ? ? ?VOLSER ? ? VOLSTATE ? ? ?SS ??
0600 OSA ?A-BSY ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 0 ??
0601 OSA ?A ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 0 ??
0602 OSA ?A-BSY ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 0 ??
0603 OSA ?OFFLINE ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 0 ??
0604 OSA ?OFFLINE ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 0 ??
?
in? HCD 0600 is defined as:
?------------------------------------------------------------------------
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? I/O Device List ? ? ? ?Row 22 of 41 More: ?
?Command ===> ___________________________________________ Scroll ===> PAG
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
?Select one or more devices, then press Enter. To add, use F11. ? ? ? ? ?
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
? ?----------Device------ --#--- --------Control Unit Numbers + --------?
?/ Number ? Type + ? ? ? ?CSS OS 1--- 2--- 3--- 4--- 5--- 6--- 7--- 8---?
?_ 0600,15 ?OSA ? ? ? ? ? ? ? 1 ?0990 ____ ____ ____ ____ ____ ____ ____?
?_ 060F ? ? OSAD ? ? ? ? ? ? ?1 ?0990 ____ ____ ____ ____ ____ ____ ____?
?
?
?
Would you have any idea how to get this working (i.e connectivity in & out of z/OS under hercules via my gateway)
Thank you very much for your help.
Philippe
Re: Sources for Bookmanager books?

 

Hello Dave,

Am 02.04.2025 um 09:21 schrieb Dave Wade via groups.io <dave.g4ugm@...>

For uploading to a Mainframe you may be able to treat the .BOO files as one long multi-file tape.
If you look in the "TAPES" folder on the CD you will find some "TDF" files.
These are there for use on an IBM P/390 "Mainframe in a PS/2" box and allow the .BOO files to appear to OS/390 as one multi-file tape on a P/390
However Hercules also understands ".TDF" files so you should be able to copy all the files from one CD to your Hercules mainframe in a single job.
Another possibility is to use FTP, as outlined here:



:wq! PoC
Re: Sources for Bookmanager books?

 

Zack,

For uploading to a Mainframe you may be able to treat the .BOO files as one long multi-file tape.
If you look in the "TAPES" folder on the CD you will find some "TDF" files.
These are there for use on an IBM P/390 "Mainframe in a PS/2" box and allow the .BOO files to appear to OS/390 as one multi-file tape on a P/390
However Hercules also understands ".TDF" files so you should be able to copy all the files from one CD to your Hercules mainframe in a single job.

Dave

On 02/04/2025 03:28, Zachary Kline via groups.io wrote:
Hi,

Thank you very much for pointing this out. I hadn't stumbled across that particular item in my browsing.

It looks like just the sort of thing I was hoping to find.

As a bonus, I am able to use the DOS-based bookreader program under emulation, or presumably upload everything to the "mainframe" system later. I'm very pleased.

Thanks,
Zack.
Re: Sources for Bookmanager books?

 

Hi,

Thank you very much for pointing this out. I hadn't stumbled across that particular item in my browsing.

It looks like just the sort of thing I was hoping to find.

As a bonus, I am able to use the DOS-based bookreader program under emulation, or presumably upload everything to the "mainframe" system later. I'm very pleased.

Thanks,
Zack.
--
Zachary Kline
zkline@...

On Mon, Mar 31, 2025, at 10:47 PM, au1john via groups.io wrote:
Zack,

You will find 9 CD images of 1998 vintage OS/390 manuals in .BOO format here



Cheers,
John

Hi All,
I>’m just writing as a newbie who has recently discovered that
BookManager Read for MVS works extremely well with my screen reading
technology, as do many ISPf utilities, to be fair.

That being said, I wondered if anyone has OS390 or MVS-era bookshelves anywhere? I know I can find some of this stuff in PDF, but I’d love to get the original formats as well, if only for interest’s sake and to >give me practice mucking around with loading it onto the emulator and so on.

Thanks for any thoughts. ?
Best,
Zack.
Re: Sources for Bookmanager books?

 

Zack,

You will find 9 CD images of 1998 vintage OS/390 manuals in .BOO format here



Cheers,
John

Hi All,
I>’m just writing as a newbie who has recently discovered that BookManager Read for MVS works extremely well with my screen reading technology, as do many ISPf utilities, to be fair.

That being said, I wondered if anyone has OS390 or MVS-era bookshelves anywhere? I know I can find some of this stuff in PDF, but I’d love to get the original formats as well, if only for interest’s sake and to >give me practice mucking around with loading it onto the emulator and so on.

Thanks for any thoughts. ?
Best,
Zack.
Re: Sources for Bookmanager books?

 



On Mon, Mar 31, 2025 at 10:03?PM Zachary Kline via <zkline=[email protected]> wrote:

Hi All,

?

I’m just writing as a newbie who has recently discovered that BookManager Read for MVS works extremely well with my screen reading technology, as do many ISPf utilities, to be fair.

?

That being said, I wondered if anyone has OS390 or MVS-era bookshelves anywhere? I know I can find some of this stuff in PDF, but I’d love to get the original formats as well, if only for interest’s sake and to give me practice mucking around with loading it onto the emulator and so on.

?

Thanks for any thoughts. ?

Best,

Zack.



--
Mike A Schwab, Springfield IL USA
Where do Forest Rangers go to get away from it all?
Sources for Bookmanager books?

 

开云体育

Hi All,

?

I’m just writing as a newbie who has recently discovered that BookManager Read for MVS works extremely well with my screen reading technology, as do many ISPf utilities, to be fair.

?

That being said, I wondered if anyone has OS390 or MVS-era bookshelves anywhere? I know I can find some of this stuff in PDF, but I’d love to get the original formats as well, if only for interest’s sake and to give me practice mucking around with loading it onto the emulator and so on.

?

Thanks for any thoughts. ?

Best,

Zack.
Re: Back to old problems: printers not draining.

 

Thank you René.
?
I totally missed that bit about the "equipment check".? I have no idea why this is happening, and the Sequoia hypothesis (or Sonoma) is the only one reasonable; plus, I am very naughty, and the printer files are actually on a Google Drive.
?
All the best
?
Marco
?
?
--
Marco Antoniotti
Somewhere over the rainbow
Re: Back to old problems: printers not draining.

 

On Sat, Mar 8, 2025 at 06:12 AM, Marco Antoniotti wrote:
How and where can I modify the startup procedure to ensure that the printers are started up?
The startup procedure is SYS1.PARMLIB(STARTSTD) but I think your problem is not there. As Jeff mentioned, your printers ARE started but you get an equipment check (message IEA000I) on the printers. If the print files were absent or the forms were to be confirmed, you would get INT REQ (intervention required) instead of EQC (equipment check). Could it be that the problem (somehow) comes from running the Hercules executable of TK4- on macOS Sequoia? I know it works fine on my Mac running Ventura.
?
Cheers,
?
Rene FERLAND, Montreal
Re: Back to old problems: printers not draining.

 

On 08/03/2025 14:12, Marco Antoniotti via groups.io wrote:
Than you for your reply.

First of all, I have the proper files (`prt/prt002.txt` and `prt/prt00e.txt`) in place.
I understand the mechanics of starting the printers, however, I must ask how come TK4- does not start the printers itself.
How and where can I modify the startup procedure to ensure that the printers are started up?
Thanks
Are you using the standard scripts to start the TK4 / 5 system ?

Here the printer spools are started as standard.

Need to point out that I have modified the ctl file to support translation to .pdf files as music paper.

Vince
Re: Back to old problems: printers not draining.

 

Than you for your reply.

First of all, I have the proper files (`prt/prt002.txt` and `prt/prt00e.txt`) in place.
?
I understand the mechanics of starting the printers, however, I must ask how come TK4- does not start the printers itself.
?
How and where can I modify the startup procedure to ensure that the printers are started up?
?
Thanks
?
?
--
Marco Antoniotti
Somewhere over the rainbow
21 - 40 of 5213