EU is a source entry utility. To enter source statements, utilize the Source Entry Utility (SEU). It enables syntax checks and prompts for various specification templates.

Start the Source Entry Utility (SEU) by using the STRSEU command. When you use the STRSEU command with the source physical file name set to QPRGLESRC, the source type is automatically set to RPGLE when the editing session for the new member begins. If not, you must specify the source type as RPGLE when creating the source member manually.
STRSEU SRCFILE(DEVELOPER/QRPGLESRC) SRCMBR(PGM1)

Using WRKMBRPDM, we can launch SEU and hit F6 to initiate the creation process.

• Use PDM’s option 2 to modify a member.
• To remove a member, take option 4 from PDM.
• To show a member’s take option 5 on PDM.
• Choose option 7 on PDM to rename the member.
• Select option 13 on the PDM against the member to modify the member’s text description and source type.

The procedure prototype (PR) is referred to by the compiler when calling the program or procedure and ensures that the caller passes the right arguments as per the defined PR.

The procedure entry parameters are declared using the procedure interface (PI).

Every parameter on the Procedure Interface (PI) should match the parameters on the Prototype (PR) w.r.t data type, size, and return value.

Declaring PR and PI in RPG Fixed format:
D ADD PR
D PARM1 10A CONST
D PARM2 3P 0 CONST

D ADD PI
D PARM1 10A CONST
D PARM2 3P 0 CONST
Declaring PR and PI in RPG fully free format:
DCL-PR ADD;
PARM1 CHAR(10) CONST;
PARM2 PACKED(3) CONST;
END-PR;

A free-form prototype specification begins with a DCL-PR statement, followed by the prototype’s name, keywords, and a semicolon.

To end the prototype, use the END-PR statement. END-PR may be included in the DCL-PR statement if 0 params.

DCL-PROC ADD;
DCL-PI *N;
PARM1 CHAR(10) CONST;
PARM2 PACKED(3) CONST;
END-PI;
END-PROC;
A free-form technique. The interface specification begins with a DCL-PI statement, followed by the procedure name (or *N if you do not wish to repeat the procedure name), keywords, and a semicolon at the end.

The END-PI command ends the prototype. If no arguments are supplied, the DCL-PI statement may include END-PI.

If no prototype is specified for a cycle-main process, the procedure interface can be named *N.

Please ensure that we use DCL-PROC and END-PROC, which are P specs-free formats in RPG AS400 because we use *N with the procedure interface name.

Data Area is an object that stores data for access by any task executing on the AS400 system. The data area allows you to store a limited amount of data. Users can restore data area objects to their consistent state by using journal data areas in case of an issue.

The data area is used to store and transfer data across jobs, including fields that are constantly modified, such as the next number, whether it be an order number, a check number, or a user number.

Create a data area object using the command CRTDTAARA. Local and group data areas cannot be created using the CRTDTAARA command. While creating a data area object, we can also initialize it with some default values.
CRTDTAARA DTAARA(TESTLIB/DTAARA1)
TYPE(*CHAR)
LEN(2000)
VALUE('INIT')
TEXT('Data area 1')

Once the data area object is created, its type is *DTAARA, and the attribute is blank. We can create different types of data areas in the as400 system, such as,

• Character (*CHAR)
• decimal (*DEC)
• logical (*LGL)
• remote data area (*DDM)

Points to remember:

• The maximum length for the decimal data area is (24,9), and the default length is (15,5).
• The character data area has a maximum length of 2000 and a default length of 32 characters.
• For the Logical data area, the maximum and default lengths are 1.
• A logical data region has a value of either ‘0’ or ‘1’, where ‘0’ represents off, false, or no, and ‘1’ represents on, true, or yes.
• The starting value can be specified when the data area is created. In case you don’t specify, the default values will be ‘0’ for the logical data area, blanks for the character, and 0 for the decimal.

We can use the following commands w.r.t the data area object.

• RTVDTAARA: It is used to fetch the data area content in a CL variable and can only be called from a CL program and can not be invoked from an RPG program or command line.
  RTVDTAARA DTAARA(TESTLIB/DTAARA1 *ALL)
RTNVAR(&VAR1)
• CHGDTAARA: It is used to change the contents of the data area object.
  CHGDTAARA DTAARA(TESTLIB/DTAARA1 *ALL)
VALUE('NEXTVALUE')
• DSPDTAARA: Use the command DSPDTAARA DTAARA(libname/DTAARA1) to view the value stored in a data area object.
• DLTDTAARA: You can use this command DLTDTAARA DTAARA(libname/DTAARA1) to delete the data area object in a specified library from the IBM I machine.

To create a CSV file in as400, we can use the command CPYTOIMPF. But, before creating a CSV file, we should at least know what a CSV file is. CSV file is a comma-separated values stream file. CSV files hold data from IBM i files, such as SQL tables or DDS physical files, which are separated by commas. CSV file data:

Name,Email,Id,Age,Address,PhoneNumber

CSV files are mostly used when we transfer data between two different systems. CSV files are supported by several spreadsheet programs, such as Microsoft Excel and Google spreadsheets. Data on IBM i support EBCDIC format and CSV files in an integrated file system (IFS) must contain ASCII data before exporting it to a Windows computer. Let’s see how to create a CSV file in as400 ifs using the CPYTOIMPF command:

