cd ercs08:f77rel
parm noarray,nocheck,xref
imp ercs08:f77rel.Srce200_XCONTRl8,.null,:l1
imp ercs08:f77rel.Srce200_FALLOC3a,.null,:l2
imp ercs08:f77rel.Srce200_FANAL4a,.null,:l3
imp ercs08:f77rel.Srce200_FARITH1,.null,:l4
imp ercs08:f77rel.Srce200_FCINNUM2a,.null,:l5
imp ercs08:f77rel.Srce200_fcode3,.null,:l6
imp ercs08:f77rel.Srce200_FDATA3,.null,:l7
imp ercs08:f77rel.Srce200_FEND4,.null,:l8
imp ercs08:f77rel.Srce200_FGEN3,.null,:l9
imp ercs08:f77rel.Srce200_FINPUT3a,.null,:l10
imp ercs08:f77rel.Srce200_FMAP1,.null,:l11
imp ercs08:f77rel.Srce200_FMESS2,.null,:l12
imp ercs08:f77rel.Srce200_F1OPT1,.null,:l13
imp ercs08:f77rel.srce200_f2opt1,.null,:l14
imp ercs08:f77rel.srce200_f3opt2,.null,:l15
imp ercs08:f77rel.srce200_f4opt1a,.null,:l16
imp ercs08:f77rel.srce200_f5opt1,.null,:l17
imp ercs08:f77rel.srce200_fcelim1,.null,:l18
imp ercs08:f77rel.srce200_feelim1,.null,:l19
imp ercs08:f77rel.srce200_foplist1,.null,:l20
imp ercs08:f77rel.srce200_foptctl2,.null,:l21
imp ercs08:f77rel.srce200_fsred1,.null,:l22
imp ercs08:f77rel.Srce200_FREAL1b,.null,:l23
imp ercs08:f77rel.Srce200_Froot1l,.null,:l24
imp ercs08:f77rel.Srce200_FTRIADS1,.null,:l25
imp ercs08:f77rel.Srce200_FFPTOS1a,.null,:l26
imp ercs08:f77rel.Srce200_FCFMT1a,.null,:l27
usegroup
concat
l1
l2
l3
l4
l5
l6
l7
l8
l9
l10
l11
l12
l13
l14
l15
l16
l17
l18
l19
l20
l21
l22
l23
l24
l25
l26
l27
.end
lfullfort
destroy l1,l2,l3,l4,l5,l6,l7,l8,l9
destroy l10,l11,l12
destroy l13,l14,l15,l16,l17,l18
destroy l19,l20,l21,l22,l23,l24,l25,l26,l27
cherish lfullfort