diff --git a/jcl/TXTWKR01.jcl b/jcl/TXTWKR01.jcl
index dbc788d..4f31e43 100644
--- a/jcl/TXTWKR01.jcl
+++ b/jcl/TXTWKR01.jcl
@@ -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)
\ No newline at end of file
diff --git a/src/TXTWKR01.c b/src/TXTWKR01.c
index 4037096..f41e7cb 100644
--- a/src/TXTWKR01.c
+++ b/src/TXTWKR01.c
@@ -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 */
 }
\ No newline at end of file