Comparing files ap7071.dbl_GS2015 and AP7071.DBL_GS2017
***** ap7071.dbl_GS2015
;==Changes==============================================================;
; 09/16/2014 lso - Adj for new 2014 form changes, expand Zip
***** AP7071.DBL_GS2017
;==Changes==============================================================;
; 01/01/2017 WSC - Add logic to print 1 form per sheet
; 01/01/2017 lso - Adj for major placement changes for 2016 reporting
; 01/09/2015 lso - Adj for 2014 changes
; 09/16/2014 lso - Adj for new 2014 form changes, expand Zip
*****

***** ap7071.dbl_GS2015
record ,X
        prt_payid       ,a11    @5
record  ,X
***** AP7071.DBL_GS2017
record ,X
        prt_payid       ,a11    @6
record  ,X
*****

***** ap7071.dbl_GS2015
record ,X
        prt_box1        ,a2     @5
        prt_box2        ,a11    @7
        prt_box5        ,a7     @22
        prt_box6        ,a2     @27
        prt_box7        ,a12    @50
        
***** AP7071.DBL_GS2017
record ,X
        prt_box1        ,a2     @4
        prt_box2        ,a11    @6
        prt_box5        ,a7     @21
        prt_box6        ,a2     @27
        prt_box7        ,a12    @12
        
*****

***** ap7071.dbl_GS2015
          begin
            case form_no of
              begincase
              0: begin                  ; Top
                  call print_form
                  incr form_no
                  for ndx from 1 thru 4 call print      ; 30-34   Adj for laser
                 end
              1: begin                  ; Bottom
                  call print_form
                  lp_cnt = 98                           
                  xcall print
                  clear form_no
                 end
              endcase
          end
***** AP7071.DBL_GS2017
          begin
            call print_form
            lp_cnt = 98                         
            xcall print
            clear form_no
          end
*****

***** ap7071.dbl_GS2015
print_form,
        for ndx from 1 thru 5 call print                ; lines 1-4    adj for laser; dec 14 3 to 5
;      prt_box5 = ap1_fbox5, mask5
;       prt_box7 = ap1_fbox7, mask
        prt_box6 = ap1_fbox6
;       call print
        call print
        prt_box1 = ap1_fbox1
***** AP7071.DBL_GS2017
print_form,
; for 2016 vs 2015, GS fields used only changes: Box 7 is now 7a | 13d is now 13a | Moved several fields 
; also, Forms went to 1 per sheet. Below area commented out lines from years past removed for clarily.  - LSO 

        for ndx from 1 thru 4 call print                ; lines 1-4    adj for laser; dec 14 3 to 5
        prt_box6 = ap1_fbox6
        call print                                      ; line 5
        prt_box1 = ap1_fbox1
*****

***** ap7071.dbl_GS2015
        prt_box2 = ap1_fbox2, mask
;       prt_box6 = ap1_fbox6
        prt_box5 = ap1_fbox5, mask5
        prt_box7 = ap1_fbox7, mask
        call print                                      ; line 8
        for ndx from 1 thru 3 call print                ; lines 7-9

;       prt_payid = ut_cmfid
        prt_payid = ut_cmfid                            ; line 10 -
;        for ndx from 1 thru 2 call print                ; lines 11-12
        call print                                      

        prt_name = ut_cmname
        call print                                      ; line 13
        call print                                      ; line 14
        call print                                      ; line 13
        call print                                      ; line 14
        call print                                      ; line 14
        call print                                      ; line 14

***** AP7071.DBL_GS2017
        prt_box2 = ap1_fbox2, mask
        prt_box5 = ap1_fbox5, mask5
;       prt_box7 = ap1_fbox7, mask                      ; moved in 2016

        for ndx from 1 thru 3 call print                ; lines 6-8
;       prt_payid = ut_cmfid                            ; moved in 2016
        prt_box7 = ap1_fbox7, mask                      ; moved in 2016
        for ndx from 1 thru 6 call print                ; lines 9-14

        prt_payid = ut_cmfid                            ; moved in 2016
        call print                                      ; line 15
        prt_name = ut_cmname
        call print                                      ; line 16
        call print                                      ; line 17
        call print                                      ; line 18
        call print                                      ; line 19
        call print                                      ; line 20
        call print                                      ; line 21

*****

***** ap7071.dbl_GS2015
        prt_addr = ut_cmadd1
        call print                                      ; line 15
        call print                                      ; line 16

***** AP7071.DBL_GS2017
        prt_addr = ut_cmadd1
        call print                                      ; line 22
        call print                                      ; line 23

*****

***** ap7071.dbl_GS2015
        prt_addr = ut_cmadd2
        call print                                      ; line 17
        call print                                      ; line 18

        prt_addr = ut_cmadd3
        call print                                      ; line 19
        call print
        call print

;        for ndx from 1 thru 3 call print                ; lines 20-22

***** AP7071.DBL_GS2017
        prt_addr = ut_cmadd2
        call print                                      ; line 24
        call print                                      ; line 25

;       prt_addr = ut_cmadd3                            ; No such field ut_cmadd3 Control in DTE

*****

***** ap7071.dbl_GS2015
        prt_addr = nam_name
        call print                                      ; line 23
        call print                                      ; line 24

***** AP7071.DBL_GS2017
        prt_addr = nam_name
        call print                                      ; line 26
        Call print                                      ; line 27

*****

***** ap7071.dbl_GS2015
        prt_Addr = nam_addr1
        call print                                      ; line 25   ;Dec 14
        call print                                      ; line 26

;       prt_addr = nam_addr2
;        call print                                      ; line 27  
;        call print                                      ; line 28

***** AP7071.DBL_GS2017
        prt_Addr = nam_addr1
        call print                                      ; line 28

        prt_addr = nam_addr2
         call print                                     ; line 29  

*****

***** ap7071.dbl_GS2015
        prt_zip = nam_zip
        call print                                      ; line 29
 
***** AP7071.DBL_GS2017
        prt_zip = nam_zip
        call print                                      ; line 30
 
*****

