Back in the day, one of the clowns (Rube Goldberg?) writing for a trade rag wrote an article on how clumsy the OS/2 API allegedly was. To "prove" his point, he showed the code needed to create a popup window, display "Hello, World" in it, wait for a reply and close the popup. He then compared it to the classic Hello World C program, never realizing that it was a perfectly valid OS/2 program, far shorter than his contrived version.
-- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 ________________________________________ From: IBM Mainframe Discussion List [[email protected]] on behalf of Steve Smith [[email protected]] Sent: Monday, October 19, 2020 11:58 AM To: [email protected] Subject: Re: emptying a PDS +1 Some of the proposals sounded akin to writing IEFBR14 in C++. sas On Mon, Oct 19, 2020 at 11:46 AM David Staudacher <[email protected]> wrote: > Given the specification to EMPTY a PDS, nothing is simpler than just > reinitializing the directory. > Assemble this source and keep it around as a utility: > *---------------------------------------------------------------------* > * INITIALIZE PDS/PDSE TO EMPTY STATE * > *---------------------------------------------------------------------* > PDSINIT CSECT > SAVE 14 > LR 12,15 > USING PDSINIT,12 > OPEN (PDS,OUTPUT) OPEN PDS > STOW PDS,,I INITIALIZE PDS > CLOSE PDS CLOSE PDS > RETURN 14 RETURN > PDS DCB DDNAME=PDS,DSORG=PO,MACRF=W > END PDSINIT > > > Run PDSINIT with this JCL: > // EXEC PGM=PDSINIT > //STEPLIB DD DISP=SHR,DSN=<your load library DSN> > //PDS DD DISP=SHR,DSN=S17666D.TEST.PDSE > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
