How to change the article code in the DANFE generation?

How to change the article code in the DANFE generation?

Initially I have an entry point but the same does not work

$ACTION
  Case ACTION
    When "XQDESCPROD" : Gosub XQDESCPROD
  Endcase
https://www.sageReturn

$XQDESCPROD

  [L]XQCPROD = "X001"

Return