Product Enhancement and Maintenance Log

1. V7R3 PTF - SI76400 (APRIL 2022)
2. V7R4 PTF - SI76775 (JULY 2021)
3. V7R4 PTF - SI76779 (JULY 2021)

• V7R2M0 - SI73105 5770SS1
• V7R3M0 - SI73104 5770SS1
• V7R4M0 - SI73103 5770SS1

#JSON_NAMING  FIELD | COLHDG | ALIAS 

eval &part = 'FIL' + '12345' 

 PRINT BEFORE(1, *DATE, Special Data);

RUNiQRY  ...  EXTRA('1,REG4SALES,*DATE')

• Growing set of RTVxxxxx UDTFs that provide easy access to data normally available only from CL Commands or APIs.
  • RTVCMDD
  • RTVJOBA
  • RTVJOBD
  • RTVLASTSPL
  • RTVLIBD
  • RTVMBRD
  • RTVMSGD
  • RTVNETA
  • RTVOBJD
  • RTVOBJLCK
  • RTVRCDFMT
  • RTVSPLFA
  • RTVUSRPRF
• SQL iQuery Call Level Interface (CLI API)
  • iqINIT - Initialize the SQL iQuery Environment
  • iqSCRIPT - Run an SQL iQuery Script
  • iqRUNSQL - Run a dynamic SQL statment using iQuery
  • iqSETVAR - Set the value of a Session Variable
  • iqGETVAR - Get the value of a Session Variable
  • iqDMPVARS - Dump the current Session Variables' values
  • iqCLOSE - Close the SQL iQuery Session/Environment

if (&FULL = '1'); 
  return select * from qiws.qcustcdt;
 else;
  return select cusno,baldue from qiws.qcustcdt;
 endif;

• ENTSIZE is now named DATA_SIZE
• ENTFULLNAME is now named PATH_NAME

    /include iQuery/qcpysrc,iQueryAFP  
 openAFP('USRDTA(invoice)');  // Override the USRDTA and Open the AFP file. 
 drawFrame();    // Draw a frame (1-pt line) around the page border 
 drawImg('/home/images/logo.jpg' : 1 : 0.75 : 3.5 : 1.5); // Print Company Logo 
 drawRect(0.75 : 0.50 : 4 : 2);  // Draw a rectange around the logo w/0.25 spacing
 drawText(1.25 : 2.50 : 'The Company Name' : 12); // Print CompName 12pt font 
 closeAFP();  // Close the AFP Print file. 

• FindMbr - Find source members
• FindObj - Find objects
• FindFld - Find Field where used
• FindLib - Find Libraries
• InvalidPWD - List Invalid Signon Attempt from QAUDIT
• CHGTODAY - List Object that were changed today
• MYJOBS - List all jobs on system for the User
• ACTGRP - List activation Groups for the job
• SPLF - List all of the SPOOL files create by the user
• SIGNON - List a user's SIGNON/SIGNOFF (job start end) History messages

connect to MYPT2;

IF exists (select * from chicago.orderlib.sales where nesales > 10000);

eval &arr[1] = 'A'; 
eval &arr[2] = 'B';
eval &arr[3] = 'C';

 eval &codes = arrstg(&arr);

eval &code2 = arrStg(&arr,',');

eval &code3 = arrStg(&arr,3);

#define &amount = 1200.50 
 eval &amtX = edit(&amount, 'J$');
 eval &amtY = edit(&amount, '$ ,  0,   .  -'); 

RUNiQRY *INSTALL

runiqry 'iquery/qiqmacro(demo)'

runiqry srcfile(iquery/qiqmacro) srcmbr(demo)

RUNiQRY 'SELECT STATE,BALDUE FROM QIWS.QCUSTCDT' OUTPUT(*CHART)

• DSPWIN - Create a Prompt Window
• DSPVAR - Define a field in the Prompt Window
  • DSPFLD - synonym for DSPVAR
  • DSPFIELD - synonym for DSPVAR
