Select Code to Download

$sSQL = qq{SELECT distinct (snickname), saccountnum, dtacctcreateddate
+, (nvl(dtacctenableddate,to_date('01-jan-1900')))-(nvl(dtacctdisabled
+date,to_date('01-jan-1900'))) as disableddiff, laccountid, sacctdisab
+led
FROM $gsAccountTable 
WHERE SAPP = '$gsApp' AND SOWNERID = '$sOwnerID' and DTACCTCREATEDDATE
+ IS not NULL and SACCTDISABLED <> 'DELETED'
ORDER BY SACCTDISABLED};

while ($sRow = $sCursor->fetchrow_hashref) {
    $iCount++;
    $gsaInput{'LACCOUNTID'.$iCount} = $sRow->{LACCOUNTID};
...
    $gsaInput{'SACCTDISABLED'.$iCount} = $sRow->{DISABLEDDIFF};
    &TestLog ("Assigning $sRow->{DISABLEDDIFF} to $iCount.");
}

$sSQL = qq{SELECT distinct (snickname), saccountnum, dtacctcreateddate
+, dtacctenableddate-dtacctdisableddate as disableddiff, laccountid, s
+acctdisabled
FROM $gsAccountTable 
WHERE SAPP = '$gsApp' AND SOWNERID = '$sOwnerID' and DTACCTCREATEDDATE
+ IS not NULL and SACCTDISABLED <> 'DELETED'
ORDER BY SACCTDISABLED};