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, // NOTIFY=@05054,CLASS=A,MSGCLASS=H,
// MSGLEVEL=(1,1),REGION=4M,TIME=1440 // MSGLEVEL=(1,1),REGION=4M,TIME=1440
//STEP1 EXEC JCCCLG,INFILE='@05054.SRCLIB.C(TXTWKR01)' //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() int main()
{ {
FILE *fp; printf("Starting program - attempting fopen(dd:TESTDD, \"r\")\n");
char buf[256];
fp = fopen("dd:TESTDD", "r"); FILE *fp = fopen("dd:TESTDD", "r");
if (fp == NULL) { if (fp == NULL) {
printf((char *)"fopen read failed\n"); printf("fopen returned NULL\n");
perror("fopen error");
return 1; return 1;
} }
printf((char *)"Existing content:\n"); printf("fopen succeeded!\n");
while (fgets(buf, 256, fp) != NULL) { /* rest unchanged */
printf((char *)"%s", buf);
}
fclose(fp);
printf((char *)"Read complete.\n");
return 0;
} }