Utility to get current PTF Groups levels for All OS versions into a table.

I couldn't find anything on the web like this, so I wrote my own.

Enjoy,  Gavin

==============================
Destination Table
==============================

CREATE TABLE QTEMP.PTFIN (

                        RELEASE CHAR(4) NOT NULL,

                        NUMBER  CHAR(7) NOT NULL,

                        TITLE   CHAR(50) NOT NULL,

                        LEVEL   CHAR(5) NOT NULL,

                        DATE    CHAR(10) NOT NULL

         )

                        RCDFMT R@PTFINFO;

LABEL ON TABLE QTEMP.PTFIN   IS 'PTF Information from IBM Website';

============================
SQLRPGLE Program
============================

**Free

Ctl-Opt Debug Option(*SrcStmt:*NoDebugIO);

Ctl-Opt ActGrp(*Caller);

DCL-DS psp dim(500) qualified ;

  release char(4) ;

  number char(7)  ;

  title char(50)  ;

  level char(5)   ;

  date  char(10)  ;

END-DS;

DCL-DS psp1 ;

  release char(4) ;

  number char(7)  ;

  title char(50)  ;

  level char(5)   ;

  date  char(10)  ;

END-DS;

Dcl-s PTFINFO VarChar(32000);

dcl-s i int(5)     ;

Dcl-s Web varchar(256)

inz('https://public.dhe.ibm.com/services/us/igsc/PSP/xmldoc.xml');

EXEC SQL

    TRUNCATE PTFIN ;

Exec SQL

SELECT RESPONSE_MESSAGE

  into :PTFINFO

  FROM TABLE(QSYS2.HTTP_GET_VERBOSE(

   (:web),

  '{"sslTolerate":"true","header": "Accept,application/json"}')) ;

  XML-INTO psp %XML(ptfinfo:'case=any') ;

  for i = 1 to 500 ;

    if psp(i).release <> *blanks ;

      eval psp1=psp(i) ;

Exec SQL

  INSERT into PTFIN (release, number, title, level, date)

   values(:release, :number, :title, :level, :date) ;

    ENDIF;

  ENDFOR;

  *INLR=*ON ;