dcltrans
  transaction TInit
  begin
    FileCSVLoadGlobal(hExportOut1, "exportOut.csv", ",");
    // Insert here the initial statements
  end TInit;

  transaction GR_CREATE_REG
  begin
    // listType=psExportOutColumn33;
    FileGetRndRow(hExportOut1);
    psExportOutColumn12 := FileGetCol(hExportOut1, 3, STRING_COMPLETE);
    psExportOutColumn13 := FileGetCol(hExportOut1, 2, STRING_COMPLETE);
    WebHeaderAdd("Content-Type","application/json");
    WebHeaderAdd("user_account_id", psExportOutColumn12);
    WebHeaderAdd("WM_TENANT_ID","0");
    WebHeaderAdd("WM_CONSUMER.ID","1232");
    WebHeaderAdd("WM_QOS.CORRELATION_ID","ldf");
    WebHeaderAdd("WM_CONSUMER.IP", "1.1.1.1");
    WebHeaderAdd("WM_CONSUMER.INTIMESTAMP","3334");
    WebHeaderAdd("WM_SVC.VERSION","23");
    WebHeaderAdd("WM_SVC.NAME","name");
    WebHeaderAdd("WM_VERTICAL_ID","0");
    WebHeaderAdd("WM_LOCALE_ID","en_US");
    WebHeaderAdd("Accept","application/json");

    // strcmp("listType","2");

    //FileGetRndRow(hExportOut1);
    psExportOutColumn11 := FileGetCol(hExportOut1, 1, STRING_COMPLETE);
    if ( strcomp(psExportOutColumn13,"2" ) == 0)
    WebPageCustomRequest("GET",
      "http://listapp.pqa.services.prod.walmart.com/list-service/lists/BR/" + psExportOutColumn11  + "?response_groups=LIST.DETAILS_FULL");
    //else if ( listType == "4" )
    /*
     WebPageCustomRequest("GET",
      "http://listapp.pqa.services.prod.walmart.com/list-service/lists/WL/" + "552c00e1-b0db-4ce2-b335-7cc85f82bce5" + "?response_groups=LIST.DETAILS_FULL");
    */
  end GR_CREATE_REG;

  transaction TEnd
  begin
    // Terminate the user

    FileUnload(hExportOut1);

  end TEnd;