Keyboard Shortcuts
ctrl + shift + ? :
Show all keyboard shortcuts
ctrl + g :
Navigate to a group
ctrl + shift + f :
Find
ctrl + / :
Quick actions
esc to dismiss
Likes
Search
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
?
? |
开云体育On 04/04/2025 14:28, Alain Parent via
groups.io wrote:
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. ? |
|
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:
|
|
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 ? |
|
I found this program to be interesting. Maybe you already have solved this problem. Just a couple of hints. There are many more experienced MVT Cobol programmers here. This is something I learned from Jay Moseleys programs and from Rene Ferland.? CONFIGURATION SECTION.? ? ? ? ? ?? ?SOURCE-COMPUTER.? IBM-360.? ? ? ?? ?OBJECT-COMPUTER.? IBM-360.? ? ? ?? ?SPECIAL-NAMES.? ? ? ? ? ? ? ? ? ?? ? ? ?CONSOLE IS CNSL.? ? ? ? ? ? ?? *? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ?INPUT-OUTPUT SECTION.? ? ? ? ? ? ? ?FILE-CONTROL.? ? ? ? ? ? ? ? ? ? ? *? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ? ? SELECT I-FICHIER-AUTEURS? ? ? ? ? ? ASSIGN TO UT-S-AUTEURS.? ? ?? *? ? ?STATUS IND-I-CODE-LECTURE.? ?(commented out) ?DATA DIVISION.? ? ? ? ? ? ? ? ? ?? *? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ?FILE SECTION.? ? ? ? ? ? ? ? ? ? ? *? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ?FD? I-FICHIER-AUTEURS? ? ? ? ? ? ? ? ? ?RECORDING MODE IS F? ? ? ? ? ? ? ? ?LABEL RECORDS ARE STANDARD? ?? ? ? ?RECORD CONTAINS 80 CHARACTERS? ? ? ?BLOCK CONTAINS 0 RECORDS? ? ?? ? ? ?DATA RECORD IS I-FICHE-AUTEUR. *? ? RECORDING F? ? ? ? ? ? ? ? ? ? *? ? LABEL RECORD IS STANDARD.? ? ? ?01? I-FICHE-AUTEUR PIC X(80).? ? ?(80 chars to be able read inn from jcl and proc COBUCG <rest of your source> /* //*--------------------------------------------------------------? ? //*? ? ? ? JCL FOR USE WITH COBUCG PROCEDURE? ? //*? ? ? (your test records can be read in here)? ? ? ? ? ? ? ? ? ?? //*--------------------------------------------------------------? ? //COB.SYSLIB DD DSNAME=SYS1.COBLIB,DISP=SHR? ? ? ? ? ? ? ? ? ? ? ? ? //GO.SYSOUT? DD SYSOUT=*,DCB=(RECFM=FBA,LRECL=161,BLKSIZE=16100)? ?? //*GO.AUTEURS DD DSNAME='HERC01.AUTEURS',DISP=SHR? ? ? ? ? ? ? ? ? ? //GO.AUTEURS DD *? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 001ZWEIG? ? ? ?STEFAN? ? ? ? ? ? ? ? ?1881? ? ? ?1942AUTR 0000100? ? 002ZWEIG? ? ? ?STEFAN? ? ? ? ? ? ? ? ?1881? ? ? ?1985AUTR 0000200? ? 003HAMMAR? ? ? DAGFINN D.? ? ? ? ? ? ?1881? ? ? ?1972AUTR 0000300? ? /*? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? //*----------------------------------------------------------------- If you want to assemble and link to loadlib: Use Proc COBUCL + jcl and: <your source> /*? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? //LKED.SYSLMOD DD DISP=SHR,DSN=HERC01.TEST.LOADLIB? ? ? ? ? ? ? ?? //LKED.SYSIN DD *? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? NAME AUTEURS(R)? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? /* If you want to run the program, include your loadlib as shown in the following jcl step: ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? //*-------------------------------------------------------------?? //*? THE FOLLOWING STEP RUNS THE NEWLY COMPILED/LINKED MODULE? ? ? //*-------------------------------------------------------------?? //AUTHEURS EXEC PGM=AUTEURS,COND=(4,LT)? ? ? ? ? ? ? ? ? ? ? ? ? ? //STEPLIB? DD? ?DSN=HERC01.TEST.LOADLIB,DISP=SHR? ? ? ? ? ? ? ? ?? //SYSOUT? ?DD? ?SYSOUT=*,DCB=(RECFM=FBA,LRECL=161,BLKSIZE=16100)?? //SYSUDUMP DD? ?SYSOUT=*? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? //GO.AUTEURS DD *? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 001ZWEIG? ? ? ?STEFAN? ? ? ? ? ? ? ? ?1881? ? ? ?1942AUTR 0000100? 002ZWEIG? ? ? ?STEFAN? ? ? ? ? ? ? ? ?1881? ? ? ?1985AUTR 0000200? 003HAMMAR? ? ? DAGFINN D.? ? ? ? ? ? ?1972? ? ? ? ? ?AUTR 0000300? /*? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? //*--------------------------------------------------------------? Kind regards Dagfinn On Fri, 4 Apr 2025 at 19:19, Alain Parent via <para1107=[email protected]> wrote:
|
M Verpelli
Rob Prins
to navigate to use esc to dismiss