//* STORET.HELP.REG.EXAMPLE                                             00000010
//SCAN EXEC WQINTRDR                                                    00000020
//CARDFD DD DATA                                                        00000030
PGM=REG,PURP=305B/STA,                                                  00000040
A=1110NET,                                                              00000050
S=010120,S=380037,S=170036,                                             00000060
P=10,P=300,P=610,                                                       00000070
REGPARMS=                                                               00000080
PLOT,S=010120,P=1,T=63/01,T=6501,                                       00000090
PLOT,S=010120,P=1,P=2,T=6301,T=6501,                                    00000100
PLOT,S=380037,P=3,S=170036,P=2,T=5801,T=7101,                           00000110
PLOT,S=380037,S=170036,P=3,T=5801,T=7101,                               00000120
STOPREG,                                                                00000130
./III      JOB (AAAA,MIII),STORET,MSGCLASS=A,TIME=5,PRTY=2,             00000140
./              MSGLEVEL=(1,1)                                          00000141
**JOBPARM LINES=10                                                      00000150
