&&IF &&PARAM1 EQ ′′ &&GOTO TAG3 &&SET &&VARBL3 &&PARAM1 &&LABEL TAG3

&&TYPE ENTER THE DESCRIPTIVE QUALIFIER FOR THE PDS TO BE CREATED &&TYPE THE DEFAULT WILL BE &&VARBL4

&&READ &&PARAMS

&&IF &&PARAM1 EQ ′′ &&GOTO TAG4 &&SET &&VARBL4 &&PARAM 1 &&LABEL TAG4

&&TYPE ENTER TME DISK TYPE (IE 3350, 3375, 3380) FOR THE PDS &&READ &&PARAMS

&&IF &&PARAM1 EQ ′′ &&GOTO -TAG4 &&SET &&VARBL5 &&PARAM1 &&LABEL TAG5

&&TYPE ENTER THE VOLUME SERIAL NUMBER OF THE DISK FOR THE PDS &&READ &&PARAMS

&&IF &&PARAM1 EQ ′′ &&GO′ TO -TAG5 &&SET &&VARBL6 &&PARAM1 &&LABEL TAG6

/SWITCH &&VARBL1

&&IF &&RETCOD EQ ′ *SWITCHE′ &&GOTO TAG7 &&IF &&RETCOD EQ ′ *LIB′ &&GOTO TAG7

&&TYPE USER MAY NOT SWITCH TO ICCF LIBRARY &&VARBL1 &&TYPE PROCEDURE TERMINATED

&&GOTO TAG9

&&LABEL TAG7

&&TYPE YOU HAVE REQUESTED ICCF LIBRARY &&VARBL1 TO BE UNLOADED &&TYPE TO CREATE AN MVS JOB FOR CREATING A PDS WITH THE FOLLOWING &&TYPE &&VARBL2.ICCF.&&VARBL3.&&VARBL4′ ON A &&VARBL5 WITH VOL &&TYPE SERIAL &&VARBL6

&&LABEL TAG8

&&TYPE ENTER Y TO CONTINUE, C TO CANCEL, OR R TO RETRY. &&READ &&PARAMS

&&IF &&PARAM1 EQ ′ Y′ &&GOTO TAG10 &&IF &&PARAm1 EQ ′ R′ &&GOTO -TAG1 &&IF &&PARAM1 EQ ′ Y′ &&GOTO TAG9 &&GOTO -TAG8

&&LABEL TAG9

&&TYPE END OF PROCEDURE ICCFTSO/E &&EXIT

&&LABEL TAGIO &&OPTIONS 0010001 /ED

I // JOB IEBUPDTE CREATE MVS IEBUPDTE TAPE USING DITTO CT I // UPSI 1

I * PLEASE ASSIGN SYS020 TO A TAPE DRIVE WITH A SCRATCH TAPE MOUNTED I // PAUSE

I // EXEC DITTO,SIZE=92K

I $$DITTO CT OUTPUT=SYS020,BLKFACTOR=10 I //UPDATE JOB &&VARBL2

I // EXEC PGM=IEBUPDTE,PARM=NEW I //SYSPRINT DD SYSOUT=A

I //SYSUT2 DD DSNAME=&&VARBL2.ICCF.&&VARBL3.&&VARBL4,UNIT=&&

I // DISP=(NEW,KEEP),VOLUME=SER= &&VARBL6,SPACE=(TRK,(50,,10)), I // DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)

I //SYSIN DD DATA TOP

STACK 13 QUIT

Chapter 7. ICCF and TSO 165

Page 188 Page 190
Page 189
Image 189
IBM OS/390 manual Sysin DD Data TOP Stack 13 Quit
Page 188 Page 190

OS/390 specifications

IBM OS/390, a versatile operating system, was a cornerstone in enterprise environments and played a pivotal role in mainframe computing. Released in the mid-1990s, OS/390 combined the strengths of IBM's MVS (Multiple Virtual Storage) with new features and enhancements, targeting scalability, reliability, and performance in demanding business applications.

One of the key features of OS/390 was its robust support for multiple users and processes. The system allowed thousands of concurrent users to access applications and data, ensuring high availability and minimizing downtime—a critical requirement for many large organizations. This scalability was supported through various enhancements in memory management and processor scheduling, enabling optimal resource allocation across diverse workloads.

OS/390 was known for its superior workload management capabilities. The Workload Manager (WLM) component allowed administrators to define service policies, specifying how system resources would be allocated according to the priority of tasks. This ensured that critical business processes received the necessary resources while less critical tasks were managed more flexibly.

Another significant characteristic of OS/390 was its commitment to security. The operating system provided comprehensive security features, including user authentication, data encryption, and auditing capabilities. This focus on security was vital for organizations handling sensitive data, ensuring compliance with regulations and safeguarding against unauthorized access.

OS/390 also supported advanced technologies that facilitated integration and development. The system included features like the IBM CICS (Customer Information Control System) for transaction processing and IMS (Information Management System) for database management. These technologies allowed organizations to build robust, high-performance applications tailored to specific business needs.

The ease of network integration was another strength of OS/390. With the advent of the Internet and global connectivity, OS/390 systems could easily interface with various network protocols, enabling businesses to operate in a connected world. This inclusion paved the way for many organizations to expand their capabilities and offer new services, driving digital transformation.

In conclusion, IBM OS/390 represented a significant advancement in mainframe technology, combining scalability, security, and robust workload management. Its rich feature set and support for critical enterprise applications solidified its role as a vital component of many organizations' IT infrastructures, ensuring they could meet their operational challenges head-on while supporting future growth. As technology continues to evolve, the legacy of OS/390 remains influential in the realm of computing.
Top Page Image Contents