First, create a physical file or SQL table.
Fill some records into the file or SQL table.

IDN NAME ADDR1 ADDR2 
4 NAME4 ADDRESS4 "PART2 
4 NAME4 ADDRESS4 "PART2 
4 NAME4 ADDRESS4 "PART2 

Run command CPYTOIMPF from the command line to copy data from the file and stream the file in ifs.

CPYTOIMPF FROMFILE(TESTLIB/FILE1)
TOSTMF('/home/developer/file1.csv')
MBROPT(*REPLACE) FROMCCSID(*FILE)
STMFCCSID(*PCASCII) RCDDLM(*CRLF)

 Copy To Import File (CPYTOIMPF) 

Type choices, press Enter. 

From file: FROMFILE 
File . . . . . . . . . . . . . > FILE1 
Library . . . . . . . . . . > TESTLIB
Member . . . . . . . . . . . . *FIRST 
To data base file: TOFILE 
File . . . . . . . . . . . . . 
Library . . . . . . . . . . *LIBL 
Member . . . . . . . . . . . . *FIRST 
To stream file . . . . . . . . . TOSTMF > '/HOME/DEVELOPER/FILE1.CSV' 

Replace or add records . . . . . MBROPT *ADD 
From CCSID . . . . . . . . . . . FROMCCSID *FILE 
Stream file CCSID . . . . . . . STMFCCSID *STMF 
Stream file authority . . . . . STMFAUT *DFT 
Record delimiter . . . . . . . . RCDDLM > *LFCR 
Record format of import file . . DTAFMT *DLM 
String delimiter . . . . . . . . STRDLM > *NONE 
Remove blanks . . . . . . . . . RMVBLANK *NONE 
Field delimiter . . . . . . . . FLDDLM ',' 
Null field indicator . . . . . . NULLIND *NO 
Decimal point . . . . . . . . . DECPNT *PERIOD 
Date format . . . . . . . . . . DATFMT *ISO 
Time format . . . . . . . . . . TIMFMT *ISO 
Order by . . . . . . . . . . . . ORDERBY *NONE 

... 
Add column names . . . . . . . . ADDCOLNAM *NONE 

This creates a stream file in the IFS home directory “/home/developer/file11.CSV” using the data from the physical file FILE1 in the library TESTLIB copy.

Work with Links using the command WRKLNK to browse CSV files created in ifs.

                             Work with Object Links                            
                                                                               
 Directory  . . . . :   /home/DEVELOPER
                                                                               
 Type options, press Enter.                                                    
   2=Edit   3=Copy   4=Remove   5=Display   7=Rename   8=Display attributes    
   11=Change current directory ...                                             
                                                                               
 Opt   Object link            Type             Attribute    Text               
       openfile2              STMF                                             
       openfile3              STMF                                             
       pf21                   STMF                                             
       testdir                DIR                                              
       testfile1              STMF                                             
       file1.csv              STMF                                            
       txtfile1.txt           STMF                                             
       txtfile2.txt           STMF                                             
       txtfile3.csv           STMF 

Take option 5 to display CSV file data.

Browse : /home/DEVELOPER/FILE1.CSV
Record : 1 of 3 by 18 Column : 1 97 by 131 
Control : ....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9.
************Beginning of data**************
4 ,NAME4 ,ADDRESS4 ,"PART"
24,NAME4 ,ADDRESS4 ,"PART"
24 ,NAME4 ,ADDRESS4 ,"PART" 
************End of Data********************

As you can see, there is a comma between each field. We see blank spaces between separated column values according to each column field size since the Remove Blank parameter on command CPYTOIMPF was set to *NONE.

A spool file is used to store output data until it is ready for printing. Once the job that is running gets completed the job log can be written to the spool file QPJOBLOG. After writing the job log to the spool file, the job log gets deleted.
You can use the WRKSPLF command to browse spool files in the AS400 system based on specific users, jobs, etc. If you want to check the spool files generated by the current user, then run the following command.
WRKSPLF SELECT(*CURRENT)

SBMJOB command is used to submit a job in as400; moreover, an existing job can submit another job to a batch job queue (JOBQ) to be executed as a batch job at a later time by using the Submit Job (SBMJOB) command. To launch a program, we need to provide the JOB description (JOBD), the CL command or request data, and the routing data. Also, use the CMD option on SBMJOB to execute a single CL command in a batch job. It also performs syntax checking and permits prompting. Submit a job: Following the command, submit a job.

SBMJOB CMD(CALL PGM(PGM1))
JOB(USERJOB)
JOBD(TESTLIB/TESTJOBD)
JOBQ(*JOBD)
OUTQ(TESTOUTQ)
MSGQ(TESTMSGQ)

The job description (JOBD) named TESTJOBD in the library TESTLIB would provide the majority of the job’s properties. TESTOUTQ would also be used as the output queue (OUTQ) and TESTMSGQ as the message queue (MSGQ) for the batch job named USERJOB. The command above submits a job. The job will be added to the JOBDs job queue.

Submit a job to a job queue: The job is submitted to the QBATCH job queue.

