gmgauthier/tk5-c90-projects
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

just trying to read a goddamned file
Some checks failed
MVS Delete Members / delete-members (push) Failing after 14s
Details
MVS Submit & Execute / upload-and-run (push) Failing after 52s
Details

Browse Source
This commit is contained in:
Greg Gauthier 2026-02-08 15:53:22 +00:00
parent ed41b95105
commit da147cd839
2 changed files with 8 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
jcl/TXTWKR01.jcl
View File

@ -2,4 +2,5 @@
// NOTIFY=@05054,CLASS=A,MSGCLASS=H,
// MSGLEVEL=(1,1),REGION=4M,TIME=1440
//STEP1 EXEC JCCCLG,INFILE='@05054.SRCLIB.C(TXTWKR01)'
//GO.TESTDD DD DSN=@05054.DATA(TESTMEM),DISP=SHR
//GO.TESTDD DD DSN=@05054.DATA(TESTMEM),DISP=SHR,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=0,DSORG=PS)

18
src/TXTWKR01.c
View File

@ -2,21 +2,15 @@
int main()
{
FILE *fp;
char buf[256];
printf("Starting program - attempting fopen(dd:TESTDD, \"r\")\n");
fp = fopen("dd:TESTDD", "r");
FILE *fp = fopen("dd:TESTDD", "r");
if (fp == NULL) {
printf((char *)"fopen read failed\n");
printf("fopen returned NULL\n");
perror("fopen error");
return 1;
}
printf((char *)"Existing content:\n");
while (fgets(buf, 256, fp) != NULL) {
printf((char *)"%s", buf);
}
fclose(fp);
printf((char *)"Read complete.\n");
return 0;
printf("fopen succeeded!\n");
/* rest unchanged */
}