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

please god, let it work
Some checks failed
MVS Delete Members / delete-members (push) Failing after 14s
Details
MVS Submit & Execute / upload-and-run (push) Failing after 49s
Details

Browse Source
This commit is contained in:
Greg Gauthier 2026-02-08 16:21:15 +00:00
parent e14f9f9db0
commit ef09918b95
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
jcl/TXTWKR01.jcl
View File

@ -3,3 +3,4 @@
//STEP1 EXEC GCCCG,INFILE='@05054.SRCLIB.C(TXTWKR01)' //STEP1 EXEC GCCCG,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) // DCB=(RECFM=FB,LRECL=80,BLKSIZE=0,DSORG=PS)

3
src/TXTWKR01.c
View File

@ -6,6 +6,7 @@
int main(void) int main(void)
{ {
int i; /* for loop counter */
FILE *fp; FILE *fp;
char lines[MAX_LINES][LINE_LEN]; char lines[MAX_LINES][LINE_LEN];
int count = 0; int count = 0;
@ -34,7 +35,7 @@ int main(void)
return 1; return 1;
} }
for (int i = 0; i < count; i++) { for (i = 0; i < count; i++) {
fputs(lines[i], fp); fputs(lines[i], fp);
} }
fputs("Appended from C program!\n", fp); fputs("Appended from C program!\n", fp);