SBMJOB CMD(CALL PGM(PGM1))
JOB(USERJOB)
JOBD(TESTLIB/TESTJOBD)
JOBQ(QBATCH)
OUTQ(TESTOUTQ)
MSGQ(TESTMSGQ)

I have tried to call the SQL stored procedure with output parameter within a CL program using QZDFMDB2 to run SQL interactively in a CL program and I have succeeded a lot in that. Now, I can call the SQL stored procedure with the output parameter in the CL program, the only drawback that I face is I am not getting the output parameter value returned in my CL program.

To call the SQL stored procedure with output parameter in the CL program I have used the, so I created a SQL variable and passed that as a return parameter in the form of a command string to program QZDFMDB2 that allows to run SQL statements in CL program. This makes my first work done i.e. calling a SQL stored procedure in a CL program with output parameters which earlier seemed very difficult or almost impossible. So congrats for this success that we have achieved so far.

Now, the turn is for receiving the return value in the output parameter which is  SQL variable here. So, it was sad but we are not getting return value from SQL stored procedure in our CL program. So, I decided to use some tricks and tweaks so that I would anyway receive the return value or value returned by the output parameter   SQL stored procedure in my CL program. Let me show you the code and steps that I followed to achieve this:

1. Create a SQL variable using the CREATE VARIABLE statement from STRSQL.

   create or replace variable out char(1) default ' '

2. Write a SQL stored procedure that returns the output parameter.

   CREATE OR REPLACE PROCEDURE STORED33(                    
           IN P_NAME CHAR(20),                              
           IN P_GENDER CHAR(1),                             
           OUT SUCCESS CHAR(1)                              
            )                                               
   SPECIFIC STORED33                                        
   BEGIN                                                    
   DECLARE SQLSTATE CHAR(5) DEFAULT ' ';                    
   DECLARE SQLCODE INTEGER DEFAULT 0;                       
                                                            
   DECLARE STMT CHAR(500) DEFAULT ' ';                      
                                                            
   INSERT INTO PF8_D(NAME,GENDER) VALUES(P_NAME,P_GENDER);  
   IF SQLCODE = 0 THEN                                      
     SET SUCCESS = '1';                                     
   SET STMT = 'CREATE OR REPLACE VARIABLE TESTLIB.OUT '  
              CONCAT 'CHAR(1) DEFAULT ''1''';               
   EXECUTE IMMEDIATE STMT;                                  
   ELSE                                                     
    SET SUCCESS = '0';                                     
   SET STMT = 'CREATE OR REPLACE VARIABLE TESTLIB.OUT ' 
              CONCAT 'CHAR(1) DEFAULT ''0''';              
   EXECUTE IMMEDIATE STMT;                                 
   END IF;                                                 
   END   

   In the SQL stored procedure code, a few lines are written intentionally such as we are writing create or replace SQL variables and setting their values as 1 or 0 according to SQL code value. Here, the SQL variable works as a return value for my CL program. Please note that SQL variable value is accessible to the same session in which its value is set by default during the create variable statement or SET statement.

3. Compile the SQL stored procedure using the RUNSQLSTM command.

   RUNSQLSTM SRCFILE(TESTLIB/STOREDPROC) 
             SRCMBR(STORED33)               
             COMMIT(*NONE)                  
             DBGVIEW(*SOURCE)    

4. Create a view in the qtemp library using the CREATE VIEW statement.

   create or replace view qtemp.rtnval   as (   
   select   testlib.out as                   
   rtn  from sysibm.sysdummy1 ) rcdfmt rtnvalf  