• DSPTEXT - Add text to the Prompt Window
• DSPERR - Write text to the error message line in the window
• EXFMT - Send/Receive Prompt Window

• DSPWIN - Create a Prompt Window
• DSPFIELD - Add a field to a Prompt Window
• DSPFLD - synonym for DSPFIELD
• DSPTEXT - Add text to the Prompt Window
• EXFMT - Send/Receive Prompt Window

DSPWIN "Customer Prompt";

• Dynamically Created Prompts
• CLOB Support in iQuery Script
• Custom-Output add-on
  • New ACS Output Options via OUTPUT(*ACSxxxx)
  • All ACS output options are supported, including:
    • XLS, XLSX, CSV, ODS, and TXT
• Misc enhancements and bug fixes

 SetEnv iq_PRODLIB IQUERY
 SetEnv iq_CURLIB MYDATA

DLTLICPGM 2COZIQ5

#md /home/cozzi/myNewFolder

select * from table(iQuery.RTVLIBD('QGPL')) ld;'

call iQuery.PrintPDF('/home/cozzi/hello.pdf');

1. PDF File Name on the IFS
2. Output Queue name or *JOB Default=*JOB (outq may be qualified)
3. HOLD - *YES | *NO Default=*NO
4. SAVE - *YES | *NO Default=*NO
5. COPIES - 1 to system-limit Default = 1

 select iquery.printpdf( entFullName, 'LASERJET' ) from table(iquery.ifsdir('/home/cozzi/*.pdf')

mail.smtp.local=[your local email domain (optional)] 
 mail.smtp.host=smtpout.secureserver.net            
 mail.smtp.from=My Name<myEmail@whatever.com>   
 mail.smtp.user=[your-userID-here]               
 mail.smtp.pwd=[your-password-here] 

mail.smtp.local=mymailrelay.com         
 mail.smtp.host=smtpout.secureserver.net   
 mail.smtp.from=Bob Cozzi<bob@Pizza.com>   
 mail.smtp.user=bob@pizza.com              
 mail.smtp.pwd=rosebud                     

mail.smtp.user=[your gmail email address here]      
 mail.smtp.pwd=[your gmail email password here]      
 mail.smtp.local=[your local ISP email relay domain here] 
 mail.smtp.host=smtp.gmail.com                       
 mail.smtp.port=465    

 values convert_date('180901','ymd') -> Date('2018-09-01') 

1. iqLoadSQL - Load SQL from an SQL iQuery Script
2. iqSetVar - Set an SQL iQuery Script Session Variable Value
3. iqGetVar - Get an SQL iQuery Script Session Variable Value
4. iqClearVars - Clear all existing SQL iQuery Script Session Variables
5. iqDumpVars - Write the names and values of each Session Varaible to the joblog
6. iqSetVarInt - Set an SQL iQuery Script Session Variable using an Integer
7. iqSetVarDec - Set an SQL iQuery Script Session Variable using Decimal
8. iqServerMode - Set up SQL iQuery to run using SQL Server Mode

 #default &Phone = '(630) 907-HELP';
 #default &alpha  = toupper('abc def ghi jkl mno pqrs tuv wxyz'); 
 #default &digits = '222 333 444 555 666 7777 888 9999'
 eval &phone = xlate(&alpha, &digits, &phone);

exec sql VALUES chkObjExists('QIWS','QCUSTCDT') INTO :exits;

IF EXISTS <library>/dbTable(member) *MBR;

IF EXISTS <library>/dbTable,member *MBR;

• #BUILTINS ON
• #SYMBOLS ON
• #LOGCL OFF

 select * from table( iQuery.rtvcmdd('COZTOOLS','RTVDATE') ) cd';

CL: CPYF ...;

runiqry 'select * from chicago.iquery.cachebattery' 

runiqry 'select * from iquery.cachebattery' RDB(chicago) pwd(rosebud)

1. Accounting
2. Hidden

excel column(4,numformat,accounting);

#DBLSPACE true;

print after(3,style(bold,right, underline, fontsize: 18),'Hello World');

print after(3,'Company:',span(3),'Cozzi Productions, Inc.');

IF (*OUTPUT = '*PRINT');

eval SST(&TEXT, 11,5) = 'Hello';

eval sst(&text,16,10) = 'Author';

excel colhdr(rotate,45);

• SEV - The Message Severity to include (>=)
  • The Special Value *ALL may be used to indicate all severity levels
  • 0 to 99 are the available severity levels
  • The default SEV level used by this macro is 10
    • This filters out sev(0) messages.
• FROM - The From Date and Time (as a TimeStamp string)
• The default for FROM is 1 day ago (24 hours earlier than now)
• TO - The TO Date and Time (as a TimeStamp string)
• The default for TO is the current timestamp

print  after(2,'Hello World');

If (&a = &b);

if ('Hello' = 12345);

if comp(&a,&b);

if ('Hello' = '12345');

if icomp(&name,'Rumpelstiltskin');

#numedit costs,sales,profit,3,6;

trimL(&variable,n);

trim(&variable [, character(s)-to-delete ] );

• for each - FOREACH
• do while - WHILE
• end do - ENDDO
• end for - ENDFOR
• end if - ENDIF
• end while - ENDWHILE
• else if - ELSEIF

 #define &count = 0  
 
 for each SELECT CUSNUM,LSTNAM,BALDUE  INTO &cust,&name,&due  
 FROM QIWS/QCUSTCDT  where baldue > 0;               
 eval &count = &count + 1;                                  
 #msg &count. &cust,&name,&due                              
 if isDDE(&cust);                                           
 #msg  The customer number has a decimal data error (DDE) 
 endif;                                                     
 if &COUNT >=5;   -- Breaks after &count = 5                
 break;                                                   
 elseif &count <=5;                                         
 #msg Good &count < 5                                     
 endif;                                                     
 
 end for;  // end for and endfor now work!! :)                
 #statusmsg All done. &count iterations.                      
 

#define &myParmData = 'Where's the Beef?'

CL: CALL pgm(pgmA) parm(&myParmData);

QRYOBJ MYLIB/*ALL WHERE('REFOBJNAME = ''COZTOOLS''')

Select * from table( datedur(current_date, '1988-06-21') ) dur

• New WHILE loop control for "Do While" capability. Also ENDWHILE.
  • #declare &arr = 'Bob Cozzi';
  • eval(a) &arr = 'Lena Cozzi';
  • eval(a) &arr = 'Harold Konie';
  • eval(a) &arr = 'Danny O'Gara';
  • eval &count = elems(&arr);
  • eval &x = 0;
  • while &x < &count;
  • eval &option = &arr[&x+1];
  • eval &x += 1;
  • #msg Arr[&x] = &option
  • endwhile;
• Session Variable Arrays are being introduced with the following characteristics:
  • Array notation uses left and right square brackets [ and ]
  • Arrays use 1's based notation.
  • To reference an array element, arr[x] may be used, where x symbolizes the array index.
  • If an array exists but no index is spefied, the so called "current" index is used.
  • The new setindex command may be used to set the "current" index similar to how Multiple Occurrance Data Structures OCCURS opcode is used.
  • No practical upper limit to array indexes.
  • Array elements are auto-allocated and released.
  • To use a Session Variable as an array, simply add the array brackets
  • All session variables are technically arrays.
  • If a session variable contains 1 value (as is normal) then:
    • eval &var = 'Bob';
    • #msg VAR=&var and VAR[1]=&var[1]
    • ...produce the same result.VAR=Bob and VAR[1]=Bob
  • To assign a value: eval &arr[3] = 'HelloWorld';
  • To retrieve an array's value: eval &myvar = &arr[3];
  • The EVAL opcode has been enhanced to support array "auto-add" feature.
    • EVAL(a) &arr = 'Hello World'
  • The "A" operation extender has been added to copy the value to the next available array element.
  • This automatically adds "Hello World" to the end of the &arr array or to the first array element if the array is undefined.
• iQuery for Web now supports multiple form field values
  • When an HTML Form contains the same field multiple times, those values are now copied to Session Variable Arrays
  • Access to CGI variables is, as always, through their session variable.
    • For example:
    • <input name="OPTION"...> is normally mapped to session variable: &OPTION
    • When the OPTION input value is replicated multiple times, it is referenced via iQuery array notation, as &OPTION[&x] for example:
      • eval &x = 0;
      • eval &count = elems(&OPTION);
      • WHILE &X < &COUNT;
      • eval &opt = &OPTION[&x+1];
      • ... do something with &OPT or the array element
      • eval &x += 1;
      • endwhile;
• New Built-in functions have been added
  • toupper() - Returns the value of its parm in all upper case
  • tolower() - Returns the value of its parm in all lower case
  • tohex() - Returns the value of its parm in hexadecimal notation

• iQuery for web is now thread-safe
• New #HTTP_CONTENTTYPE command to set CONTENT-TYPE value for the web
• New BLING command to assign Session Variable Symbol(s).
• Dataset name in JSON output can be set to *NONE to promote results one level
• JSON column/field names controls have been added
• JSON column/field attributes generation is now controllable
• iQuery for web now supports << directive to write directly to browser
• #WATCH command allows users to watch a Session variable each time it changes. The #UNWATCH or #ENDWATCH commands terminate the watch
• EVAL/CHGVAR commands are now smarter when mixing text and numbers.
• Built-in functions may now be nested as parms of other built-in functions
• Introduced several new built-in functions
  • getfile() - Read IFS text file into a Session Variable
  • firstOf() - Find first of a list of characters
  • firstNotOf() - Find first char not of list of characters
  • getcookie() - Read HTTP Cookie value
  • msgid() - Get message text using MSG ID
  • tempname()/tmpname() - Create a temporary IFS file and return its name
  • strlen()/len() - Return length of contents of Session Variable
  • isWeb() - Returns TRUE if running from the HTTP server
• Introduced several new commands
  • writestmf - Write content of Session Variable to IFS text file adding the data to the end of the file
  • savestmf - Write content of Session Variable to IFS text file, replacing any existing data in the file
  • setcookie - Create an HTTP cookie that is sent to the browser
  • coltotals - Identify the columns to be auto-totalled when creating excel, print, csv, SyLK and some other output formats
  • lvlbrk/levelbreak - Identify columns to output only when their value changes
  • cout/stdout - Send data to the standard output device
  • CL: is now a hybrid command. It allows multiple lines for the CL command, which must now be terminated with a semicolon. This is for compatibility with the way the legacy RUNSQLSTM command handles the "CL:" statement.
  • FTP - Users may now generate FTP scripts using iQuery Script as a scripting tool. See documentation for details of options and features

• #HTTP_OUTFILE - sends the file immediately
• #HTTP_OUTFILEB - sends the file just before the dataset is sent
• #HTTP_OUTFILEA - sends the file after the dataset is sent

#HTTP_OUTFILE  mylib/qhtmlsrc(errormsg)

#HTTP_OUTFILE  /www/mywebsite/docs/errormsg.html

 VALUES iquery.cvtdate('06/21/88','mdy');
 VALUES iquery.cvtdate('062188','mdy'); 

SetEnv iq_ALLOWSQL true

#httpoutfmt raw

httpout

httpout <img src="images/logos.png" width="60px" />;

stdout << 'this works like a "live" joblog.';

email to(bob@coztools.com);

email to(bob@coztools.com);
email subject('Quarterly Sales Report');
email body('Attached please find the quarterly sales report excel file.');
select * from qiws.qcustcdt;

email toName('Bob Cozzi, Jr.',bob@coztools.com);

email toName('Bob Cozzi, Jr.',bob@coztools.com);
email ccname('Mr. President',corpexec@mycorp.com');

coltotals 7,8,9;

coltotals  baldue,sales,*last;
 coltotals  amtsold,qtysold;

• excel column( column-number, attr, value );
• excel header( attr, value );
• excel totals( attr, value );

excel column(1,color, #dd0000); -- Set Column A (1st col) Text color to red
 excel totals(bgcolor, yellow); -- set the Total row background color to yellow 
 excel column(4,bgcolor, red); -- Set Column D (column 4) background color to red
 excel header(font, Arial);
excel header(fontsize,20); 

#define &company = 'Cozzi Productions, Inc.'
 #define &company = Cozzi Productions, Inc.

#eval &amount = 100.00 
 #eval &amount = 100.00 * 5

#eval &amount = '100.00 * 1.5'

FOREACH select custnbr,slsamt,state 
 INTO &cstnbr,&sales,&state
 FROM CUSTMAST WHERE STATE IN ('IL','IN');
#if (&state = 'IL')
#eval &tax = '&sales * 0.75'
#else
 #eval &tax = '&sales * 0.5'
#endif 
UPDATE CUSTMAST SET TAXAMT = &TAX  WHERE CUSTNBR = &CSTNBR; 
endfor;

UPDATE CUSTMAST SET TAXAMT = 150 * 0.75 WHERE CUSTNBR = 1027;

#eval &tax = &tax

eval &total += &sales;

eval &valA = 'Bob';
eval &valA >= 'Cozzi';
#msg VALA = &vala

#putenv iq_OUTPUT=*PRINT

putenv iq_OUTPUT=*PRINT;

1. V7R1 PTF
• SI61475 & SI61887
2. V7R2 PTF
• SI61129 & SI61155
3. V7R3 PTF
• SI62005 & SI62028

• select * from table( CSV( <ifs-file-name> [ , 1 | 0 ] ) ) c
• CSV_VAL( variable-with-CSV-data , relative-column-number )
• CSV_VAL( variable-with-CSV-data , column-name )
• CSV_INT( variable-with-CSV-data , n )
• CSV_INT( variable-with-CSV-data , column-name )
• CSV_DEC( variable-with-CSV-data , n )
• CSV_DEC( variable-with-CSV-data , column-name )
• CSV_BIGDEC( variable-with-CSV-data , n )
• CSV_BIGDEC( variable-with-CSV-data , column-name )

select csv_int( data, 1) as customer,csv_val(data,'lastname') as "Last Name", 
 csv_val(data,'state') as "State",  
 csv_dec( data, 'balancedue') as "Balance Due" 
 FROM Table( csv('/home/cozzi/qcustcdt.csv') ) c 

call iquery.rcopy('/home/cozzi/*.txt','CHICAGO','REPLACE');

#if defined(&var)

#ifdef &var

 VALUES current_date,current_time,current_user into &date, &time, &user;

• scan( pattern, data [, start])
• scani( pattern, data [, start])
The scan functions search the data for the pattern starting in the start position or from the beginning if no start position is specified. The location of the pattern is returned; if the pattern is not found then they return 0. scan is a case-sensitive scan, wherease scani is case-insensitive.

connect to chicago user COZZI using 'ROSEBUD';

CONNECT RESET

select * from chicago.mydata.customer

eval &MaxValue = 100 * &price;

crtstmf /home/cozzi/log.txt,819;

dltstmf /home/cozzi/log.txt;

eval &CSTNBR = dtaara(*LDA,11,5);

eval &DATA=usrspc(MYLIB/APIOUTPUT);

eval &DATFMT = sysval(QDATFMT);

eval &SERIAL = sysval(QSRLNBR);

eval &FEAT   = sysval(QPRCFEAT);

eval &MODEL  = sysval(QMODEL);

eval &OUTPUT = getenv('iq_SPLFNAME'); // Case senstive!

#rtvsysval &usrDateFmt = QDATFMT

eval &usrDateFmt = sysval(qdatfmt);

SELECT max(baldue), max(CDTDUE) INTO &bigDue,&bigCredit FROM QIWS/QCUSTCDT;

values current_schema into &schema;

• #datfmt - Sets the date format for date results.
• #dftrdbcol - Set the default library for unqualified names to the specified library name.

#IF sst(*SYSNAME,1,3) = 'COZ'

SELECT * from QCUSTCDT where CUSTNAME = dtaara('*LDA',51,30)

SELECT * from QCUSTCDT where custnum = dec(envvar('LAST_CUST'),5,0)

cvtdate(jobdate())

runiqry *dftpwd

 #rtvdtaara &myvar = *LDA

 SELECT custno,custname,salestotal      
 FROM quarterly.consolidatedSales     
 #if  &SORTSEQ = D                    
 #define &ORDERBY = DESC              
 #elseif  &SORTSEQ = A                
 #define &ORDERBY = ASC               
 #endif                               
 ORDER BY SALESTOTAL &ORDERBY 

dltlicpgm 2cozqf2 
 rstlicpgm 2cozqf2 *savf savf(qgpl/cozqryf)

RUNSQLF *COZFUNC

RUNSQLF *COZXREF

• #define - define a runtime substitution variable.
• #default - define a runtime variable if it is not already defined.
• #undef - undefine (delete) a runtime substitution variable.
• #ifdef - conditional source based on a variable being defined and non-blank
• #ifndef - conditional source based on a variable NOT being defined or being blank/empty
• #if - conditional source based on a boolean comparison being true. For example: #if &qtyoh > 0
• #ifexists - conditional source based on the IBM i object existing. For example: #ifexists qtemp/myfile
• #else - else condition for #ifdef and #ifndef.
• #endif - close a #ifdef or #ifndef block.
• #chgvar or #setvar - changes a variable's value using expression syntax.
• #include - include external SQL source member.
• #joblog - write the text to the joblog.
• #error - write the text to the joblog as an escape message.
• #warning - write the text to the joblog as a warning.
• #status - send a status message to *EXT.
• #cmd - run a CL command.
• #call - call a program.
• #sql - run a non-SELECT SQL statement.
• #sqlset - run an SQL SET statement.

• setvar:myvar=value
• SETVAR - Changes the value of the variable to the value specified and sets the Match Wholeword Only flag ON.
• isetvar:myvar=value
• ISETVAR - Changes the value of the variable to the value specified. and sets the Match Wholeword Only flag OFF.
• setvardft:myvar=value
• SETVARDFT - If the variable has not already be defined either by a prior SETVAR or through the RUNSQLF SETVAR parameter, the variable value is set and the Match Wholeword Only flag ON. If the variable is already defined the statement is ignored.
• isetvardft:myvar=value
• ISETVARDFT - If the variable has not already be defined either by a prior SETVAR or through the RUNSQLF SETVAR parameter, the variable value is set and the Match Wholeword Only flag OFF. If the variable is already defined the statement is ignored.
• dltVar:myvariable
• delVar:myvariable
• DLTVAR and DELVAR - Remove the variable from memory--deleting it so it can't be used for substitutions.
• setPrefix:new-prefix
• SETPREFIX - Changes the prefix character used for substitution variables. By default the & is used however any symbol may be used. For example, some users prefer to use the colon to mimic SQL host variables, while other use the #pound symbol.

 CL:cpyf fromfile(qiws/qcustcdt) TOFILE(MYLIB/custmast) \  
 mbropt(*REPLACE) CRTFILE(*YES)                             
 H2:This is the header text 

• Appostrophes from web forms are now doubled up before being passed to SQL.
• The weblog may now be controlled from the webform using a hidden <input> tag. That tag is name="qryf_weblog" value="setting" where setting is true or false
• Substitution variables may be identified to WEBSQL using hidden fields. Specify one or more <input name="vn" type="hidden" value="CUSTNAME"> and then include the CUSTNAME as another (visible) form input tag. WEBSQL automatically retrieves the value from CUSTNAME and passes it to the query engine.

• Hn: Heading Title Line n
• HTTP_BUFFER - Sets the size of the buffer used to write to the HTTP webserver
• cmd - Specifies a CL command to run before the SQL statement is run.
• HTTP_CSS - Specifies the HTML Style Sheet to be included in the generated HTML
• URL - Specifies a URL to use when creating HTML.
• TAG - Identifies a field that is wrapped in the URL specified on the URL code

RUNSQL ... SETVAR(( CODE1 'PICKLES') (CODE11 'PEACHES') (CODE 'PUMPKIN'))

RUNSQL ... SETVAR(( CODE1 'PICKLES' *NO) (CODE11 'PEACHES' *NO) (CODE 'PUMPKIN' *YES))

• *DATE - Date in the local format.
• *DATEMDY - Date in MM/DD/YY format.
• *DATEYMD - Date in YY/MM/DD format.
• *DATEDMY - Date in DD/MM/YY format.
• *DATEISO - Date in YYYY-MM-DD format.
• *DATEUSA - Date in MM/DD/YYYY format.
• *DATEEUR - Date in DD/MM/YYYY format.
• *DATEACT - Date in ddMmmYYYY format.
• *DAY - The name of the day of the week in local format. e.g., Thursday
• *SDAY - The short name of the day of the week in local format. e.g., Thu
• *MONTH - The name of the month in local format. e.g., November
• *SMONTH - The short name of the month in local format. e.g., Nov
• *YEAR - The 4-digit year. e.g., 2015
• *LDATE - Date in words (long format). e.g., Thursday 27 November 2015

 H2:My SQL Query - System: *SYSNAME  
 H3:Customer List as of *DATE 
 SELECT * FROM QIWS.QCUSTCDT 

• *SYSNAME - System Name
• *SRLNBR - Serial Number
• *USRPRF - User Profile
• *CURLIB - Current library
• *JOB - Qualified job name
• *VRM - IBM i version as VxRyMz

 H2:My SQL Query - System: *SYSNAME  
 H3:Run by *USRPRF 
 SELECT * FROM QIWS.QCUSTCDT 

• RDB (Remote Database) System Names - 64 characters
• Field Names - 128 characters
• Table (File) Names - 128 characters

• *SYSNAME
• *SRLNBR
• *USER/*USRPRF
• *CURLIB
• *JOB
• *JOBNAME
• *JOBNBR
• *JOBUSER
• *OSVER

For example:

RUNSQLF ... SETVAR((MYCPUSRL *SRLNBR))

RUNSQLF *SALES

H2:Customer Master Regional Listing
H3:Active Customers Only

cmd:ADDLIBLE ORDERSLIB
 cl:ADDLIBLE APPDATA
 cmd:CHGCURLIB PRODDATA

SELECT MLNAME FROM TABLE(MBRLIST('QRPGLESRC','MYLIB')) ML

URL: http://www.coztools.com/qryFile

TAG: COMPNAME

SELECT compname,addr1,city,state,zipcode FROM CUSTMAST ORDER BY CSTNBR

V 1001 050 This is title line 1 of the report
V 1002 050 This is title line 2 of the report
SELECT custnum,lstnam from QIWS/QCUSTCDT

 Dec( 100* ( PROFIT / SALES ), 7,2)

 RUNSQLF SQL(SELECT A,B,C, dec( 100 * (C/B),7,2) FROM SALES') OUTPUT(*PRINT) COLTOTAL(2 3 '4=100*(&3/&2)')

StriptAlias /websql  /qsys.lib/cozqryf.lib/websql.pgm 

 action="/websql" 

select custno, char( decEdit( sum(sales), 12), 12) FROM custtable 

AUTHORIZATION ERROR:  REFER TO PTF 5722SS1 SI30132 FOR MORE INFORMATION

CRTDTAARA DTAARA(QSYS/QSQCLICON) TYPE(*CHAR) LEN(7) VALUE(*PRVCHK)