开云体育

Hi: On my work I saw several "old" cobol programs for which there's a SYSIN card with DD DSN=SOME.FILE Then that DSN contains current date, and COBOL performs ACCEPT FROM SYSIN. Maybe this was done

Hi guys. I'm missing something again regarding our beloved MVT COBOL F compiler.. this time, I'm trying to get the system date and or time, but I'm missing miserably. I've looked for the right syntax

Try adding UNIQUE to the cluster definition.? Also, move the space allocations to the data and index components. ? like this: DEFINE

Delete is fine. MVS 3.8 uses CVOL and VSAM catalogs. You may not have the needed catalog defined. UNIQUE is required to get space outside a

No, even if you remove the delete statement you will still get an error! Without am user catalog and data space defined on the new volume you will go nowhere Marco

Comment out or remove the Delete statement and rerun.? It is giving an error because the file does not exist. regards; Rahim ??

Hi guys, I am trying to allocate a VSAM file, this is the jcl : //HERC02CP JOB (IDCAMS),'PERFORM IDCAMS? ',CLASS=A,NOTIFY=&SYSUID, //????????????

Alejandro, While not EXACTLY appropriate for your situation – I am glad to see you solved your issue and got the output you were looking for. Please understand the DISPOSITION parm in JCL – NEW

Surprisingly, once I realized that I could simply let the destination file opened (from the execution of sort input procedure) and close it at the end of the sort output procedure, the program did

Dear Alejandro, If I recall correctly, COBOL programs with SORT inside are in fact a SORT main program with COBOL routines inside that do not read or write directly to the input or output files, and

Hi Alejandro, Don't close the file, continue to write in I found your logic just complicated René

Thank you all guys for the points. The thing is that, the code I was playing with, uses SORT together with its input and output procedures (nice feature!). The goal was to let an input dataset full

No - there is no EXTEND mode - too early. Can I suggest that you use ISAM mode instead for this file if needed create a simple key if there is no field that you can use say starting with 1. Then

Alex, John has already answered your question. I have a Feingold text from that era that clearly states EXTEND is valid for OPEN, but obviously this compiler has not read the Feingold text. I have

Alejandro: Try this. To add new records to the end of a file that already exists, you must: * Open the file OUTPUT, * Then in your JCL, the DD statement for the file needs to have

Hi folks. So I'm trying to append records to an existing dataset with COBOL... wich should be quite straight forward: OPEN EXTEND MY-FILE But it seems the compiler does not support that opening

Hi Dagfinn, In TK4, ZP60038 is probably not applied. Please consider to migrate to MVS-TK5. https://www.prince-webdesign.nl/tk5 Here is the user's guide with the migration

Hi I am trying to implement GETDTE on my TK4 UPD 8 system. I get an error in JOB4 in the installation process. I suspect this is related to missing usermods. Where are the usermod library

Hello Fish, Am 26.02.2024 um 19:25 schrieb Fish Fish <david.b.trout@...>: Yes, because I've not seen any adverse effects. In contrast, sending a SIGTERM to Hercules does leave the disk files

Hello Chris, Am 26.02.2024 um 11:15 schrieb cjar1950 via groups.io <cjar1950@...>: OS/390. :wq! PoC