5. Write a CL program calling SQL stored procedure with the output parameter.

   pgm                                                     
   dcl        var(&cmd) type(*char) len(200)               
   dcl        var(&in1) type(*char) len(20) value('name1') 
   dcl        var(&in2) type(*char) len(1)  value('M')     
   dcl        var(&sqlout) type(*char) len(1)              
   dcl        var(&LIB) type(*char) len(10) +              
                value('TESTLIB')                        
   DCLF       FILE(rtnval)                                 
                                                           
   CHGVAR     VAR(&CMD) VALUE('create or replace variable +
                testlib.out char(1) default '' ''')     
   call       pgm(qzdfmdb2) parm((&cmd))                   
                                                           
   CHGVAR     VAR(&CMD) VALUE('CALL +                      
                testlib.STORED33(''' *CAT &IN1 *TCAT +  
                ''' , ''' *CAT &IN2 *TCAT ''', ' +         
                *TCAT &lib *TCAT '.OUT)')                  
   call       pgm(qzdfmdb2) parm((&cmd))   
                   
   RUNSQL     SQL('create or replace view qtemp/rtnval as + 
                (select testlib.out as rtn from +        
                sysibm.sysdummy1) rcdfmt rtnvalf') +        
                COMMIT(*NONE)                               
   RCVF                                                     
   CHGVAR     VAR(&SQLOUT) VALUE(&RTN)    
                     
   return                                                   
   endpgm  

   Please, note that in step 1 we created a SQL variable named OUT in the TESTLIB library so that we can later create a view RTNVAL in qtemp library using that at step 4. For your knowledge as we have declared the view rtnval in my CL program so that I can populate that view with the value that was set by SQL stored procedure in SQL variable (SQL global variable).
   At the beginning of the program, we create an SQL variable out in testlib with a default blank value by passing the create or replace variable statement to the QZDFMDB2 program as a parameter in the string format.
   Then, we call the SQL stored procedure from within the CL program with input and output parameters by first building the &cmd string, and in, we pass the SQL variable instead of any CL program variable. Then we pass it to the QZDFMDB2 program as a parameter to run the SQL stored procedure. Now till this point, we have not received any return value from the SQL stored procedure call using QZDFMDB2. However, within the SQL stored procedure script, we did set the respective success/failure value in the SQL variable globally and now I am ready to receive that in my CL program which would be the actual return value by my SQL stored procedure call.
   So, I selected the global SQL variable value and output it in a view named rtnval, and after that, I just read the view using the RCVF command and evaluated the value from the view column &rtn to the cl program variable &sqlout. Therefore, &sqlout would not contain the return value or the output parameter value that should be returned by the actual SQL stored procedure call within the CL program with the output parameter

You can create an ads.txt file in your WordPress website root directory by following these steps.

1. Go to your WordPress website Dashboard.
2. Click on Plugins in the WordPress menu.
3. Click the Add New Plugin button at the top of the Plugins page.
4. Type Filester in the Search Plugins area at the top right corner. This will search the plugin and bring in the results of File Manager Pro -Filester, an advanced File Manager and code editor.
5. Click on the Install Now button on the filester plugin.
6. Once the plugin is installed, click on the Activate button. Your filester plugin will get activated on your WordPress website, and a new menu option File Managerwill appear in your WordPress website dashboard menu.
7. Click on the File Manager option on the menu. This will open the Filester plugin page, and in that, you will notice the public_html folder in the left menu as a main option under other folders like .private, wp-admin, wp-content, and wp-includes and on the right side, you will see these folders and other files like .htaccess, index.php, robots.txt, and others.
8. Right-click on the right side, where all the folders and files appear, and a dialog will appear. Select, and a new continuous dialog will appear next to the first dialog box. Select TXT: Plain text. This will create a NewFile.txt in your root directory.
9. Rename the NewFile.txt to ads.txt during its creation or right-click on the NewFile.txt and select the option Rename on the appearing dialog box.
10. Once the file is renamed to ads.txt, Right-click on the ads.txt file and open the file in edit mode by selecting the option Edit File, and then TextArea editor, the ads.txt will be opened in edit mode.
11. Now, you can copy the default ads.txt code mentioned in point 5 by visiting the Ads.txt Guide page.
12. For your convenience, I am writing that code here as well. Here, pub-0000000000000000 is your publisher ID. google.com, pub-0000000000000000, DIRECT, f08c47fec0942fa0
13. Replace pub-0000000000000000 with your publisher ID, Therefore to find your publisher ID then go to your AdSense account. Click on the Account option on the left menu. The Account option will get expanded and you will see the Settings option under it, click on that, and the Setting option will further expand and you will see the Account Information option under it. Click on that option and the first thing you will see next to the menu options is your publisher-ID.
14. Once the code is pasted to the ads.txt file. Click on Save. Now your ads.txt file is ready and the next time when Google bot crawls your website it will find the ads.txt file on your website and will change your ads.txt status.
15. You can also verify the ads.txt presence on your website by just adding /ads.txt to your website URL on the browser and pressing enter. You will see the code that you added to the ads.txt file.https://mywebsitename.com/ads.txt

The data structure can be qualified using the QUALIFIED keyword in rpgle. The term QUALIFIED indicates that data structure subfields are addressed with qualified notation. If the QUALIFIED keyword is provided for data structure userDS with a subfield userid, we can access a data structure subfield using the data structure name followed by a period and the subfield name, i.e. userDS.userid.
Syntax of qualified data structure in fixed format RPG.
D userDS DS QUALIFIED
D userid 10P 0
D name 20A
Syntax of qualified data structure in free format RPG (fully free RPG).
**FREE
dcl-ds userDS QUALIFIED;
userid packed(10:0);
name char(20);
end-ds userDS;

Sample RPG program in the fixed format using a qualified data structure

     D DS1             DS                  QUALIFIED                 
     D subfld1                       10                              
     D subfld2                        5                              
     D subfld3                        5                                                                                                              
                                                                     
     C                   EVAL      DS1.subfld1 = 'DS1_1'             
     C                   EVAL      DS1.subfld2 = 'DS1_2'             
     C                   EVAL      DS1.subfld3 = 'DS1_3'             
     C     DS1           DSPLY                                                                                       
     C                   SETON                   

Sample RPG program in the free format using a qualified data structure

     D DS1             DS                  QUALIFIED      
     D subfld1                       10                   
     D subfld2                        5                   
     D subfld3                        5                                                                                 
      /Free                                               
       DS1.subfld1 = 'DS1_1';                             
       DS1.subfld2 = 'DS1_2';                             
       DS1.subfld3 = 'DS1_3';                             
       DSPLY DS1;                                                                 
       *INLR = *ON;                
      /End-Free              

Sample RPG program in the fully free format using a qualified data structure

**FREE                       
dcl-ds ds1 qualified;        
 subfld1 char(10);           
 subfld2 char(5);            
 subfld3 char(5);            
end-ds;                                          
                             
DS1.subfld1 = 'DS1_1';       
DS1.subfld2 = 'DS1_2';       
DS1.subfld3 = 'DS1_3';       
DSPLY DS1;                    
*INLR = *ON;               

Declare global temporary table statement defines a temporary table for the current session. The temporary table when declared then it is created in the work file database and its description is not populated in the system catalog files. This global temporary table cannot be shared with other sessions. Once the session ends, the global temporary table is dropped.

Sample fully free sqlrpgle program to declare global temporary table.

**free                                          
exec sql                                        
 drop table session.gtm1;                       
                                                
exec sql                                        
 declare global temporary table session.gtm1 as 
 (select * from pf1) with data;                 
return;     

Compiling and running this code will create a file GTM1 in the QTEMP library.
select * from qtemp.gtm1

You can also allocate storage of subfields with Keywords DIM and OVERLAY. Here is an example.

     D                 DS
     D word                          20A 
     D  letter                        1A   DIM(20) OVERLAY(word:1)
      /Free
       word = 'abcdefghijklmnopqrst';
       return;
      /End-Free  

Explanation of the above source code:

Line 1: Declared an unnamed DS.
Line 2: Declared subfield word of length 2o characters.
Line 3: Declared another subfield letter of length 1 character and used DIM(20) keyword to make it an array of 20 elements and also used OVERLAY keyword with parameter word to allocate storage of subfield word from start position 1.
Line 4: Start of /Free block so I can write the code in free-form RPG.
Line 5: Evaluate the DS subfield word as abcdefghijklmnopqrst.
Line 6: return from the program.
Line 7: End of /free block using /end-free block to specify the end of writing the RPG-free code.

Final Outcome:
Since ds subfield word = ‘abcdefghijklmnopqrst’ therefore, the subsequent subfield letter of length 1 and 20 array elements are overlaid on the word subfield and it would contain:

> Eval letter
  letter(1) = 'a'
  letter(2) = 'b'
  letter(3) = 'c'
  letter(4) = 'd'
  letter(5) = 'e'
  letter(6) = 'f'
  letter(7) = 'g'
  letter(8) = 'h'
  letter(9) = 'i'
  letter(10) = 'j'
  letter(11) = 'k'
  letter(12) = 'l'
  letter(13) = 'm'
  letter(14) = 'n'
  letter(15) = 'o'
  letter(16) = 'p'
  letter(17) = 'q'
  letter(18) = 'r'
  letter(19) = 's'
  letter(20) = 't'

In Z-ADD, Factor 2 is added to a field of zeros. The result field contains the total. There is no use of Factor 1. Factor 2 and the result field must be in the numeric range and may include an array, an array element, a field, a named constant, a literal, a figurative constant, a subfield, or a table name. Sample code using Z-ADD in rpgle.

     Dnumber           S              9P 0 inz(54)
     Dresult           S              9P 0                
     C                   Z-ADD(H)  number        result   
      * the result becomes 54
     C     result        dsply                            
     C                   return        

We can use %xlate in RPGLE to translate values according to from, to, and start positions. Therefore, we can either translate from lower to upper case or from upper case to lower case.

The first parameter of %xlate contains characters to be replaced, the second parameter contains their replacement values, the third parameter is the string to be translated, and the fourth parameter is the starting position for the translation and is optional to pass. The default value is 1 for the fourth parameter if it is not passed, the fifth parameter is again optional and here we can pass values either *NATURAL or *STDCHARSIZE.
%XLATE(from: to: string : startpos : *NATURAL | *STDCHARSIZE)

If the first parameter is longer than the second, any extra characters in the first parameter are ignored. The first three parameters can be of type character, graphic, or UCS-2 and all first three parameters must have the same type.

Translate from lower to upper case using %xlate in RPGLE:

     D lower           c                   'abcdefghijklmnopqrstuvwxyz' 
     D upper           c                   'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 
     Dstring           s             20A   INZ('hello world')           
      /Free                                                             
           string  = %xlate(lower:upper:string);  
           // string becomes HELLO WORLD'                      
           dsply string;     
           *INLR  = *ON; 
      /End-Free                             

Translate from upper to lower case using %xlate in RPGLE:

     D lower           c                   'abcdefghijklmnopqrstuvwxyz' 
     D upper           c                   'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 
     Dstring           s             20A   INZ('HELLO WORLD')           
      /Free                                                             
           string  = %xlate(upper:lower:string); 
           // string becomes 'hello world'                       
           dsply string;                                                
           *INLR  = *ON;      
      /End-Free               

Tried checking the schema here, When a product/something has a Missing field ‘name ‘ error, there’s no “author” for the review, hence the missing “name” field. I think you could add an author or a name of that specific profile (based on the screenshot attached – the name is blank). 

You can also check any forums regarding that. 

Missing Field “name”
So, please check if you’ve added the Name of your business and organization image at the settings available at WordPress dashboard > SEO > Settings – > General – > Site Basics. You can read more about it here: Website name, alternate website name, and alternate organization name.

Furthermore, kindly please clear the cache from caching plugins, the server, and a CDN like Cloudflare (if you are using any). If you are not sure how to clear the cache from a plugin, please contact the plugin author.

If you’d like to clear the cache from the server, please speak to your host provider. After that, kindly check any product page via the Google Rich Results testing tool https://search.google.com/test/rich-results.

I did assign a name to the user as “Unknown” from the WordPress backend and the schema was correctly generated.

Unknown
The issue is now passed in the Google search console.

This was the discussion between me and the support to resolve this issue.

Support:

You will get the  Missing field “mainEntity” error if you set a page as an FAQ page and you don’t use the Yoast SEO FAQ block. So, you need to use the Yoast FAQ block on that particular page. This guide explains more on how you can use the Yoast SEO FAQ block: https://yoast.com/how-to-build-an-faq-page/#how.

Admin:
No, I did not set FAQ. I set it as a QA page. This is the Yoast setting at my end.

Support:
If you set the page to be a QA page, there needs to be a Yoast FAQ block on the page to fill the schema. Not having this will result in an incomplete/invalid Schema graph. Please refer to: https://yoast.com/how-to-build-an-faq-page/
Just adding the FAQ block with your questions and answers would make the plugin output the correct information too.

Admin:
My website is a Question and Answer based website where one can ask questions on the website itself and anyone can answer and any number of answers are allowed. There is no option there to use the FAQ block on UI. If I go to WordPress and try to write the blog at the back end, then I can select FAQ block only. I hope you are getting what I am trying to say.
You will see that no backend is involved in this Question and Answers (treated as comments). I need to set it as a QA page only.

Also, If you look at my website you will observe that the WordPress backend is not involved anymore since users can ask questions on the website UI using the Ask a Question button and Answers will be given there by multiple users located at different places. So, I am not writing a blog at my backend on WordPress. Questions and Answers are governed by the website user interface.

Since each page contains one question and multiple answers (a type of discussion) on the question on each page.

Please understand that I want to set this as the QA Page that corresponds to web pages that contain data in a question-and-answer format, which is one question followed by answers.
Please suggest how to resolve this issue as I intentionally set the pages as QA pages and I got this issue. If I was putting questions from the WordPress backend then I was able to use your FAQ block. Also, I am not using FAQ page type instead using QA page type.

Support:
Let me explain this this way: the QA schema will only show its complete schema pieces if the FAQ block is used. Since this isn’t the case, the QA schema will be incomplete, thus triggering the main entity error. That said, you can select the webpage schema instead to avoid further errors. If you need to change the schema behavior, you can customize the plugin’s schema output. You can use the Schema API that allows developers to customize the Schema output of each of our plugins. Please refer to our Schema API documentation here: https://developer.yoast.com/features/schema/api/.

Admin:
Ok. I will check the API, but I cannot switch back to Webpage schema as earlier by default it was set as webpage scheme and there was no such error. But my website is based on Q&A where everything happens on UI whether it’s asking questions or answering them.

I have used the discy theme. They also used the QA page as schema type.
See I cannot use the FAQ block as that is only available when I create a new page from WordPress and then I can use your toast FAQ block. This is not the case at my end.
Now Discy whose theme I purchased used the same QAPage schema and they seem to have the correct schema on their (view-source:https://2code.info/demo/themes/Discy/Main/question/is-this-statement-i-see-him-last-night-can-be-understood-as-i-saw-him-last-night/) page and the one which is outputted by Yoast plugin at my end showing error
However, I can see the “mainEntity” field missing in my schema and instead, see the “mainEntityOfPage” field.
Please don’t recommend me to switch back to Webpage schema as I will never do that. I have to be on the QA page schema type only. Please help me with the detailed steps to resolve it on my website.

What is the difference between the FAQ page and the QA page?
FAQ page is where we have multiple questions and multiple answers in a block, then that is fine i should use your FAQ block for this type of page I will create by myself at the back end means from WordPress create page option.
However, the QA page is a page where we have one question and multiple answers that’s what my page is. From UI, one can ask questions and once the question is submitted, a page is created and there is no point in using the Yoast FAQ block here from website UI. Now anyone can answer, or reply from the UI itself any number of times.
Since, I have set the schema page as a QA page not as a FAQ page, your Yoast plugin should be able to add the field “MainEntity” on my page without making any check for the Yoast FAQ block used or not.
The Yoast plugin did not populate the “MainEntity” field on my page and that caused the parsing error in the Google search console please try to understand that this is a critical error on my website.
In case any new page added to the website when anyone asks a question on the website then this happens to those pages as well which will be going to be created on my domain.
Now once the Google bot crawls again it may throw the same critical error for all my pages on the website. Please help to resolve it.

Support:
Looking at the page, I can confirm that your theme natively supports the QAPage schema. For the schema from your theme to work correctly, I recommend that you first change the schema type in the Yoast Metabox to WebPage. After updating this schema, your page will show the QAPage schema without any warning. With the Yoast schema, you will be getting 2 QAPage schemas. It shows the duplicate QAPage schema. You only need 1 schema so should you use the WebPage schema so you won’t be getting any warning regarding the QAPage schema.

Admin:
Thanks for the clarification. I have set up the page type schema as Webpage as Discy theme by default support QA page schema. After that, the Missing field ‘mainEntity’ error is passed in the Google search console. Missing field ‘mainEntity’ validation passed in the Google search console after setting up the webpage type schema in the Yoast premium plugin.

When we call a SQL stored procedure using a constant value instead of a parameter marker (?) sqlcode -469 is returned.

You can call a SQL stored procedure by passing a parameter marker in an INOUT parameter like this.

call testlib.STORED33A('name1','M','?')

However, you cannot even call using a parameters marker in the STRSQL session on an IBM i machine as the Use of parameter marker, NULL, or UNKNOWN is not valid.

However, You can call it by passing any value to the OUT or INOUT parameter from the Run SQL script like
call testlib.STORED33A('name1','M',NULL);
call testlib.STORED33A('name1','M',' ');
call testlib.STORED33A('name1','M',5);
call testlib.STORED33A('name1','M',?);

You will get the return output.

[ 26/08/2024, 01:11:27 am ]  Run Selected...
call testlib.STORED33A('name1','M',NULL)
Return Code = 0
Output Parameter #3 (SUCCESS) = 1
Statement ran successfully   (339 ms)

[ 26/08/2024, 01:14:45 am ]  Run Selected...
call testlib.STORED33A('name1','M',' ')
Return Code = 0
Output Parameter #3 (SUCCESS) = 1
Statement ran successfully   (294 ms)

[ 26/08/2024, 01:16:55 am ]  Run Selected...
call testlib.STORED33A('name1','M',5)
Return Code = 0
Output Parameter #3 (SUCCESS) = 1
Statement ran successfully   (295 ms)

[ 26/08/2024, 01:30:05 am ]  Run Selected...
call testlib.STORED33A('name1','M',?)
Return Code = 0
Output Parameter #3 (SUCCESS) = 1
Statement ran successfully   (293 ms)

No such issue will occur when you call the SQL stored procedure from the Run SQL Script. This issue will only occur in the STRSQL session. Therefore, to call it from the STRSQL session you first have to create a SQL global variable using CREATE VARIABLE statement like below.

create variable testlib.sqlout char(1) default ' '

The variableSQLOUT was created in testlib. It’s an *SRVPGM object type of attribute CLE.

Now again try to call the SQL stored procedure from the STRSQL session on IBM i but this time passed the SQL global variable for the OUT or INOUT parameter in the procedure as below.

call testlib.STORED33A('name1','M',testlib.sqlout)

CALL statement complete. SQL7985 which means Call to procedure STORED33A completed successfully.

You can check the return value in the SQL global variable as follows:

select testlib.sqlout from sysibm.sysdummy1

the output return value in SQL global variable from SQL stored procedure call.

SQLOUT 
1 

In this case, you are trying to evaluate a timestamp value in character format into a timestamp variable at line 3 timestamp1 = '2024-03-16-15.10.40.456465'; in your RPG program which is incorrect and you, therefore, are getting the error severity 30 error *RNF7416 during the compilation of your RPG program in the program compile listing.

Try to convert the character value to timestamp value using %timestamp built-in function timestamp1 = %timestamp('2024-03-16-15.10.40.456465'); and then evaluate to a timestamp variable.

The following code will resolve the issue *RNF7416 error during program compilation.

     Dtimestamp1       s               Z                                           
      /free                                                   
       timestamp1 = %timestamp('2024-03-16-15.10.40.456465');                                          
       return;                                                
      /end-free                              

You can check for locks on a file/table using the system catalog view QSYS2.OBJ_LOCK. It can also be called as OBJECT_LOCK_INFO. You can embed the SQL query below in your sqlrpgle program and check for locks on a file/table.

select count(*) from qsys2.object_lock_info 
where 
system_object_schema = 'TESTLIB'
and system_object_name = 'TABLE1' 
and object_type = '*FILE' 
and lock_state = '*EXCL'

In the above SQL query, we are checking locks for files/tables Table1 in the library TESTLIB the important check here is the LOCK_STATE column. Since, when we run the program, it opens all the files and you might get shared locks which is fine for us we need to check for exclusive locks only what has been checked in the above SQL query. You can write the above SQL query in your RPG program like this:

     DlockCnt          S             10i 0 inz
      /free  
       Exec Sql
       select count(*) into :lockCnt from qsys2.object_lock_info 
       where 
       system_object_schema = 'TESTLIB' 
       and system_object_name = 'TABLE1' 
       and object_type = '*FILE' 
       and lock_state = '*EXCL';

       If lockCnt > 0;
         // Lock present on file/table
         // Code to handle for Lock situation
         dsply('Lock present on file'); 
         return; 
       endif;
       return;
      /end-free

To test this code, you can put a lock on the file/table using the ALCOBJ command in one of your IBM i sessions and then you need to run this code on the same file from another session.
ALCOBJ OBJ((TESTLIB/TABLE1 *FILE *EXCL))

Later, after your testing, you can remove the exclusive on that same file using the DLCOBJ command.
DLCOBJ OBJ((TESTLIB/TABLE1 *FILE *EXCL))

You can use this SQL to replace the carriage return and line feed characters (X’0D25′) with spaces (X’4040′).

update libname/filename
set fieldname = replace(fieldname, X'0D25', X'4040')
where fieldname like '%' concat X'0D25' concat '%'

Note: Please take a backup of your file before running the update to verify your results and in case any issue occurs you may then be able to restore your original file data.

We copy a CSV file into a physical file or table on the IBM i using the CPYFRMIMPF command.
CPYFRMIMPF FROMSTMF('/ifsfolder/filename.csv') TOFILE(libname/filename)
RCDDLM(*CR)

Note: The physical file/table must exist before copying the CSV file to it. Also, the table or file structure should match the fields in your CSV file which you would receive in the IFS folder.

We can set the maximum number of sessions a user can open at a time by the limit device sessions (QLMTDEVSSN) system value.

The default value is 0 which means do not limit the sessions
If you set 1-9, the user is limited to the specified number of device sessions.

From the IBM i green screen command line, you can type the following IBM i command and press Enter.
WRKSYSVAL SYSVAL(QLMTDEVSSN)
Take option 2 to change.

Note: QLMTDEVSSN is a global setting and if you want to limit a specific user to open a specified number of sessions only then set the LMTDEVSSN value for a specific user profile. For Example, Type the below command on the IBM i green screen and press Enter.
WRKUSRPRF USRPRF(user-profile)
Take option 2 to change.

You can set the following values for the LMTDEVSSN parameter of the WRKUSRPRF command :

*SYSVAL: The QLMTDEVSSN system value is used.
*NO: The user may be signed on to more than one device session at the same time.
*YES: The user may not be signed on to more than one device session at the same time.
0: The user is not limited to a specific number of device sessions. Same as *NO.
1: The user is limited to a single device session. Same as *YES.
2-9: The user is limited to the specified number of device sessions.

Please also note that You must be  security officer or a security administrator to add, change, copy, or remove users. Otherwise, you are not authorized to make a change request. Once, the limit is set for the specific user then the following message will be shown to the user if the user has reached the maximum number of sessions: CPF1220 User XYZ has reached the device session limit.

Here are all the possible ways you can do the FTP to an IASP instead of *SYSBAS on your IBM i machine.
FTP from a Non-IASP machine to the IASP device on an IBM i machine using the PUT command:

Please follow the following steps.
On the Non-IASP machine command line, type FTP systemname and press Enter.
Here, systemname is the name of the IASP machine. Now use the following FTP commands to FTP from a non-asp machine to an IASP on an IBM i machine using the PUT command.

Using namefmt 1:

UserId  -- Userid of the IASP machine --
Password  -- password of the IASP machine --
--Once logged on to the IASP machine--
bin
namefmt 1
quote rcmd setaspgrp aspgrp(IASP1) -- replace IASP1 with your asp device--
put /qsys.lib/libnameOnNonAspMachine.lib/SavefileNameOnNonAspMachine.savf
  /qsys.lib/libnameOnAspDevice.lib/SavefileName.savf

Using namefmt 0:
Create a save file in the respective library on the IASP device first, then try the below FTP commands.

UserId  -- Userid of the IASP machine --
Password  -- password of the IASP machine --
--Once logged on to the IASP machine--
bin
namefmt 0
quote rcmd setaspgrp aspgrp(IASP1) -- replace IASP1 with your asp device--
cd /qsys.lib/libnameonaspdevice.lib
put libnameOnNonAspMachine/SavefileNameOnNonAspMachine.savf
  SavefileName.savf (replace

FTP from a Non-IASP machine to the IASP device on an IBM i machine using GET command:
Please follow the following steps.

On the IASP machine command line, First type SETASPGRP ASPGRP(IASP1) and press Enter. — (Replace IASP1 with your ASP device). Second, type FTP systemname and press Enter.
Here, systemname is the name of the Non-IASP machine. Now use the following FTP commands to FTP from a non-asp machine to an IASP on an IBM i machine using GET command.

Using namefmt 1:

UserId  -- Userid of the IASP machine --
Password  -- password of the IASP machine --
--Once logged on to the IASP machine--
bin
namefmt 1
get /qsys.lib/libnameOnNonAspMachine.lib/SavefileNameOnNonAspMachine.savf
  /qsys.lib/libnameOnAspDevice.lib/SavefileName.savf (replace

Using namefmt 0:
Create a save file in the respective library on the IASP device first then try the below FTP commands.

UserId  -- Userid of the IASP machine --
Password  -- password of the IASP machine --
--Once logged on to the IASP machine--
bin
namefmt 0
cd /qsys.lib/libnameonNonaspMachine.lib
get SavefileNameOnNonAspMachine.savf libnameonAspdevice/SavefileName.savf 
     (replace         

You can follow the below FTP steps to upload or transfer the save file from the desktop to the IBM i library:

• Open a command prompt window.
• Change to the directory where the save file is located for example cd desktop.
• Type the FTP systemname or FTP IP address where SYSTEMNAME or IP address is of the IBM i system.
• Type the User ID and password.
• Type BIN to change the binary mode and press the Enter key.
• To change the host and client naming convention to 1 type the QUOTE SITE NAMEFMT 1 and press the Enter key.
• Type PUT savefileNameOndesktop.savf /qsys.lib/libname.lib/savefilename.savf and press the Enter key to start transferring the save file from the desktop to the IBM i library.

cd desktop
ftp systemname
userid
password
bin
quote site namefmt 1
put savefileNameOndesktop.savf /qsys.lib/libname.lib/savefilename.savf