Skip to content

Commit 2232e6b

Browse files
committed
Some more mis-used datatypes - CSECT is a string not a number
1 parent 6ed35e2 commit 2232e6b

File tree

2 files changed

+6
-2
lines changed

2 files changed

+6
-2
lines changed

src/printQSGM.c

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -25,7 +25,7 @@ void printQSGM(qsgm *p)
2525
ADDS32( "Length_Min" ,p->qsgmlvmin);
2626
ADDS32( "Requests" ,p->qsgmcount);
2727
ADDBYTE("Storage_Class",p->qsgmscls);
28-
ADDU64( "CSECT" ,p->qsgmcsect);
28+
ADDSTREN( "CSECT" ,(char *)&p->qsgmcsect,8);
2929
ADDS32( "CSECT_Offset",p->qsgmoffset);
3030

3131
SMFPRINTSTOP;

src/printQSPH.c

Lines changed: 5 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -25,7 +25,11 @@ void printQSPH(qsph *p)
2525
ADDU16("Record_Size",p->qsphbsize);
2626
ADDU16("Records_per_Segment",p->qsphbcnt );
2727
ADDU32("PHB_Count",p->qsphcount);
28-
ADDU64("Dataspace_Name",p->qsphdspnm);
28+
if (p->qsphflags & QSPHDSPC) {
29+
ADDSTREN("Dataspace_Name",(char *)&p->qsphdspnm,8);
30+
} else {
31+
ADDSTR("Dataspace_Name"," ",8);
32+
}
2933
ADDSTREN("Name",p->qsphname,48);
3034

3135
ADDSTR("Attr_Fixed", ((p->qsphflags & QSPHFIXED)?"Yes":"No"),3);

0 commit comments

Comments
 (0)