Macro: OLD_OPEN

Module location: FMACDD line 7033 (view source)

  #IFSAME !2 AS
    DECLARE_DATAFILE !3
    #CHECK !3 _TR
    #CHECK !1 _#LG
    #CHECK !5 .
    #CHECK !3.RECNUM _URW#LG
    #IF (!0>3)
      #CHECK !4 _DGLOBU#
      MOVEINT !4 TO FIELDNUMBER
      !A [] $182 !3.RECNUM !1
    #ELSE
      MOVEINT |CI0 TO FIELDNUMBER
      !A [] $182 !3.RECNUM !1
    #ENDIF
  #ELSE
    #CHECK !3 .
    DECLARE_DATAFILE !1
    #CHECK !1.RECNUM _URW#LG
    #IF (!0>1)
      #CHECK !2 FWSNDELG#U
      !A [] $180 !1.RECNUM !2
    #ELSE
      !A [] $180 !1.RECNUM |CI0
    #ENDIF
  #ENDIF