C:\to_server\website\mrdcl-learning.com\mrdcl_files\DAT-01\forcing_data.stp
start data,
serial number in columns 1-4,
card characters 1000,
!!ds $q1=$7/1-9,
!!zero $7-9,
zero $5,
!!d$6='5',
!!d$6-8='100',
!!m$7/b.4, (You will need card characters binary for this)
!!if $iobs/1,zero $6-8,
dm $qq=$7/1-9,
!!m$qq/3,
!!m$qq/b.3,
dm $rr=$8/1-9,
if $iobs/2,m$qq/n7.4.$rr/b.2.3,
!!list $qq,
list $qq.$rr,
!!list $q1,
!!list $5-10,
finish data,
