** CBL.CTL(SSGHUEQU) *** L=001 --- 2016/03/03 11:10:40 (L05) * * Equates for fields required for IMS GHU of a segment by key field. * Required for SSGHU member containing IMSGHUK sub-routine. * equ ghusg ssghuequ * Input segment. equ ghusg_L 5000 * Maximum expected segment size. equ ssghuequ_end ghusg+ghusg_L * Next position in work area.